Programmierung Ereignisse: 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 |
Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz