Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

"+{TAB}" mach trubble
Autor: Ronny42DAch
Datum: 04.11.01 10:23
beim Drücken der Cursertasten löst mal auch das shift TAB ereigniss aus und sendet ungewolt im keyup 160 - lässt sich das unterbinden? Anbei meine Keyevents! - - Danke ------------------------------------------------------- Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 37 Or KeyCode = 38 Then SendKeys ("+{tab}") 'den Focus anders versetzen ButtonGotFocus = False ZeichneF GoTo ende End If If KeyCode = 39 Or KeyCode = 40 Then SendKeys ("{tab}") 'den Focus anders versetzen ButtonGotFocus = False ZeichneF GoTo ende End If If lblButtonEnabeld.Enabled = False Then GoTo ende If KeyCode = 32 Then 'space ZeichneP RaiseEvent KeyDown(KeyCode, Shift) GoTo ende End If If KeyCode = 13 Then 'ENTER ZeichneP RaiseEvent Click GoTo ende End If If Curser = True Then GoTo ende RaiseEvent KeyDown(KeyCode, Shift) ende: End Sub Private Sub UserControl_KeyPress(KeyAscii As Integer) If lblButtonEnabeld.Enabled = False Then GoTo ende If KeyAscii = 13 Then GoTo ende 'enter RaiseEvent KeyPress(KeyAscii) ende: End Sub Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer) If lblButtonEnabeld.Enabled = False Then GoTo ende ZeichneU If KeyCode = 13 Then GoTo ende 'enter If KeyCode = 40 Then GoTo ende If KeyCode = 38 Then GoTo ende If KeyCode = 39 Then GoTo ende If KeyCode = 37 Then GoTo ende RaiseEvent KeyUp(KeyCode, Shift) If KeyCode = 32 Then RaiseEvent Click ende: End Sub

den Focus eines Steuerelements weitersetzen	104	Ronny42DAch	02.11.01 15:23
Re: den Focus eines Steuerelements weitersetzen	537	Dieter	03.11.01 16:25
"+{TAB}" mach trubble	68	Ronny42DAch	04.11.01 10:23

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen