А. Мышь; некоторые события

Date: 2015-10-07; view: 345.

1. Cоздать на форме: текстовое поле (Name = txt1), 2 поля метки (Name = lbl1 и lbl2 соответственно), , ввести код, данный ниже,

2. стартовать проект, протаскивать первую метку над формой и текстовым полем, наблюдать появляющуюся при этом запись в текстовом поле, например: "Label above the TextBox" и т.д. Наблюдать, как при перемещении курсора мыши изменяются его координаты, выводимые в поле второй метки,

Должно быть установлено значение свойства одной из меток DragMode = 1, что обеспечивает возможность еe перемещения после старта проекта (альтернативное значение - 0). Свойство Tag, см. код, используется в данном случае для вывода названия объекта. В двух процедурах обработки события DragOver (см. код Form_DragOver(:) и txt1_DragOver(:) используется параметр source - объект).

Рис. 5.7.Мышь, некоторые события

Private Sub Form_Load()lbl1.Tag = "Label1"End Sub Private Sub Form_DragOver(source As Control, x As Single, y As Single, state As Integer)txt1.Text = source.Tag & "above the Form"End Sub Private Sub txt1_DragОver(source As Control, x As Single, y As Single, state As Integer)txt1.Text = source.Tag & "above the TextBox"End Sub Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)lbl2.Caption = Str(x) & ";" & Str(y)End Sub

<== previous lecture	\|	next lecture ==>
Практическая работа 38. Мышь	\|	В. Мышь; перетаскивание элементов списков

lektsiopedia.org - 2013 год. | Page generation: 0.003 s.