HWnd - kurzor v textboxu – Visual Basic – Fórum – Programujte.com

Ahoj,

mám stupidní dotaz ohledně hwnd a sice s kurzorem v Textboxu. O hwnd vím jenom to že je to nějaký komplexní nástroj s Handly Windows.

Našel jsem kódy, jak skrýt a zobrazit Caret v textboxu i jak vytvořit vlastní. Funguje to výborně, mám vlastní Caret jako načtený obrázek, ale jakmile mojí aplikaci překryje jiné okno, caret se změní na původní Windowsovský. Na událost Form_GotFocus to nijak nereaguje.

Prosím o pomoc, díky, Honza

příklad mého kódu:  

Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, _
ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long 
Private Declare Function LoadBitmapA Lib "user32" (ByVal hInstance&, ByVal ResID&) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long 
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long 


použití:
CreateCaret txtServer.hwnd, imlImages.ListImages(5).Picture, 8, 13
ShowCaret txtServer.hwnd

Focus nedostává form, ale ten textbox. Na něm ohandluj Got/LostFocus.