推荐使用 ActiveX 控件接口向导来处理控件。
'事件声明:
Event Click()
Event DblClick()
Event KeyDown(KeyCode As Integer, Shift As Integer)
Event KeyPress(KeyAscii As Integer)
Event KeyUp(KeyCode As Integer, Shift As Integer)
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

解决方案 »

  1.   

    楼上讲的是事件的声明,你还需要触发事件的代码。在需要触发事件的地方加入 RaiseEvent 事件名(参数)才能在控件运行时触发事件。
    如:sub Usercontrol_Click()
        RaiseEvent Click
    end sub
      

  2.   

    在你想触發事件的地方寫上 RaiseEvent 事件名,當然,你得像1樓那樣先聲明事件.用 ActiveX 控件接口向导產生一個例子看看就明白了.
      

  3.   

    咱们的CSDN真不错高手如云啊!!!比太平洋论坛强多了。感谢各位!!!!