| TabStop |
| |
| |
| Private Sub chkTabStopTextfeld1_Click() | |
| txtTextfeld1.TabStop = Not CBool(chkTabStopTextfeld1.Value) |
| End Sub | |
| |
| Private Sub chkTabStopTextfeld2_Click() | |
| txtTextfeld2.TabStop = Not CBool(chkTabStopTextfeld2.Value) |
| End Sub | |
| |
| Private Sub cmdButton1_Click() | |
| cmdButton1.Caption = "Click-Ereignis" | |
| End Sub | |
| |
| Private Sub cmdButton1_GotFocus() | |
| cmdButton1.Caption = "GotFocus-Ereignis" | |
| End Sub |  |
| |
| Private Sub cmdButton1_LostFocus() | |
| cmdButton1.Caption = "Button1" | |
| End Sub | |
| |
| Private Sub cmdButton2_Click() | |
| cmdButton2.Caption = "Click-Ereignis" | |
| End Sub | |
| |
| Private Sub cmdButton2_GotFocus() | |
| cmdButton2.Caption = "GotFocus-Ereignis" | |
| End Sub | |
| |
| Private Sub cmdButton2_LostFocus() | |
| cmdButton2.Caption = "Button2" | |
| End Sub | |
| |
| Private Sub txtTextfeld1_GotFocus() | |
| txtTextfeld2.Text = "" |
| txtTextfeld1.Text = "Habe Fokus erhalten!" |
| txtTextfeld1.SelStart = 0 |
| End Sub |
|
| Private Sub txtTextfeld2_GotFocus() |
| txtTextfeld1.Text = "" |
| txtTextfeld2.Text = "Habe Fokus erhalten!" |
| txtTextfeld2.SelStart = 0 | |
| End Sub | |
| |
zurück