| Click, DblClick, MouseMove, KeyDown, KeyUp, KeyPress, Change |
| |
| |
| Private Sub cmdKlicken_Click() | |
| MsgBox Prompt:="Click-Ereignis erhalten!", Title:="Click-Ereignis eingetreten", Buttons:=vbExclamation |
| End Sub | |
|  |
| Private Sub Form_Click() | |
| MsgBox Prompt:="Formular hat Click-Ereignis erhalten!", _ |
| Title:="Ereignis eingetreten", Buttons:=vbExclamation |
| End Sub | |
| |
| Private Sub lstEreignisse1_Click() | |
| lstEreignisse1.Clear | |
| End Sub | |
| |
| Private Sub lstEreignisse2_Click() | |
| lstEreignisse2.Clear |
| End Sub |
|
| Private Sub picAusgabe_Click() |
| lstEreignisse1.AddItem "Bildfeld wurde angeklickt" |
| End Sub | |
| |
| Private Sub picAusgabe_DblClick() | |
| lstEreignisse1.AddItem "Bildfeld wurde doppelt angeklickt" |
| End Sub | |
| |
| Private Sub picAusgabe_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
| If chkMouseMove.Value Then lstEreignisse1.AddItem "Mauszeiger bei: " & X & "," & Y |
| End Sub | |
|  |
| Private Sub txtEingabe_Change() |
| lstEreignisse2.AddItem "Change-Ereignis" | |
| End Sub | |
| |
| Private Sub txtEingabe_Click() |
| lstEreignisse2.AddItem "Click-Ereignis" | |
| End Sub | |
| |
| Private Sub txtEingabe_DblClick() |
| lstEreignisse2.AddItem "DblClick-Ereignis" | |
| End Sub | |
| |
| Private Sub txtEingabe_KeyDown(KeyCode As Integer, Shift As Integer) |
| lstEreignisse2.AddItem "KeyDown-Ereignis" | |
| End Sub | |
| |
| Private Sub txtEingabe_KeyPress(KeyAscii As Integer) |
| lstEreignisse2.AddItem "KeyPress-Ereignis" | |
| End Sub | |
| |
| Private Sub txtEingabe_KeyUp(KeyCode As Integer, Shift As Integer) |
| lstEreignisse2.AddItem "KeyUp-Ereignis" | |
| End Sub | |
| |
zurück