TABINDEX während der Laufzeit ändern

Computer: Software & Programmierung Visual Basic
#1

Hallo,
mit nachfolgendem Code möchte ich erreichen das bei drücken von Tab oder Enter auf die Text oder ComboBox gesprungen wird. Das funtioniert bei Enter jedoch bei Tab wird zwar die nächste Box ausgewählt, jedoch bleibt sie mittig der Box stehen.

Private Sub TXTA4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if OptionButton1.value = true Then
If KeyCode = 13 Or KeyCode = 9 Then
TXTA6.SetFocus
end if
esleif OptionButton2.value = true Then
If KeyCode = 13 Or KeyCode = 9 Then 
TXTA5.SetFocus 
end if
End If
End Sub
WO liegt der Fehler?
Danke!
Gruß, Ludmila

#2

Moin, Ludmila,

Du machst es uns nicht leicht :wink:

Deine Combobox ist eine Listbox, und der TabIndex heißt ListIndex.

jedoch bleibt sie mittig der Box stehen.

Wenn eine Listbox den Focus erhät, dann zeigt sie sich so wie beim letzten Verlassen. Für ein Positionieren auf den Anfang schreibst Du zB

TXTA5.Listindex = 0

Wie das SetFocus bei der Listbox klappt, ist mir auch ein Rätsel, ich muss da Listbox.Select schreiben.

Gruß Ralf

#3

mit nachfolgendem Code möchte ich erreichen das bei drücken
von Tab oder Enter auf die Text oder ComboBox gesprungen wird.
Das funtioniert bei Enter jedoch bei Tab wird zwar die nächste
Box ausgewählt, jedoch bleibt sie mittig der Box stehen.

Hallo Ludmila,

und was hat das mit deinem Betreff bzw. deinem Stichwort Aktivierreihenfolge zu tun?
Lade bitte deine/eine aussagekräftige Beispielmappe hoch, z.B. mit fileupload, s. FAQ:2606

Ggfs. beschreibe wo du „stehst“ wenn du „drückst“.

Gruß
Reinhard

#4

Hallo Ralf,
Danke für Deine Mühe :wink:.

Es handelte sich nicht um eine Listbox sondern um eine Text bzw. ComboBox. Nachdem Du mir auf die Sprünge geholfen hast mit TXTA5.Listindex = 0 habe ich rumprobiert und bin dann auf die Lösung gekommen. Ich muß vor dem TXTA5.Setfocus KeyCode = 0 schreiben dann wird der Courser nicht mehr mittig plaziert.
Gruß, Ludmila