vb动态按钮？ – 网络|

（1）新建一个VB6工程

（2）Form1窗体代码

OptionExplicit’定义要动态添加的命令按钮变量（带事件处理）DimWithEventscmdXAsCommandButton’点击动态添加的按钮，弹出对话框PrivateSubcmdX_Click()MsgBox”动态添加的命令按钮！！！”EndSub’鼠标双击窗体，动态添加一个命令按钮PrivateSubForm_DblClick()IfcmdXIsNothingThenSetcmdX=Controls.Add(“VB.CommandButton”,”cmd1″)cmdX.Caption=”点击偶呀”cmdX.Width=4500cmdX.Move150,150cmdX.Visible=TrueEndIfEndSub

（3）运行

启动后

鼠标双击窗体

点击命令按钮，弹出一个对话框