Make your own free website on Tripod.com

Home
Home

--- Soumis par  Dev Ashish---

Changer le curseur d'édition.

(Q)    Comment changer le curseur normal (ligne) en cours d'étition 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 **********