[已解决]请【老师】帮忙解决！看看为什么会这样！

ygzt

大灰狼1976 发表于 2017-7-24 15:16
实际上call commandbutton2语句也可以不要。
Private Sub CommandButton1_Click()
On Error Resume Next
...

老师！如拿掉 On Error Resume Next 容错语句

       该怎样加个判断，而不会报错~！？

大灰狼1976

以下代码，注意n的值根据实际情况修改，目前的例子是适用的。
Private Sub CommandButton1_Click()
Dim i&, tp&, lft&, wid&, hgt&, CB, n&
tp = 100: hgt = 20: wid = 76: CB = ComboBox1.Value
n = Controls.Count
For i = 1 To 10
  If n > 10 Then Controls.Remove CB & i & "W"
  With Controls.Add("Forms." & CB & ".1")
      .Visible = True
      .Name = CB & i & "W"
      .Value = .Name
      .Top = tp
      .Left = lft
      .Height = hgt
      .Width = wid
      .SpecialEffect = 6
      lft = lft + .Width
  End With
Next i
End Sub

ygzt

大灰狼1976 发表于 2017-7-25 08:48
以下代码，注意n的值根据实际情况修改，目的的例子是适用的。
Private Sub CommandButton1_Click()
Dim i ...

谢谢您~！大灰狼老师！