Personnaliser le curseur (caret) d'une zone de texte


Commenter

Contenu du snippet 

'   nécessite une textbox 
'   capture visible ici :  http://img138.imageshack.us/img138/6844/tten8.jpg 
Public Class Form1 
Private Declare Sub CreateCaret Lib "user32" (ByVal hwnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) 
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Integer) As Integer 
Dim Img As New Bitmap("D:\c.jpg") 
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus 
Dim h As Integer = TextBox1.Handle 
Dim p As Integer = Img.GetHbitmap.ToInt32 
        CreateCaret(h, p, 0, 0) 
        ShowCaret(h) 
End Sub 
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed 
        Img.Dispose() 
End Sub 
End Class 

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)