Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006 icon

Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006



Смотрите также:
Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа 2006...
Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006...
Учебное пособие Часть 3 Рекомендовано учебно-методическим советом угаэс уфа-2006...
Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2006...
Учебное пособие Рекомендовано учебно-методическим советом угаэс уфа-2010...
Учебное пособие Рекомендовано учебно-методическим советом по анатомии и гистологии...
Учебное пособие Рекомендовано Дальневосточным региональным учебно-методическим центром...
Учебное пособие для студентов специальности 5B050200 «Политология» Павлодар...
Учебное пособие Часть I рекомендовано научно-методическим советом университета белгород...
Учебное пособие Изд. 2-е, перераб и доп. Петрозаводск Издательство Петргу 2006...
Учебное пособие Изд. 2-е, перераб и доп. Петрозаводск Издательство Петргу 2006...
Учебное пособие Рекомендовано Учебно-методическим объединением по образованию в области водного...



страницы: 1   2   3   4   5   6   7
вернуться в начало
скачать


Событие нажатие кнопки мышки MouseDown возникает сразу после нажатия на кнопку мыши, когда указатель находиться на объекте. Пример обработчика события.

^ Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single)

If Button = VbLeftButton Then

MousePointer = VbCustom 'указатель мыши по выбору

Mouselcon = LoadPicture("...\Cursors\pencil.cur")

End If

End Sub

Событие перемещение указателя мышки MouseMove возникает, когда указатель перемещается над объектом, при этом кнопка мыши необязательно должна быть нажата. Пример.

^ Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single,Y As Single)

If Button = VbLeftButton Then ' нажата левая кнопка мыши

PSet(X, Y) 'ставим точку

End If

End Sub

Событие отпускание кнопки мышки MouseUp возникает сразу после отжатия кнопки мыши, когда указатель находиться на объекте. Пример.

^ Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

If Button = VbLeftButton Then

MousePointer = VbDefault 'указатель мыши по умолчанию

End If

If Button = vbRightButton Then Cls

End Sub


При написании кода обработки событий необходимо учитывать следующее.

При щелчке кнопки мыши происходит три события в следующей последовательности: ^ MouseDown, MouseUp, Click.

При двойном щелчке кнопки мыши происходит пять событий в следующей последовательности: MouseDown, MouseUp, Click, DblClick, MouseUp.

Событие DblClick "два в одном" происходит после второго щелчка левой кнопки мыши, когда указатель находится на объекте. Например, событие первый щелчок выделяет строку и делает ее текущей в списке List1, второй позволяет выполнить код события – DblClick.


Private Sub List1_DblClick()

List2.AddItem List1.Text 'добавить строку в список List2

List1.RemoveItem List1.ListIndex 'удалить строку из списка List1

end Sub

^

2.6.5. Обработка событий клавиатуры


Каждая клавиша на клавиатуре имеет свой код сканирования (не путать с кодом символа, хотя некоторые значения совпадают), которому Visual Basic ставит в соответствие свои константы.
^

2.6.5.1. Коды клавиш


Таблица 2.29

Констатнта

Код

Клавиша

Констатнта

Код

Клавиша

VbKeyBack

8

BackSpace

vbKeyFl - vbKeyF12

112 - 123

F1 - F12

vbKeyTab

9

Tab

vbKeyPageUp

33

PageUp

VbKeyReturn

13

Enter

VbKeyPageDown

34

PageDown

VbKeyShift

16

Shift

VbKeyEnd

35

End

VbKeyControl

17

Ctrl

VbKeyHome

36

Home

VbKeyEscape

27

Esc

VbKeyLeft

37

влево

VbKeySpace

32

Пробел

VbKeyUp

38

вверх

vbKeyDelete

46

Delete

VbKeyRight

39

вправо

vbKeyA-VbKeyZ

65 - 90

А - Z

VbKeyDown

40

вниз


Объекты, допускающие ввод с клавиатуры имеют события KeyPress, KeyDown и KeyUp. При помощи логического свойства KeyPreview можно управлять порядком, в котором Windows обрабатывает эти события: по умолчанию сначала события клавиатуры формы, а потом элементов управления (значение свойства формы KeyPreview = True), или наоборот, KeyPreview=False.

Событие ввод символа KeyPress возникает после ввода символов. Процедура события KeyPress имеет параметр KeyAscii - код символа: буквы, цифры, знаки на стандартной клавиатуре, а также клавиш Enter, Esc, Tab, BackSpace и Space.

