请教自制的文本控件不能保存里面的内容

Question

新建一个标准　EXE工程 菜单[工程]-[添加用户控件],选择用户控件,就进入用户控件设计界面 拖动一个文本框到界面上
里面写了些代码，新建的窗体里就加载了这个控件，想让程序运行时改变text里的内容，关闭程序再打开的时候text里内容为上次改过的内容，现在的问题是text内容改变后关闭程序在打开，还是text以前的内容，请教怎么能保存text里的内容。
Public Property Get TxtValue() As String
    TxtValue = Text1.Text
    
End PropertyPublic Property Let TxtValue(ByVal pStr As String)
    Text1.Text = pStr
    PropertyChanged "TxtValue"
  
End PropertyPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
    Text1.Text = PropBag.ReadProperty("TxtValue", "2")
End SubPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("TxtValue", Text1.Text, "")
End Sub

Answer 1

用open或FSO保存修改过的文件。

Answer 2

自制文本框控件里嵌入text1？
额...

Answer 3

概念不清。
设计时更改的属性相当与默认值，这个会自动保存，这样才能编译到 exe 中。
运行时的属性是实时状态，不会保存。

Answer 4

你必须明白控件的运行原理，控件从被放入容器的一瞬间就进入了运行状态，开始设置属性的默认值，但当我们单击运行菜单（或工具栏按钮），控件首先被卸载，而你在设计阶段的设置因为有WriteProperties事件而保存下来，等到运行状态的窗体生成，控件的新实例被放到新的窗体上，再由ReadProperties事件将属性从内存的副本中取回，所以新窗体的控件仍保留设计时的设置，但是当运行的窗体卸掉时，上面的控件（属性或其他已更改）也一并删除，所以，建议你设立自己的一种专用文件架构（就是一种新的文件格式，拓展名随你定），用来储存已更改的数据，并在UserControl设计器（ActiveX控件设计器）的Terminate事件（控件被卸载前发生）里，加入写入数据成文件的代码，而至于文件如何操作，最好还是建议用Open语句的操作方法，比较简便。有问题联系我：QQ：1838805008