vb怎样在运行时添加某一控件

Question

需要用到控件数组,先在窗口上加入想要的控件,其index设为0,以后要用时load该控件名称即可,例如:
   load text(1)'text指控件名

Answer 1

试试这个：
Dim WithEvents myCon As CommandButton
Private Sub Form_Load()
Set myCon = Me.Controls.Add("VB.CommandButton", "comOne")
myCon.Visible = True
myCon.Left = 100
myCon.Top = 100End SubPrivate Sub myCon_Click()
MsgBox "你点中我了"
End Sub其中add 后的参数为（类名，控件名[，容器名]）

Answer 2

Option Explicit
Dim WithEvents objExt As VBControlExtender ' Declare VBControlExtender variable WithEventsPrivate Sub LoadControl()
   Licenses.Add "Project1.Control1", "ewrinvcmcoe"
   Set objExt = Controls.Add("Project1.Control1", "myCtl")
   objExt.Visible = True ' The control is invisible by default.
End SubPrivate Sub extObj_ObjectEvent(Info As EventInfo)
   ' Program the events of the control using Select Case.
   Select Case Info.Name
   Case "Click"
      ' Handle Click event here.
   ' Other cases now shown
   Case Else ' Unknown Event
      ' Handle unknown events here.
   End Select
End Sub

Answer 3

MSDN上就有，为什么不去看看呢!!

Answer 4

n 为你要的控件数量
for i=1 to n
     load txtWEB(i)
     txtWEB(i).left=txtWEB(i-1).left
     txtWEB(i).top=txtWEB(i-1).top + 100
     txtWEB(i).visible=true
next i
不知道你要的是不是这个意思！