Приложение «Иконка»
Предназначено для изучения OptionButton
и Image.
Создайте проект Pic1.vbp и форму Pic.
Создайте три элемента OptionButton. Озаглавьте их как показано на рис. 27. У первой из них установите свойство Value в “True”.
Создайте три элемента Image. С помощью свойства Picture загрузите в них любые три иконки.
Создайте кнопку Command1, с названием «Exit». Щёлкните по ней два раза и введите код:
Private Sub Command1_Click()
End
End Sub
Напишите следующий обработчик:
Option Explicit
Dim Button As Integer
Dim Shift As Integer
Dim x As Single
Dim y As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Option3.Value = True Then
Image3.Move x, y
End If
If Option2.Value = True Then
Image2.Move x, y
End If
If Option1.Value = True Then
Image1.Move x, y
End If
End Sub
Здесь во второй части кода, в зависимости от того, какая из OptionButton установлена (т.е. её свойство Value истинно), перемещается соответствующая иконка с помощью метода Move, в координаты щелчка мыши.
9.5 Приложение «Главная форма»
Это приложение предназначено для изучения вложенных MDI форм.
Создайте новый проект (Main1.vbp), в меню Project нажмите Add MDI form. Сохраните новую форму как Main.frm. Озаглавте её как «Главная форма».
С помощь редактора меню создайте меню:
&Фаил (mnuFile)
&Выход
(mnuExit)
&Дочернии формы
(mnuShow)
Показать калькулятор
(mnuCalc)
Показать проводник
(mnuCdir)
Показать редактор
(mnuPic)
- (mnuStep)
Показать все (mnuShowAll)
Очистить все (mnuClear)
Из меню Project выберете Add form, перейдите в появившимся окне на закладку Existing. Добавьте в проект формы Calc.frm, Cdir.frm, Pic.frm.
Измените у всех форм (кроме Main.frm) свойство MDIChild на «True». Это свойство определяет, что все эти формы будут подчинёнными по отношению к главной форме, и соответственно будут располагаться внутри её окна.
Добавьте следующие обработчики событий:
Private Sub MDIForm_Load()
Calc.Show
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
Обработчик команды «Выход» закрывает приложение.
