Über die Locked-Eigenschaft kann man bekanntlich eine TextBox gegen Dateneingabe sperren. Erhält die TextBox den Fokus blinkt aber weiterhin der Eingabecursor. Soll auch das verhindert werden, reicht der Aufruf einer einzigen API-Funktion - und schon "verschwindet" der Eingabecursor auf nimmer Wiedersehen. ' benötigte API-Deklatation Private Declare Function HideCaret Lib "user32" ( _ ByVal hwnd As Long) As Long Der Aufruf der HideCaret-Funktion erfolgt am besten im GotFocus-Ereignis der TextBox: ' TextBox locked? Cursor ausblenden! Private Sub Text1_GotFocus() If Text1.Locked Then HideCaret Text1.hWnd End If End Sub Der Eingabecursor bleibt jetzt aber auch unsichtbar, wenn die TextBox wieder entsperrt wird. Aber keine Bange - das Windows-API bietet hierfür natürlich auch das Gegenstück zu HideCaret: ShowCaret ' API-Deklaration Private Declare Function ShowCaret Lib "user32" ( _ ByVal hwnd As Long) As Long Erweiterung des Codes: ' TextBox locked? Cursor ausblenden! Private Sub Text1_GotFocus() If Text1.Locked Then HideCaret Text1.hWnd Else ShowCaret Text1.hWnd End If End Sub |