7,763
社区成员
发帖
与我相关
我的任务
分享请教,我动态创建了一个按钮,想给这个按钮写个单击事件,不知怎么写
Dim cmd As Object
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
然后该怎么给这个按钮写单击事件呢?
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
然后该怎么给这个按钮写单击事件呢?
...全文
请发表友善的回复…
发表回复
wklucky 2006-02-28
- 打赏
- 举报
学习
EricaNet 2005-09-07
- 打赏
- 举报
Mark
northwolves 2005-09-07
- 打赏
- 举报
如果我想创建这样一个控件数组呢?
--------------------------------------
'先添加一个COMMAND1,INDEX设为0
Private Sub Form_Load()
Command1(0).Visible = False
For I = 1 To 5
Load Command1(I)
Command1(I).Move 0, I * 300, 1000, 300
Command1(I).Visible = True
Command1(I).ToolTipText = "command1(" & I & ")"
Next
End Sub
Private Sub Command1_Click(Index As Integer)
MsgBox "you clicked command1(" & Index & ")"
End Sub
--------------------------------------
'先添加一个COMMAND1,INDEX设为0
Private Sub Form_Load()
Command1(0).Visible = False
For I = 1 To 5
Load Command1(I)
Command1(I).Move 0, I * 300, 1000, 300
Command1(I).Visible = True
Command1(I).ToolTipText = "command1(" & I & ")"
Next
End Sub
Private Sub Command1_Click(Index As Integer)
MsgBox "you clicked command1(" & Index & ")"
End Sub
northwolves 2005-09-07
- 打赏
- 举报
Private Sub Command1_Click(Index As Integer)
MsgBox "you clicked command1(" & Index & ")"
End Sub
如果我想创建这样一个控件数组呢?
--------------------------------------
'先添加一个COMMAND1,INDEX设为0
Private Sub Form_Load()
Command1(0).Visible = False
For I = 1 To 5
Load Command1(I)
Command1(I).Move 0, I * 300, 1000, 300
Command1(I).Visible = True
Command1(I).ToolTipText = "command1(" & I & ")"
Next
End Sub
MsgBox "you clicked command1(" & Index & ")"
End Sub
如果我想创建这样一个控件数组呢?
--------------------------------------
'先添加一个COMMAND1,INDEX设为0
Private Sub Form_Load()
Command1(0).Visible = False
For I = 1 To 5
Load Command1(I)
Command1(I).Move 0, I * 300, 1000, 300
Command1(I).Visible = True
Command1(I).ToolTipText = "command1(" & I & ")"
Next
End Sub
hxy2003 2005-09-07
- 打赏
- 举报
Mark
atila1978 2005-09-06
- 打赏
- 举报
控件数组实现不了。呵
faysky2 2005-09-06
- 打赏
- 举报
控件数组不好实现吧
liao183 2005-09-06
- 打赏
- 举报
如果我想创建这样一个控件数组呢?
cumtbwxj 2005-09-06
- 打赏
- 举报
Private WithEvents cmd As CommandButton
回复人： viena(维也纳nn-实心木头人) ( ) 信誉：100
Private Sub Form_Load()
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
End Sub
Private Sub cmd_Click()
MsgBox "点击了按钮cmd1"
End Sub
正解
回复人： viena(维也纳nn-实心木头人) ( ) 信誉：100
Private Sub Form_Load()
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
End Sub
Private Sub cmd_Click()
MsgBox "点击了按钮cmd1"
End Sub
正解
viena 2005-09-06
- 打赏
- 举报
Private WithEvents cmd As CommandButton
Private Sub Form_Load()
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
End Sub
Private Sub cmd_Click()
MsgBox "点击了按钮cmd1"
End Sub
Private Sub Form_Load()
Set cmd = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd.Visible = True
cmd.ZOrder 0
End Sub
Private Sub cmd_Click()
MsgBox "点击了按钮cmd1"
End Sub
思诺赛克 2005-09-06
- 打赏
- 举报
up
winehero 2005-09-06
- 打赏
- 举报
在form_load中还要加上cmd.visible=true，还有设置位置等。
控件事件中Info.Name是事件名称。
Info.EventParameters.Item(i)是事件中第i个参数（i从1开始）
控件事件中Info.Name是事件名称。
Info.EventParameters.Item(i)是事件中第i个参数（i从1开始）
winehero 2005-09-06
- 打赏
- 举报
使用VB提供的VBControlExtender就可以编写事件代码了
Private WithEvents cmd As VBControlExtender
Private Sub Form_Load()
'Licenses.Add "VB.CommandButton"
Set cmd = Me.Controls.Add("VB.CommandButton", "mycommand1")
End Sub
'于是可以在按钮cmd控件事件中可写脚本
Private Sub cmd_ObjectEvent(Info As EventInfo)
Select Case Info.Name
Case "Click"
'写单击按钮的代码：
Case "LostFocus"
'写失去焦点事件代码
Case Else
End Select
End Sub
Private WithEvents cmd As VBControlExtender
Private Sub Form_Load()
'Licenses.Add "VB.CommandButton"
Set cmd = Me.Controls.Add("VB.CommandButton", "mycommand1")
End Sub
'于是可以在按钮cmd控件事件中可写脚本
Private Sub cmd_ObjectEvent(Info As EventInfo)
Select Case Info.Name
Case "Click"
'写单击按钮的代码：
Case "LostFocus"
'写失去焦点事件代码
Case Else
End Select
End Sub
