Программирование
Веб программирование

Событие мышки , Урок 20 часть 2

 
 
'Это событие мышки , реагирует на нажатие
'добавьте лабел. вот код :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Label1.Caption = нажата  ' баттон тип булеан, принимает значеин 1 и о ,
'If Button = 1 Then MsgBox ("Событие Mouse Down")
End Sub

'Урок 20 - VB события. MouseUp и MouseDown (просмотров 18)
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MsgBox ("отжата")
End Sub

Есть вопросы? Спроси на нашем форуме!!
Карим [11.11.2011 02:09]

Это решение задачи на урок 20

ЭдикS@N [02.12.2011 11:50]

в этом коде какая та не доработка я проверял на своем vb-6 работает только отжать.

Карим [13.12.2011 15:40]

работает

Гость [05.03.2012 18:34]

ЭдикS@N, Такой код:
<code>
Private Sub FormMouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Caption = "&#202;&#237;&#238;&#239;&#234;&#224; &#231;&#224;&#230;&#224;&#242;&#224;"
End If
End Sub

Private Sub Form
MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Caption = "&#202;&#237;&#238;&#239;&#234;&#224; &#238;&#242;&#230;&#224;&#242;&#224;"
End If
End Sub


</code>

Пердик [14.06.2012 04:36]

Private Sub Label1MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Label1.Caption = "нажата" ' баттон тип булеан, принимает значеин 1 и о ,
End Sub

Private Sub Label1
MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Label1.Caption = "отжата"
End Sub

Кавычки забыли

Samou4120 [05.03.2013 17:50]

мой код работает (Пердик, end if забыли)


Private Sub FormMouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Label1.Caption = "нажата"
End If

End Sub

Private Sub Form
MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Label1.Caption = "отжата"
End If

End Sub

zm2003160 [17.03.2013 13:10]

только отжата работает



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.