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

Soyez le premier à donner votre avis sur cette source.

Vue 9 088 fois - Téléchargée 1 029 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
Claiyah
Messages postés
580
Date d'inscription
mercredi 20 août 2008
Statut
Membre
Dernière intervention
20 avril 2010
3
20 avril 2010 à 17:39
merci jack
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
20 avril 2010 à 17:24
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
3
20 avril 2010 à 16:19
salut
je me suis inspirer de ta source pour faire cet exemple: http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS_51649.aspx
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
16 déc. 2009 à 14: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
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
131
1 mars 2004 à 17:00
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.