如何解决UserForm允许用户更新现有专用子代码的某些或多个位
有人会知道是否有可能或有关于如何允许用户更新现有私有子代码某些部分的想法吗?
例如:
当前:UserForm_Initialize Textbox1 =“测试”
用户更新后:UserForm_Initialize TextBox1 =“ Hello”
解决方法
假设您下次需要打开显示TextBox1
中使用的最后一个文本的表单,请使用下一种方法:
- 在表单代码之上(在声明区域中)复制下一个声明:
Option Explicit
'It is good to use relevant constants,able to better reflect their meaning:
Private Const MyApp As String = "MyApplication"
Private Const Sett As String = "Settings"
Private Const Txt1 As String = "Txt1Val"
- 将此代码放入TextBox1
Change
事件中:
Private Sub TextBox1_Change()
SaveSetting MyApp,Sett,Txt1,TextBox1.Text
End Sub
- 在
Userform_Initialize
事件中复制下一个代码:
Dim Txt1Val As String
Txt1Val = GetSetting(MyApp,"No value")
If Not Txt1Val = "No value" Then Me.TextBox2.Text = Txt1Val
现在,当用户更改TextBox1
文本时,新字符串将存储在注册表中,并在下一次UserForm初始化期间用于加载...
如果有不清楚的地方,请不要犹豫。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。