Создание приложений ОС Windows средствами Visual Basic


Приложение «Иконка» - часть 2


CDir.Show

Pic.Show

End Sub

Это событие возникает при загрузке главной формы, в результате при загрузке загружаются все три подчинённые формы.

Private Sub mnuCalc_Click()

Calc.Show

End Sub

Private Sub mnuCdir_Click()

CDir.Show

End Sub

Private Sub mnuPic_Click()

Pic.Show

End Sub

Эти три обработчика показывают подчинённую форму, в зависимости от выбранного пункта меню.

Private Sub mnuClear_Click()

Unload Calc

Unload CDir

Unload Pic

End Sub

Обработчик команды «Очистить  все»  закрывает  все  три  подчи-

 

Рис. 28                                                           Рис. 29

нённые формы.

Private Sub mnuShowAll_Click()

Calc.Show

CDir.Show

Pic.Show

End Sub

Обработчик команды «Показать все» открывает все три починённые формы.

Private Sub mnuExit_Click()

End

End Sub

Обработчик команды «Выход» закрывает приложение.




- Начало -  - Назад -  - Вперед -