请问窗体控件的click事件函数名可以自定义名字吗？

nokiarookie

有两个问题：
1、例如有一个CommondButton的名字是cmdTest，
     那么它对应的时间处理函数的名字必须是“cmdTest_Click”吗？
     如果可以改的话怎么把新函数的名字和这个CommondButton关联起来呢？谢谢


2、CommondButton有没有鼠标的双击事件呢？

请指教。谢谢！

一把小刀闯天下

'单个按钮完成2种事件吧？瞎掰了一个试一下。

Option Explicit

Public n

Private Sub cmdTest_Click()
  Call click
End Sub

Function click()
  Dim t
  t = Timer
  Do: DoEvents: Loop Until Timer - t >= 0.2
  If n = 1 Then n = 0: Exit Function
  Debug.Print "cmdTest_Click 单击"
End Function

Private Sub cmdTest_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  n = 1
  Debug.Print "cmdTest_Click 双击"
End Sub

nokiarookie

一把小刀闯天下 发表于 2018-3-20 18:02
'单个按钮完成2种事件吧？瞎掰了一个试一下。

Option Explicit

好的，    谢谢  ！