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

【问题标题】：MS Access VBA: get selected portion of text from text box?MS Access VBA：从文本框中获取选定的文本部分？
【发布时间】：2013-05-01 03:38:36
【问题描述】：

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

如果可以使以下内容起作用，则所选文本将简单地调用一个运行我的搜索过程的函数。以下不起作用，我的许多在线查找仅捕获整个文本框。有什么想法吗？

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

【问题讨论】：

标签： ms-access vba

【解决方案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

【讨论】：

不知道为什么 DblClick 不起作用，但很高兴看到您找到了解决方案。
不幸的是，富文本格式会以这种方式丢失；）

【解决方案2】：

您可以使用 LostFocus 事件。

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

【讨论】：