APIs: Changer le curseur d'édition	Author(s) Dev Ashish

(Q)    Comment changer le curseur normal (ligne) en cours d'édition dans un contrôle d'édition?

(A)    On peut changer la hauteur et la largeur de ce curseur via la fonction API CreateCaret.

    Note:  S'assurer également de copier la fonction  fhWnd .

'********* Code Start ********
Private Declare Function apiCreateCaret Lib "user32" _
        Alias "CreateCaret" _
        (ByVal hWnd As Long, _
        ByVal hBitmap As Long, _
        ByVal nWidth As Long, _
        ByVal nHeight As Long) _
        As Long

Private Declare Function apiShowCaret Lib "user32" _
        Alias "ShowCaret" _
        (ByVal hWnd As Long) _
        As Long

Sub sMakeCaret(ctl As Control, _
                        intX As Integer, _
                        intY As Integer)
Dim hWnd As Long
    hWnd = fhWnd(ctl)
    Call apiCreateCaret(hWnd, 0&, intX, intY)
    Call apiShowCaret(hWnd)
End Sub
'************ Code End **********