如何动态添加非VB自带控件?

Question

如题...我有一个非VB自带的别的控件
控件名字就叫做 "kongjian"
请问如何让VB在运行时动态添加控件?可以的话...说一下用数组和不用数组的...
最好有代码...

Answer 1

看到 Dim WithEvents MyBtn As CommandButton 的用法
另外再问...假若我动态添加了10个按钮
10个按钮要有各自不同的Click响应事件...
请问该如何做?

Answer 2

定义10个   VBControlExtender ，每一个有自己的事件。Dim WithEvents OcxProjectDemo1 As VBControlExtenderSub Form_Load()
  Set OcxProjectDemo1 = Controls.Add("OcxProjectDemo.MainUIctl", "OcxProjectDemo1")
End subsub OcxProjectDemo1_ObjectEvent(Info As EventInfo)end sub
  

Answer 3

先在 Form 添加 一个 Command,Index 设置为 0然后
Load command(i)
就可以

Answer 4

BeSilent说的对
如果想要添加事件，如click,直接在form上双击,该事件中有个index参数，可以根据它判断做什么操作。

Answer 5

两种方式
(1)
将控件添加到工具箱
然后在 Form 添加 一个 改控件,Index 设置为 0,visible=false然后
Load kongjian_name(i)
就可以
(2)假设你做控件的工程project,控件的名pSet OcxProjectDemo1 = Me.Controls.Add("project.p", "pname")
pname可以随便取，但是在动态卸载时要用