窗体中增加命令按钮并删除

ptcool88899

VBA窗体内已有一个命令按钮（增加），按命令按钮（增加）再自动增加三个命令按钮，再按一下就删除三新增加的命令按钮，具体附件。请老师帮忙写一段完整程序，谢谢！急》》》》

chxw68

1. Private Sub Cmd_add_Click()
   
2.   With Me
   
3.     If .cmd_add.Caption = "增加" Then
   
4.       .cmd_add.Caption = "删除"
   
5.       For i = 1 To 3
   
6.         Set mybutton = .Controls.Add("Forms.commandButton.1")
   
7.         With mybutton
   
8.           .Name = "Cmd_" & i
   
9.           .Caption = "按钮" & i
   
10.           .Left = 100 + (i - 1) * 130
    
11.           .Height = 25
    
12.           .Width = 100
    
13.           .Top = 100
    
14.         End With
    
15.       Next
    
16.     Else
    
17.       .cmd_add.Caption = "增加"
    
18.       For i = 1 To 3
    
19.         .Controls.Remove "Cmd_" & i
    
20.       Next
    
21.     End If
    
22.   End With
    
23. End Sub
    

复制代码

chxw68

详见附件。

ptcool88899

谢谢老师了，请老师在帮忙下，那增加按钮名字不变删除，再按一下增加按钮就删除三个新增的按钮。那新增的排列改成竖

ptcool88899

Private Sub Cmd_add_Click()
  With Me
    If .Cmd_add.Caption = "增加" Then
      .Cmd_add.Caption = "增加>"
      For i = 1 To 3
        Set mybutton = .Controls.Add("Forms.commandButton.1")
        With mybutton
          .Name = "Cmd_" & i
          .Caption = "按钮" & i
          .Left = 100
          .Height = 25
          .Width = 100
          .Top = 60 + (i - 1) * 30
        End With
      Next
    Else
      .Cmd_add.Caption = "增加"
      For i = 1 To 3
        .Controls.Remove "Cmd_" & i
      Next
    End If
  End With
End Sub
抱歉上面问题没说明白，这样才能把新增的按钮名字：指定为如第一个“学习”第二个“恢复”第三个为“提高”并在新增按钮中写入执行程序如TextBox1.Text = vbCrLf & Sheet2.Range("a7").Text & vbCrLf & Sheet2.Range("b7").Text & vbCrLf & Sheet2.Range("c7").Text

ptcool88899

Private Sub Cmd_add_Click()
  With Me
    If .Cmd_add.Caption = "增加" Then
      .Cmd_add.Caption = "增加>"
      For i = 1 To 3
        Set mybutton = .Controls.Add("Forms.commandButton.1")
        With mybutton
          .Name = "Cmd_" & i
          .Caption = "按钮" & i
          .Left = 100
          .Height = 25
          .Width = 100
          .Top = 60 + (i - 1) * 30
        End With
      Next
    Else
      .Cmd_add.Caption = "增加"
      For i = 1 To 3
        .Controls.Remove "Cmd_" & i
      Next
    End If
  End With
End Sub
抱歉上面没说明白，新增命令按钮，能指定名称如：第一个“学习”、第二个为“恢复”、第三个为“提高”。并在新增三个命令按钮重新写入程序：如第一个“学习”TextBox1.Text = Sheet2.Range("a1").Text & vbCrLf & Sheet2.Range("b1").Text等。请老师在帮忙一下