Создание «пасхального яйца»

Давайте спрячем в нашем приложении простейшее «пасхальное яйцо». Если вы не знаете, что этот термин означает на жаргоне программистов, позвольте мне объяснить. Многие приложения Windows обладают скрытыми возможностями для отображения справочной информации или картинки. В сообщениях обычно перечисляется состав команды, работавшей над проектом, или выводится их оцифрованная фотография. Иногда в «пасхальном яйце» прячется ролик, порочащий продукт конкурентов.

Такие скрытые функции называются «пасхальными яйцами»потому, что их приходится разыскивать. Чаще всего они прячутся в диалоговом окне About и вызываются только определенной последовательностью щелчков и нажатий клавиш. Мы воспользуемся диалоговым окном About, созданным Form Wizard, и включим в него простейшее «пасхальное яйцо».

Если проявить некоторую изобретательность при программировании, диалоговое окно с «пасхальным яйцом» можно будет использовать и в других приложениях.

1. Создайте новый проект типа Standard EXE.

2. Задайте свойству Caption формы Form1 значение Пасхальное яйцо.

3. Создайте меню на форме Form1. Задайте свойству Caption значение &About, а свойству Name — значение mnuAbout.

4. Щелкните правой кнопкой мыши в окне проекта и выберите из контекстного меню команду Add > Form. В открывшемся окне Form Wizard выберите значок About Dialog и нажмите кнопку Open (рис. 11.4).

Рис. 11.4. Создание формы диалогового окна About

5. Дважды щелкните на значке, расположенном в левом верхнем углу окна About, чтобы открыть окно программы.

6. В окне программы перейдите к процедуре события picIcon_MouseUp() и добавьте в нее следующий фрагмент:

Private Sub picIcon_MouseUp(Button As Integer,

Shift As Integer, X As Single, Y As Single)

If Button = 2 And Shift = 6 Then

MsgBox "Вы нашли пасхальное.яйцо!"

End If

End Sub

7. Дважды щелкните на форме Form1 в окне проекта, чтобы открыть окно программы.

8. Добавьте в процедуру события mnuAbout_Click() следующий фрагмент:

Private Sub mnuAbout_Click()

frmAbout.Show vbModal

End Sub

9. Сохраните и запустите программу.

10. Найдите «пасхальное яйцо» — для этого следует...

Нет, я не скажу, как отыскать «пасхальное яйцо» — если вы поняли код этого примера, это и так очевидно. Когда сюрприз будет найден, вы увидите нечто похожее на рис. 11.5. На самом деле наше «яйцо» получилось довольно скучным. Чтобы поразить воображение пользователя, придется создать нестандартную форму с графикой и даже звуком. Если вас интересует, как воспроизвести файл формата.wav, прочитайте урок 19, «Использование DLL и Windows API», — в нем содержится весь необходимый код.