Kein Tabstop, kein SetFocus, kein Tooltiptext
04.04.2018 20:55:03
Ronald
Mich würde es interessieren, wieso es bei Textboxen auf Excelsheets andere
Eigenschaften gibt, als bei Textboxen auf UserFormen.
Ich habe eine Formular auf einem Label statt einer UserForm. Und nun kann ich
nicht von Textbox zu Textbox per Tab springen. Es geht einfach nicht. Zur
Entwurfszeit steht mir die Eigenschaft Tabstop nicht zur Verfügung. Ebenfalls
SetFocus gibts im IntelliSense nicht. Wieso ist das so und wie komme ich dennoch
zu meiner Funktion, daß ich von Textbox zu Textbox mit Tab springen kann?
Ebenfalls habe ich eine MouseMove-Funktion über einem Button eingebaut, welche
nur teilweise geht.
Private Sub cmdNeu_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
cmdNeu.ForeColor = vbRed
txtInfo.ForeColor = vbBlack
txtInfo.Text = "Erstellt einen neuen Eintrag in der nächsten freien Zeile."
cmdNeu.MousePointer = fmMousePointerHourGlass
Call Pause
End Sub
Die Buttonschriftfarbe ändert sich bei MouseOver nicht, ebensowenig weist es der
anderen Textbox einen Text zu, ebensowenig zeigt es die Sanduhr als Cursor.
Das Einzige, was es wirklich macht: es läßt die 5 Sekunden ablaufen, innerhalb
derer ich auch nichts anderes tun kann. Das begreife ich nicht.
Jetzt kommt das Unerklärliche: Wenn ich den Punkt fürs Einzelschrittdebuggen
auf "Private Sub cmdNeu_MouseOver etc" setze und einzeln durchdebugge, dann geht es.
Ich habe mal die Datei hochgeladen, zum Anschauen.
https://www.herber.de/bbs/user/120856.xlsm
Über Tips zu beiden Problemen würde ich mich sehr freuen; über eine
angeregte Diskussion zu etwas, was eigentlich gar nicht sein kann.
Danke im Voraus.
Gruß Ronald