主题:如何保存窗体中控件的属性
cewei
[专家分:0] 发布于 2012-05-29 23:29:00
比如窗体中有文本框,选择框等控件,我在文本框中填入文字后怎么保存这个窗口中所有控件的状态,下载载入窗体时一并载入这个文件就可以不用在填写控件了?
回复列表 (共5个回复)
沙发
啊远 [专家分:2610] 发布于 2012-05-29 23:36:00
控件的数据在程序运行时保存在计算机的内存中。End以后程序的所有内容会被自动释放掉!想保存内容必须自己在窗口销毁前自己保存到磁盘上,下次打开程序在程序加载完窗口控件以后自行把保存的数据重新写到控件中!
板凳
cewei [专家分:0] 发布于 2012-05-29 23:41:00
怎么保存呢?我刚接触这个,还不是太了解
3 楼
啊远 [专家分:2610] 发布于 2012-05-29 23:47:00
汗!!! 一一的读出窗口中控件的内容,按你自己想要的格式一一保存到指定的文件中!!
4 楼
啊远 [专家分:2610] 发布于 2012-05-30 00:09:00
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1935
ClientLeft = 60
ClientTop = 450
ClientWidth = 3360
LinkTopic = "Form1"
ScaleHeight = 1935
ScaleWidth = 3360
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txtMyInfo
Height = 1335
Left = 360
TabIndex = 0
Top = 240
Width = 2655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim iFn As Integer
Dim sTemp As String
iFn = FreeFile
Open App.Path & "\Data.txt" For Binary As iFn
sTemp = Space(LOF(iFn))
Get iFn, , sTemp
Close iFn
txtMyInfo.Text = sTemp
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim iFn As Integer
Dim sTemp As String
iFn = FreeFile()
Open VB.App.Path & "\Data.txt" For Output As iFn
Close iFn
iFn = FreeFile
Open App.Path & "\Data.txt" For Binary As iFn
sTemp = Me.txtMyInfo.Text
Put iFn, , sTemp
Close iFn
End
End Sub
5 楼
老大徒伤悲 [专家分:29120] 发布于 2012-05-31 08:51:00
设置控件属性有三种方案。
1、在属性窗口输入;
2、在运行代码里设定成固定值;
上述两种,你不必刻意去保存,在你报春窗体的时候就会保存到程序文件中。
3、通过其他数据文件(如txt、ini或者注册表)获得数据来设定
此方法,应该在卸载窗体的事件里,检测本次运行这个属性是否有过更改,如有过,则存入对应的文件。
我来回复