动态生成标签及文本框

aails6543

一指禅62 发表于 2022-3-31 11:34
模仿这个帖子做的。VBA自动创建窗体及控件-《Excel VBA精粹/大全》系列论坛-ExcelHome技术论坛 -

老师你好，生成之后，如何将这个现在这窗体保存在文件中？(文本框和文字标签标签都保留着) 代码要怎么修改一下？

aails6543

生成之后，这个窗体的所有控件(包括标签和文本框)就都保留下来.
求助老师如何修改好， 我尝试几次修改未能成功

lsxhn

要多了一个思路，感谢楼主分享！

天门白云

一指禅62 发表于 2022-4-9 08:24

一指禅老师，你有一个动态生成的控件，需要跟其它的窗体用类来连接，我现在写不好，我是按照您的写的方法写的，就是完不成，您可以帮我指点一下的吗，万分感谢！下面是帖子的地址



https://club.excelhome.net/threa ... tml?_dsign=e3b6cb2e

大灰狼1976

aails6543 发表于 2022-4-21 11:33
生成之后，这个窗体的所有控件(包括标签和文本框)就都保留下来.
求助老师如何修改好， 我尝试几次修改未 ...

动态生成可保存的控件，可以用以下方法：

1. With ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls.Add("Forms.TextBox.1", "txt")
   
2.   .Top = 10
   
3.   .Left = 10
   
4.   .Height = 20
   
5.   .Width = 80
   
6. End With

复制代码

注意：
1、要开启信任中心对对象模型的访问权限；
2、不能写在需要动态生成控件的窗体模块中；
3、动态生成控件的同一个过程中，不能直接以UserForm1.Show方式加载，解决方法如下：

1. Sub test()
   
2. With ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls.Add("Forms.TextBox.1", "txt")
   
3.   .Top = 10
   
4.   .Left = 10
   
5.   .Height = 20
   
6.   .Width = 80
   
7. End With
   
8. 'UserForm1.Show 'NG
   
9. UserForms.Add("UserForm1").Show 'OK
   
10. test_1 'OK
    
11. End Sub
    
12. 
    
13. Sub test_1()
    
14. UserForm1.Show
    
15. End Sub

复制代码

一指禅62

天门白云 发表于 2024-3-1 11:31
一指禅老师，你有一个动态生成的控件，需要跟其它的窗体用类来连接，我现在写不好，我是按照您的写的方法 ...

不好意思，今天才回复您。您文件中的代码修改过了。供参考。

一指禅62

大灰狼1976 发表于 2024-3-1 13:51
动态生成可保存的控件，可以用以下方法：

注意：

谢谢老师的指导！