用代码生成窗体按钮后，点击按键不执行动作，请老师指点！谢谢！

danhanqing

Private Sub UserForm_Initialize()
    Dim i As Integer
    窗体宽度 = 282
    按钮间距 = 4
    左右间距 = 10
    按钮数量 = 3

    For i = 1 To Val(按钮数量)
        With 选择操作方式.Controls.Add("Forms.CommandButton.1")
            .Name = "按钮" & i '为每个按钮命名
            .Caption = "功能" & i  '设置按钮显示文本
            .Width = (窗体宽度 - 12 - (左右间距 * 2) - ((按钮数量 - 1) * 按钮间距)) / 按钮数量
            .Left = 左右间距 + (i - 1) * .Width + (i - 1) * 按钮间距
            .Top = 15
            .Height = 20
        End With
    Next i

   Me.Controls("按钮1").Caption = "电子凭证"
   Me.Controls("按钮2").Caption = "撤单"
   Me.Controls("按钮3").Caption = "取消"

   Me.Controls("按钮" & 按钮数量).SetFocus
End Sub

Sub 按钮1_Click()
    操作代码 = "电子凭证"
    Unload Me
End Sub

Sub 按钮2_Click()
    操作代码 = "撤单"
    Unload Me
End Sub

Sub 按钮3_Click()
    操作代码 = "取消"
    Unload Me
End Sub

剑指E

。         

danhanqing

剑指E 发表于 2024-1-4 22:57
。

再次感谢老师的帮助！
现在遇到一个新问题，如果我需要生成超过3个按钮时，就会出错，下标越界。分析测试了好久，还是没解决，请老师再指点一下，万分感谢！

danhanqing

剑指E 发表于 2024-1-4 22:57
。

Private Sub UserForm_Initialize()
'    按钮数量 = 3
'    按钮名称 = Array("电子凭证", "撤单", "取消")
'    默认按钮 = 3
    Dim i As Integer, ar
    窗体宽度 = 282
    按钮间距 = 4
    左右间距 = 10
    ar = 按钮名称
    For i = 1 To 按钮数量
        With 选择操作方式.Controls.Add("Forms.CommandButton.1")
          .Name = "按钮" & i
          .Caption = ar(i - 1)
          .Width = (窗体宽度 - 12 - (左右间距 * 2) - ((按钮数量 - 1) * 按钮间距)) / 按钮数量
          .Left = 左右间距 + (i - 1) * .Width + (i - 1) * 按钮间距
          .Top = 15
          .Height = 20
           Mybtn(i).CtlAdd Me.Controls(.Name), .Caption
        End With
    Next i
    Me.Controls("按钮" & 默认按钮).SetFocus
End Sub

sj15627581616

测试没啥问题，你是怎么写的？

darklesson

这位仁兄应该是上面的数组没有跟着改大小。

sj15627581616

danhanqing 发表于 2024-1-26 16:21
Private Sub UserForm_Initialize()
'    按钮数量 = 3
'    按钮名称 = Array("电子凭证", "撤单",  ...

你怎么还把变量赋值注释掉了？

剑指E

danhanqing 发表于 2024-1-26 16:20
再次感谢老师的帮助！
现在遇到一个新问题，如果我需要生成超过3个按钮时，就会出错，下标越界。分析测 ...

红圈内的3改大点.