检测表单中的单击文本框

Question

我希望每次有人单击我的表单中的文本框时运行某个函数。到目前为止，我已经使用以下两个事件处理程序设法检测了它何时获得焦点以及何时双击，但我不确定如何在它已经具有焦点的情况下单击一次

。这里有人有捕捉这种事件的经验吗？我似乎在 VBA 编辑器的下拉菜单中找不到任何明显的嫌疑人。

Private Sub tbxTil_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.tbxTil = format(oppdater_dato(CDate(Me.tbxTil)), "dd.mm.yy", vbMonday, vbFirstFourDays)
End Sub
Private Sub tbxTil_Enter()
Me.tbxTil = format(oppdater_dato(CDate(Me.tbxTil)), "dd.mm.yy", vbMonday, vbFirstFourDays)
End Sub

Answer 1

您可以使用 Mouse 事件，如下所示：

Private Sub tbxTil_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "Click"
End Sub