# 关于动态产生控制项

Posted by 百吉 on May 22, 1999 at 18:06:47:

在阿柳VB 6.0的书中提及用load & unload来动态增减控制项
，也可用Controls.Add与Controls.Remove来增减控制项，我打算
用 Controls.Add来完成类似阿柳VB 6.0的书中 EX10-13的例子
我的程式码如下

Option Explicit

Dim WithEvents ctlMyControl As CommandButton

Private Sub ctlMyControl_Click()
MsgBox "产生动态元件一"
End Sub

Private Sub Form_Click()
Dim test As Long
Dim test1 As Long
For test = 1 To 2
Set ctlMyControl = Controls.Add("VB.CommandButton", "newCam")
ctlMyControl.Left = 240 + (test * 1600)
ctlMyControl.Top = 240
ctlMyControl.Caption = "离开(&X)"
ctlMyControl.Visible = True
test = test + 1
Next
End Sub

Private Sub Form_Load()
Set ctlMyControl = Controls.Add("VB.CommandButton", "buttom")
ctlMyControl.Left = 240
ctlMyControl.Top = 240
ctlMyControl.Caption = "离开(&X)"
ctlMyControl.Visible = True
End Sub

在我执行后click一次Form时可动态的产生一个CommandButtom，
但我第二次click Form时，却出现 "已有一名为newCam的控制项存在"
我该如何修改此程式，方可完成动态的产生多个控制项。谢谢。

Follow Ups:

- Re: 关于动态产生控制项 帅帅阿柳 22:47:20 5/23/99 (1)
  - 抱歉,补充一点 帅帅阿柳 00:03:12 5/24/99 (0)