动态添加的窗体控件怎么写入代码

大灰狼1976

财知道 发表于 2024-8-16 16:11
等你回来。我看了不少，学不会。我想实现的是类似这样功能：
Private Sub CommandButton1_Click()
...

不用类，下面代码全部放到窗体模块

1. Public WithEvents cmdUnload As MSForms.CommandButton, WithEvents cmdHide As MSForms.CommandButton, WithEvents cmdSave As MSForms.CommandButton
   
2. 
   
3. Private Sub UserForm_Activate()
   
4. With Controls.Add("Forms.CommandButton.1", "cmdUnload")
   
5.   .Caption = "Unload me"
   
6.   .Top = 20
   
7. End With
   
8. With Controls.Add("Forms.CommandButton.1", "cmdHide")
   
9.   .Caption = "Hide me"
   
10.   .Top = 50
    
11. End With
    
12. With Controls.Add("Forms.CommandButton.1", "cmdSave")
    
13.   .Caption = "Save"
    
14.   .Top = 80
    
15. End With
    
16. Set cmdUnload = Me("cmdUnload")
    
17. Set cmdHide = Me("cmdHide")
    
18. Set cmdSave = Me("cmdSave")
    
19. End Sub
    
20. 
    
21. Private Sub cmdUnload_Click()
    
22. MsgBox "Unload Me" '换成你的处理代码
    
23. End Sub
    
24. 
    
25. Private Sub cmdHide_Click()
    
26. MsgBox "Hide Me"  '同上
    
27. End Sub
    
28. 
    
29. Private Sub cmdSave_Click()
    
30. MsgBox "Save"  '同上
    
31. End Sub

复制代码

财知道

大灰狼1976 发表于 2024-8-16 16:27
好的吧，今天不回家，没带电脑，明天看看

大灰狼，我找到响应事件的方法了，但有个按钮“模式切换”好像不好使。我重新上传一份，帮我诊断一下。

财知道

大灰狼1976 发表于 2024-8-16 14:35
如果用同一个事件，可以使用类，如果都是不同的事件，就多设几个实例呗

大灰狼，我找到响应事件的方法了，但有个按钮“模式切换”好像不好使。我重新上传一份，帮我诊断一下。

财知道

大灰狼1976 发表于 2024-8-17 13:29
不用类，下面代码全部放到窗体模块

你这个代码能用变量循环写吗？比如：
Private Sub UserForm_Activate()
arr = Array("Unload me", "Hide me", "Save")
For i = 1 To 3
   With Controls.Add("Forms.CommandButton.1", arr(i - 1), True)
     .Caption = arr(i - 1)
     .Move 60 * (i - 1) + 10, 20, 60, 20
   End With
   Set arr(i - 1) = Me(arr(i - 1))
Next i
End Sub

大灰狼1976

动态生成的窗体只能用这句启动
VBA.UserForms.Add(f.Name).Show
到这里没问题，但动态生成的窗体不能使用无模式，会出问题。
建议手动建立空窗体，然后其他控件动态生成就没问题了，可以直接userform.show启动，有模式无模式都正常。

大灰狼1976

财知道 发表于 2024-8-17 20:37
你这个代码能用变量循环写吗？比如：
Private Sub UserForm_Activate()
arr = Array("Unload me", "Hid ...

循环也可以，不过要用到类了，然后在类的事件代码里通过判断按钮名称来执行相应语句。

财知道

大灰狼1976 发表于 2024-8-17 21:29
动态生成的窗体只能用这句启动
VBA.UserForms.Add(f.Name).Show
到这里没问题，但动态生成的窗体不能使用 ...

原来是这样啊，动态生成的窗体不能使用无模式，我说怎么一直搞不定

财知道

大灰狼1976 发表于 2024-8-17 22:58
循环也可以，不过要用到类了，然后在类的事件代码里通过判断按钮名称来执行相应语句。

那还是麻烦你给写个类的代码，行吗？

大灰狼1976

财知道 发表于 2024-8-18 11:30
那还是麻烦你给写个类的代码，行吗？

使用类模块的简单示例，附件供参考。

财知道

大灰狼1976 发表于 2024-8-19 09:33
使用类模块的简单示例，附件供参考。

是在类模块中类似这样写代码吗？

Public WithEvents CmdBtn As MSForms.CommandButton

Private Sub CmdBtn_Click() '这里可判断name来执行相应的语句，要自己写
      If CmdBtn.Name = "Hide_me" Then MsgBox CmdBtn.Name
      If CmdBtn.Name = "Unload_me" Then Unload UserForm1
End Sub