Question

我在文本框中有一篇很长的文章。我想在长篇文章中复制一个单词，只需将鼠标移动到该单词并等待2秒即可。我不想做突出这个词的任何事情。我可以知道如何让VB做到这一点吗？

由于

Answer 1

我在网上找到了以下代码。（归功于Siri1008）

Public Function GetWordUnderMouse(ByRef Rtf As System.Windows.Forms.RichTextBox, ByVal X As Integer, ByVal Y As Integer) As String
    On Error Resume Next
    Dim POINT As System.Drawing.Point = New System.Drawing.Point()
    Dim Pos As Integer, i As Integer, lStart As Integer, lEnd As Integer
    Dim lLen As Integer, sTxt As String, sChr As String
    '
    POINT.X = X
    POINT.Y = Y
    GetWordUnderMouse = vbNullString
    '
    With Rtf
        lLen = Len(.Text)
        sTxt = .Text
        Pos = Rtf.GetCharIndexFromPosition(POINT)
        If Pos > 0 Then
            For i = Pos To 1 Step -1
                sChr = Mid(sTxt, i, 1)
                If sChr = " " Or sChr = Chr(13) Or i = 1 Then
                    'if the starting character is vbcrlf then
                    'we want to chop that off
                    If sChr = Chr(13) Then
                        lStart = (i + 2)
                    Else
                        lStart = i
                    End If
                    Exit For
                End If
            Next i
            For i = Pos To lLen
                If Mid(sTxt, i, 1) = " " Or Mid(sTxt, i, 1) = Chr(13) Or i = lLen Then
                    lEnd = i + 1
                    Exit For
                End If
            Next i
            If lEnd >= lStart Then
                GetWordUnderMouse = Trim(Mid(sTxt, lStart, lEnd - lStart))
            End If
        End If
    End With
End Function

声明一个公共变量curWord。

然后，在RichTextBox的MouseMove事件中，put curWord = GetWordUnderMouse（Me.RichTextBox1，e.X，e.Y）

在表格上放置一个计时器并将其间隔设置为2000.在计时器事件中，输入 MSGBOX（curWord） Me.Timer1.Enabled = False

在RichTextBox MouseHover事件中，启用计时器。

Voila，这个词被选中，没有突出显示文本框。当然，如果您只是复制单词，则不需要msgbox，但是您应该可以对其进行排序。

如何使用mouseover事件在RichTextBox中选择一个单词

1 个答案: