Private WithEvents cmd1 As CommandButton
Private WithEvents cmd2 As CommandButton
Private WithEvents cmd3 As CommandButton
Dim cmds(2) As CommandButton
Private Sub cmd1_Click()
MsgBox "you click cmd1"
End Sub
Private Sub cmd2_Click()
MsgBox "you click cmd2"
End Sub
Private Sub cmd3_Click()
MsgBox "you click cmd3"
End Sub
Private Sub Form_Load()
Set cmd1 = Controls.Add("VB.CommandButton", "cmd1")
Set cmd2 = Controls.Add("VB.CommandButton", "cmd2")
Set cmd3 = Controls.Add("VB.CommandButton", "cmd3")
For i = 1 To 3
Me.Controls("cmd" & i).Visible = True
Me.Controls("cmd" & i).Move 20, i * 600
Me.Controls("cmd" & i).Caption = "Command" & i
Next
End Sub
--------------------编程问答--------------------
同意楼上,随便唠叨上一句,别忘了定义
Dim i As Long
另外,其实看到这个定义
Dim cmds(2) As CommandButton
时,就估计楼主是尝试过用这样的控件数组太WithEvents,结果被报错了。关于这方面的问题,我想稍后另开帖子来讨论一下。
--------------------编程问答--------------------
在VB6.0中只能用控件数组来实现
严重误导。
Private WithEvents cmd1 As CommandButton
同意楼上,随便唠叨上一句,别忘了定义
Dim i As Long
另外,其实看到这个定义
Dim cmds(2) As CommandButton
时,就估计楼主是尝试过用这样的控件数组太WithEvents,结果被报错了。关于这方面的问题,我想稍后另开帖子来讨论一下。