Событие нажатие клавиши KeyDown возникает сразу после опускания клавиши. Событие отпускания клавиши KeyUp возникает сразу после подъема клавиши.

Процедуры событий KeyDown и KeyUp имеют параметры:

  • ^ Keycode – код клавиши (не зависит от регистра).

  • Shift – числовой параметр, соответствующий нажатой клавише:

1 - VbShiftMask - клавиша Shift,

2 - VbCtrlMask - клавиша Ctrl,

4 - VbAltMask - клавиша Alt.

Пример.


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Print " - код клавиши: " & Str(KeyCode)

Print "------------------------------------------"

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 13

Print "Enter - код символа: " & Str(KeyAscii)

Case 27

Print "Esc - код символа: " & Str(KeyAscii)

Case 32

Print "Space - код символа: " & Str(KeyAscii)

Case Else

Print Chr(KeyAscii) & " - код символа: " & Str(KeyAscii)

End Select

End Sub

Результат выполнения обработчиков событий Form_KeyUp и Form_KeyPress








Рис. 2.24. Коды символов и клавиш
^

2.6.7. Единицы измерения размеров


Основной единицей измерения размеров является твип (twip).

В 1 дюйме 1440 твипов, а в 1 см - 567 твипов.

В Visual Basic в качестве единиц измерения используются также пункты (в одном дюйме 72 пункта) и пиксели (наименьшая единица измерения разрешения монитора или принтера). Единица измерения размеров устанавливаются в свойстве ScaleMode.


  • VbUser или 0 – определенная пользователем единица измерения;

  • VbTwips или 1 – твипы; используется по умолчанию;

  • VbPoints или 2 – пункты;

  • VbPixels или 3 – пиксели;

  • VbCharacters или 4 – символы;

  • VbInches или 5 – дюймы;

  • VbMillimeters или 6 – миллиметры;

  • VbCentimeters или 7 – сантиметры.
^

2.6.8. Инструкции начала и завершения работы с формой



Таблица 2.30

Load

Загружает форму или элемент управления в память

Синтаксис: ^ Load object

Unload

Выгружает форму или элемент управления из памяти

Синтаксис: Unload object

End

Завершает программу без генерации событий Unload, QueryUnload, Terminate



^

2.6.9. Соглашения об именах объектов


При создании формы или элемента управления, Visual Basic устанавливает свойство объекта Name (т. е. его имя) по умолчанию. Например, для первой созданной кнопки свойство Name устанавливается равным command1, для второй - command2 и т. д. При разработке приложений с одной формой имя объекта, устанавливаемое по умолчанию, обычно не вызывает никаких проблем и в этом случае имена объектов можно оставить без изменения. Если приложение обладает сложной структурой и состоит из нескольких форм, то в этом случае бывает полезным переименовать объекты так, чтобы они различались. Для переименования объектов и переменных существует соглашение об именах, называемое венгерской нотацией. Суть соглашения состоит в следующем: имя объекта начинается с короткого префикса для объектов одного и того же класса. За префиксом следует собственно имя, отображающее суть объекта. В таблице приведены префиксы и примеры имен для управляющих элементов.
^

2.6.9.1. Префиксы имен объектов


Таблица 2.31

Объект

Префикс




Объект

Префикс

TextBox

Txt




Frame

Fra

Label

Lbl




Image

Img

CommandButton

Cmd




PictureBox

Pic

ListBox

Lst




Line

Lin

ComboBox

Cbo




Shape

Shp

HScrollBar

Hsb




FileListBox

Fil

VScrollBar

Vsb




DirListBox

Dir

OptionButton

Opt




DriveListBox

Drv

CheckBox

Chk




Data

Dat

Timer

Tmr




Form

Frm




оставить комментарий
страница4/7
Дата10.10.2011
Размер1,18 Mb.
ТипУчебное пособие, Образовательные материалы
Добавить документ в свой блог или на сайт

страницы: 1   2   3   4   5   6   7
Ваша оценка этого документа будет первой.
Ваша оценка:
Разместите кнопку на своём сайте или блоге:
rudocs.exdat.com

Загрузка...
База данных защищена авторским правом ©exdat 2000-2017
При копировании материала укажите ссылку
обратиться к администрации
Анализ
Справочники
Сценарии
Рефераты
Курсовые работы
Авторефераты
Программы
Методички
Документы
Понятия

опубликовать
Документы

наверх