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

Soyez le premier à donner votre avis sur cette source.

Vue 8 804 fois - Téléchargée 1 007 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

cs_DARKSIDIOUS
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
78 -
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
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56 -
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
Claiyah
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
-
salut
je me suis inspirer de ta source pour faire cet exemple: http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS_51649.aspx
cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
60 -
Pas de souci.
Les sources n'ont d'intérêt qu'au travers de leurs améliorations.
Merci
Claiyah
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
-
merci jack

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.