form?
Dim WithEvents cmd As CommandButton ' Private Sub Form_Click() Set cmd = Controls.Add("vb.commandbutton", "cmd1") cmd.Visible = True End Sub Private Sub cmd_click() '动态按钮事件 MsgBox "" End Sub
Copyright © 广州京杭网络科技有限公司 2005-2024 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有