发信人: gzwsh(小伟)
整理人: winsy(2003-03-05 16:36:03), 站内信件
|
【 在 raeck 的大作中提到：】
:请问如何动态装载控件，而且对这个控件加上一些相关的语句？（如点击的动作）
:......
试试这样吧：
Private WithEvents cmd As CommandButton
Private Sub cmd_Click()
MsgBox "ok"
End Sub
Private Sub Form_Load()
Set cmd = Controls.Add("vb.commandbutton", "cmd")
cmd.Visible = True
cmd.Caption = "&ok"
End Sub |
|