Détecter le mot sous la souris sans cliquer (mouseover) d'un richtextbox
Soyez le premier à donner votre avis sur cette source.
Vue 8 962 fois - Téléchargée 1 020 fois
Description
Salut
Cette appli sert à retrouver le texte (d'un RichTextBox) qui se trouve sous la souris, sans cliquer : Manière de faire un MouseOver.
Cette appli sert à retrouver le texte (d'un RichTextBox) qui se trouve sous la souris, sans cliquer : Manière de faire un MouseOver.
Codes Sources
A voir également
- Détecter le mot sous la souris sans cliquer (mouseover) d'un richtextbox
- Richedit : détecter le mot sous le pointeur de la souris - Codes sources - Delphi / Pascal (Texte)
- Detection du passage de la souris sur un gif sans prendre en compte la partie tr ✓ - Forum - C# / .NET
- Detecter un mot dans un texte - Codes sources - Visual Basic / VB.NET (Texte)
- Simuler des actions de la souris (position,clique) - Codes sources - Delphi / Pascal (Souris, Clavier, etc.)
- Detecter un double clic de souris - Codes sources - Flash (Astuces)
- Messages postés
-
580
- Date d'inscription
- mercredi 20 août 2008
- Statut
- Membre
- Dernière intervention
- 20 avril 2010
3- Messages postés
-
14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
74Les sources n'ont d'intérêt qu'au travers de leurs améliorations.
Merci
- Messages postés
-
580
- Date d'inscription
- mercredi 20 août 2008
- Statut
- Membre
- Dernière intervention
- 20 avril 2010
3je me suis inspirer de ta source pour faire cet exemple: http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS_51649.aspx
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
68Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim oRichEdit As IRichEditOle
Dim oTextDocument As ITextDocument
Dim tPt As POINT
tPt.x = ScaleX(x, ScaleMode, vbPixels)
tPt.y = ScaleY(y, ScaleMode, vbPixels)
ClientToScreen RichTextBox1.hwnd, tPt
SendMessage RichTextBox1.hwnd, EM_GETOLEINTERFACE, 0, oRichEdit
Set oTextDocument = oRichEdit
With oTextDocument.RangeFromPoint(tPt.x, tPt.y)
.Expand rtfWholeWord
CcLblOveredWord.Caption = .Text
End With
End Sub
- Messages postés
-
15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
1189/10
DarK Sidious
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.