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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question