Insertion dans un richtextbox, placer le curseur par apport à la position de la souris
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 799 fois - Téléchargée 50 fois
Contenu du snippet
Sa sert a placer le curseur par apport a la position de la sourie dans un RichTextBox, ces un peu dur à explier mais ces plutot pratique pour la détection de liens hypertext, placer sans dans dragover et vous pouvez inserrer a des endroit précis et je l'utilise pour faire le pinceaux dans mon Ascii Art
Espéront que sa va vour êtres utile
Source / Exemple :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_CHARFROMPOS& = &HD7
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub TxtDessin_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim pt As POINTAPI
pt.x = x \ Screen.TwipsPerPixelX
pt.y = y \ Screen.TwipsPerPixelY
TxtDessin.SelStart = SendMessage(TxtDessin.hwnd, EM_CHARFROMPOS, 0&, pt)
End Sub
Conclusion :
Espéront que sa va vour êtres utile
A voir également
- Insertion dans un richtextbox, placer le curseur par apport à la position de la souris
- Curseur sql - Conseils pratiques -SQL
- Position souris - Conseils pratiques -Javascript
- Position aléatoire ✓ - Forum Flash
- Curseur de souris animé ✓ - Forum Visual Basic 6
- Position lettre alphabet - Forum Visual Basic
18 mars 2002 à 14:34
8 oct. 2001 à 20:26
8 oct. 2001 à 19:30
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.