Question

我找不到实现这个目标的方法。基本上，我只需要一种方法来获取文本框中选定的文本部分。这个想法是用户可以双击较大字符串中的单词以自动搜索另一组数据。

如果可以使下面的内容工作，则所选文本将只调用运行我的搜索过程的函数。以下不起作用，我的许多在线发现只捕获整个文本框。有什么想法吗？

Private Sub txtproductName_DblClick(Cancel As Integer)
    Debug.Print txtproductName.SelText
End Sub

Answer 1

我使用了MouseUp而不是

Private Sub txtproductName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Len(txtproductName.SelText) > 0 Then
    'do my thing
    Debug.Print txtproductName.SelText
    Else
    'do nothing
    End If
End Sub

Answer 2

您可以使用LostFocus事件。

Private Sub txtproductName_LostFocus()
    MsgBox Me.txtproductName.SelText
End Sub

MS Access VBA：从文本框中获取文本的选定部分？

2 个答案: