PROGRAM
Private Sub Text1_Click()
MsgBox ("click")
End Sub
Private Sub Text1_DblClick()
MsgBox ("double click")
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As
Integer)
MsgBox ("key down")
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox ("key press")
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As
Integer)
MsgBox ("key up")
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
MsgBox ("mouse down")
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
MsgBox ("mouse move")
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As Single)
MsgBox ("mouse up")
End Sub
0 Comment "KEYBOARD AND MOUSE EVENTS USING VISUAL BASIC"
Post a Comment