| 发表于:2007-01-24 11:09:071楼 得分:0 |
option explicit dim withevents ctl as commandbutton private sub command1_click() set ctl = me.controls.add( "vb.commandbutton ", "cmd1 ") ctl.caption = "动态创建的按钮 " ctl.top = 10 ctl.left = 10 ctl.width = 1995 ctl.visible = true end sub private sub ctl_click() msgbox "动态创建按钮被点击 " end sub | | |
|