Отправляет email-рассылки с помощью сервиса Sendsay

Программирование для начинающих. (Visual Basic-6.0)

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Visual Basic для новичков и профессионалов" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Апрель 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Alex III

Статистика

2.891 подписчиков
-4 за неделю
←   Все выпуски   →

Программирование для начинающих. (Visual Basic-6.0) События формы (Часть 2)


Информационный Канал Subscribe.Ru

ФОРУМ

Вы спрашивали

ГЛАВНАЯ

АРХИВ

АВТОР

Здравствуй уважаемый подписчик!
Урок №1
Те, кто из Вас пытался самостоятельно выполнить пример из предыдущего послания, заметили ошибку, возникающую в строке:

Private Sub Form_Initialize()
Form1.Print "Это событие Initialize"
End Sub

Связанно это с тем, что в событии Initialize еще нет самого объекта Form (соответственно нет и объектов в нем размещенных). Поэтому при обращении к объекту в этом событии возникает ошибка.
Если исправить программный код, приведенный в прошлом выпуске, следующим образом:

Private Sub Form_Activate()
MsgBox ("Это событие Activate")
End Sub

Private Sub Form_Initialize()
MsgBox ("Это событие Initialize")
End Sub

Private Sub Form_Load()
MsgBox ("Это событие Load")
End Sub

Private Sub Form_Resize()
MsgBox ("Это событие Resize")
End Sub

У Вас получиться следующий порядок возникновения событий:
  • Initialize
  • Load
  • Resize
  • Activate

MSGBOX - Функция вызова стандартного диалогового окна. ( MeSsaGe - сообщение, BOX -коробка)
Сокращенный вариант вызова функции:
MSGBOX ("Некоторый текст")
Когда Ваша ЭВМ встречает подобную инструкцию, на экране монитора всплывает диалоговое окно, которое содержит в заголовке имя Вашего проекта, в самом окне содержится текстовое сообщение НЕКОТОРЫЙ ТЕКСТ и это окно имеет одну кнопку "ОК"
Полный формат вызова этой функции выйдет отдельным номером рассылки.

Ну а сегодня поговорим об остальных основных событиях формы
Введем следующий программный код для объекта Form, событие MouseMove:

Form1.Cls
Form1.Print "X="; X
Form1.Print "Y="; Y
Form1.Print "Нажата кнопка мыши "; Button
Form1.Print "Доп. Кнопки клав."; Shift

В первой строке используется метод CLS (Clear - Очистить, Screen - Экран, сцена), который очищает графическое содержимое нашей формы. Переменные X,Y, Button, Shift описываются самой визуальной системой разработки (VB-6.0). Переменные декларируются в скобках (в строке описания процедуры обработчика события)

Private Sub Form_MouseMove(Button As Integer , Shift As Integer , X As Single , Y As Single )
(Для тех, кто с нами впервые - откройте окно редактора кода. В появившимся окне, в левом верхнем раскрывающемся списке необходимо выбрать FORM, в правом MOUSE MOVE)
Запустите полученную программу (F5) и понаблюдайте за результатами работы.
Откройте новый проект и введите следующие строки для событий MouseUP

Form1.Print " Это событие MouseUP"
Form1.Print "X="; X
Form1.Print "Y="; Y
Form1.Print " Кнопка мыши "; Button
Form1.Print " доп. Кноп. клав."; Shift

Для события MouseDown
Form1.Print " Это событие MouseDown"
Form1.Print "X="; X
Form1.Print "Y="; Y
Form1.Print "Кнопка мыши"; Button
Form1.Print "доп. Кноп. клав."; Shift

Для события Click
Form1.Print "Это событие Click"

Для события DblClick.
Form1.Cls
Form1.Print " Это событие DblClick"

Вопросы выпуска:
  1. Какие коды имеют нажатые левая и правая кнопка вашей мыши, для события MouseMove?
  2. Какой код имеет нажатая кнопка Shift, в событии MouseDown?.
  3. Отличаются ли коды кнопок мыши и клавиатуры в разных событиях?
  4. Каков порядок возникновения событий "мыши"?

Ну, вот на сегодня всё. До скорой встречи!

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное