动态添加已完成,但不知怎样给它添加事件啊?
各位大哥大姐们帮帮忙吧!

方法一:
Option Explicit
Private WithEvents objCheckBox As CheckBox

Private Sub Form_Load()
Set objCheckBox = Me.Controls.Add("VB.CheckBox", "objCheckBox", Form1)
With objCheckBox
.Caption = "这是动态生成的CheckBox"
.Move 100, 100, 5000, 500
.Visible = True
End With
End Sub

Private Sub objcheckbox_Click()
If objCheckBox.Value = vbChecked Then
MsgBox "Checked", , App.Title
Else
MsgBox "unChecked", , App.Title
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objCheckBox = Nothing
End Sub

[此贴子已经被作者于2006-12-24 21:26:26编辑过]

首先在窗体添加一个checkbox,把index属性设为0
Private Sub Form_Load()
For i = 1 To 10
Load Check1(i)
Check1(i).Left = Check1(i - 1).Left + Check1(i - 1).Width
Check1(i).Visible = True
Next

End Sub
事件
Private Sub Check1_Click(Index As Integer)
Select Case Index
Case 0
MsgBox "这是check1(0)"
Case 1
MsgBox "这是check1(1)"
Case 2
MsgBox "这是check1(2)"
Case 3
MsgBox "这是check1(3)"
Case 4
MsgBox "这是check1(4)"
Case 5
MsgBox "这是check1(5)"
Case 6
MsgBox "这是check1(6)"
.
.
.

End Select

End Sub

方法二:
Option Explicit

'先添加一个CheckBox控件在Form1上,然后将它的Index属性设置为0

Private Sub Form_Load()
Dim i As Long
For i = 1 To 5
Load Check1(i)
Check1(i).Move Check1(i - 1).Left + Check1(i - 1).Width, 0, 2000, 500
Check1(i).Visible = True
Next
End Sub

Private Sub Check1_Click(Index As Integer)
MsgBox "你点击了第" & Str(Index) & "个按扭"
End Sub

[此贴子已经被作者于2006-12-24 21:26:42编辑过]

三楼的那个Check1_Click()过程比较糟...

Private Sub Check1_Click(Index As Integer)
MsgBox "这是Check1(" & Str(Index) & ")"
End Sub

[此贴子已经被作者于2006-12-24 21:31:28编辑过]

呵呵...还是版主的高明呀...又学到叻好滴方法叻