VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1673|回复: 2

动态创建的命令按钮,如何编写代码激活他?

[复制链接]
发表于 2015-12-15 23:02:45 | 显示全部楼层 |阅读模式

  for i=1 to 3
            commandname = "commandA" & f
            Set newcommand = Controls.Add("VB.commandbutton", commandname)
            Set newcommand.Container = newframe
            newcommand.Move Frame0.Width / 3 * 2 - 1100, newoption.Top - 100, 1000, 330
            newcommand.BackColor = &HE0E0E0
            newcommand.Caption = "显示答案"
            newcommand.Font = "黑体"
            newcommand.Visible = True
        next i
  

       Private Sub Timer1_Timer()
          if Controls(commandname)_click then     '例如其中一个单击 ??为何单击却不无任何反应??
             msgbox("成功",,)
          endif
       end sub

点评

请勿重复发帖。。。  发表于 2015-12-15 23:18
发表于 2016-1-26 07:20:13 | 显示全部楼层
学习学习,谢谢
回复 支持 反对

使用道具 举报

发表于 2016-3-1 09:03:59 | 显示全部楼层
本帖最后由 LionCSQ 于 2016-3-1 09:08 编辑

Option Explicit

Private WithEvents newcommand As CommandButton

Private Sub Form_Load()
   Dim i As Long
   Dim commandname As String
‘   For i = 1 To 3
      commandname = "commandA" ‘& i
      Set newcommand = Controls.Add("VB.commandbutton", commandname)
      Set newcommand.Container = Me
      newcommand.Move (Me.ScaleWidth - 500) / 2, (Me.ScaleHeight - 165) / 2 - 100, 1000, 330
      newcommand.BackColor = &HE0E0E0
      newcommand.Caption = "显示答案"
      newcommand.Font = "黑体"
      newcommand.Visible = True
’   Next i
End Sub

Private Sub newcommand_Click()
   MsgBox "点击了新生成的按钮“" & newcommand.Caption & "”"
End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 21:35

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表