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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 904 fois - Téléchargée 9 fois


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

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.