自制的Activex控件动态添加到程序中,如何响应控件的事件.

解决方案 »

  1.   

    新建一个Activex控件工程,添加两个按钮。
    Private Sub UserControl11_Botton1Click()
    MsgBox "你按下了第一个按钮"
    End SubPrivate Sub UserControl11_Botton2Click()
    MsgBox "你按下了第二个按钮"
    End Sub
    生成控件。
    新建一标准工程。
    添加生成的控件,
    Private Sub UserControl11_Botton1Click()
    MsgBox "你按下了第一个按钮"
    End SubPrivate Sub UserControl11_Botton2Click()
    MsgBox "你按下了第二个按钮"
    End Sub
    Botton1Click()和Botton2Click()就是自己添加的事件
    这只是最简单的。MSDN上有更详细的说明。
      

  2.   

    参考:
    http://www.applevb.com/art/dyn_control.txt
      

  3.   

    Private WithEvents mycontrol As Timer'你可以换成你的控件名   as 你的控件名
    Private Sub Form_Load()
    mycontrol.Interval = 1000
    End SubPrivate Sub mycontrol_Timer()
    Debug.Print Now
    End Sub
      

  4.   

    private withevents UserControl11 as UserControl1
      

  5.   

    使用Add方法动态添加控件并且可以让控件响应事件
    http://www.jxxx.ykedu.net/qsgjx/vbprograms/form/actaddctls.zip
      

  6.   

    http://www.blogbus.com/blogbus/blog/diary.php?diaryid=49006
      

  7.   

    http://blog.joycode.com/shannon/archive/2003/11/17/6854.aspx
      

  8.   

    http://blog.joycode.com/shannon/articles/6843.aspx