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

ygzt

GIF说明原因：



附件在这里：


附件： 生成ComboBoxtest-03.rar (20.94 KB, 下载次数: 12)

2017-7-24 13:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-24 15:16

实际上call commandbutton2语句也可以不要。
Private Sub CommandButton1_Click()
On Error Resume Next
Dim i&, tp&, lft&, wid&, hgt&, CB
tp = 100: hgt = 20: wid = 76: CB = ComboBox1.Value
For i = 1 To 10
  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

因为你再点击按钮时，并未把原来的10个COMBOBOX替换掉，只是覆盖上去了而已，然后再写入1~10的值时，还是写在原来的COMBOBOX内，所以看不到了，但是为什么两次添加的控件可以重复命名，这我真不明白，而且添加几次后，获取所有控件名时确实发现同样名称的控件非常多，但是无法正确取得它们的值。

大灰狼1976

第二个问题可以这样解决：
ComboBox2 = Me.Controls("ComboBox3W").Value

大灰狼1976

第一个问题解决方法，自动生成按钮时先删除原来已存在的控件：

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. Dim i&, tp&, lft&, wid&, hgt&, CB
   
4. tp = 100: hgt = 20: wid = 76: CB = ComboBox1.Value
   
5. For i = 1 To 10
   
6.   Controls.Remove CB & i & "W"
   
7. Next i
   
8. For i = 1 To 10
   
9.   With Controls.Add("Forms." & CB & ".1")
   
10.       .Visible = True
    
11.       .Name = CB & i & "W"
    
12.       .Top = tp
    
13.       .Left = lft
    
14.       .Height = hgt
    
15.       .Width = wid
    
16.       .SpecialEffect = 6
    
17.       lft = lft + .Width
    
18.   End With
    
19. Next i
    
20. Call CommandButton2_Click
    
21. End Sub

复制代码

大灰狼1976

这样也行，省一次循环。

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. Dim i&, tp&, lft&, wid&, hgt&, CB
   
4. tp = 100: hgt = 20: wid = 76: CB = ComboBox1.Value
   
5. For i = 1 To 10
   
6.   Controls.Remove CB & i & "W"
   
7.   With Controls.Add("Forms." & CB & ".1")
   
8.       .Visible = True
   
9.       .Name = CB & i & "W"
   
10.       .Top = tp
    
11.       .Left = lft
    
12.       .Height = hgt
    
13.       .Width = wid
    
14.       .SpecialEffect = 6
    
15.       lft = lft + .Width
    
16.   End With
    
17. Next i
    
18. Call CommandButton2_Click
    
19. End Sub

复制代码

大灰狼1976

实际上call commandbutton2语句也可以不要。
Private Sub CommandButton1_Click()
On Error Resume Next
Dim i&, tp&, lft&, wid&, hgt&, CB
tp = 100: hgt = 20: wid = 76: CB = ComboBox1.Value
For i = 1 To 10
  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

zjdh

第一个循环还是要的
For Each CT In Controls   '移除控件
        If InStr(CT.Name, "Box") Then Controls.Remove (CT.Name)
        If InStr(CT.Name, "Lab") Then Controls.Remove (CT.Name)
Next

ygzt

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

O(∩_∩)O谢谢【大灰狼老师】

ygzt

zjdh 发表于 2017-7-24 18:29
第一个循环还是要的
For Each CT In Controls   '移除控件
        If InStr(CT.Name, "Box") Then Contr ...

O(∩_∩)O谢谢
zjdh老师！！！