Détecter le mot sous la souris sans cliquer (mouseover) d'un richtextbox

Soyez le premier à donner votre avis sur cette source.

Vue 8 918 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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
1
merci jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Pas de souci.
Les 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
1
salut
je 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
65
Version exploitant ITextRange:

Private 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
103
Vraiment excellent ! Marche à merveille ! Juste dommage que ca scintille un peu, ce qui est dû aux nombreux événement souris, mais sinon, c'est parfait !

9/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.