API-Funktion wie aufrufen?
12.04.2021 12:43:28
Brigitta
ich würde gerne in der Textbox einer Userform den blinkenden Cursor ein-
und ausblenden. Im Netz hab ich gefunden, dass dies über API-Funktionen
zu machen ist.
https://www.vbarchiv.net/tipps/tipp_508-textbox-locked-cursor-weg.html
Dieser Code findet sich an vielen Fundstellen im Netz, nur funktioniert er
nicht einfach so.
CODE:
' Cursor ausblenden
Private Declare Function HideCaret Lib "user32" ( _
ByVal hwnd As Long) As Long
' Cursor einblenden
Private Declare Function ShowCaret Lib "user32" ( _
ByVal hwnd As Long) As Long
' Aufruf im Enter-Ereignis
Private Sub Text1_Enter()
If Text1.Locked Then
HideCaret Text1.hWnd
Else
ShowCaret Text1.hWnd
End If
End Sub
Wenn ich den Code kopiere und so eingebe, kann er nicht funktionieren, weil
die Textbox Text1 keine Eigenschaft "hwnd" verfügt. Es kommt ein
Laufzeitfehler.
Wenn ich das richtig verstehe, ist "hwnd" die Handle-Nr, mit der ich die API-
Funktion aufrufen muss.
Was ich nicht hinkriege:
(1) Wie komm ich an diese "hwnd" und
(2) wie sieht aus VBA heraus der richtige Aufruf der Funktion 'ShowCaret' aus?
Wäre für Hilfe sehr dankbar.
Freundliche Grüße
Brigitta