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
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 !
Les sources n'ont d'intérêt qu'au travers de leurs améliorations.
Merci
je me suis inspirer de ta source pour faire cet exemple: http://www.vbfrance.com/codes/DETECTER-MOT-SOUS-SOURIS_51649.aspx
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
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.