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


Приложение «Иконка»


Предназначено для изучения 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




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