回 帖 发 新 帖 刷新版面

主题:如何保存窗体中控件的属性

比如窗体中有文本框,选择框等控件,我在文本框中填入文字后怎么保存这个窗口中所有控件的状态,下载载入窗体时一并载入这个文件就可以不用在填写控件了?

回复列表 (共5个回复)

沙发

控件的数据在程序运行时保存在计算机的内存中。End以后程序的所有内容会被自动释放掉!想保存内容必须自己在窗口销毁前自己保存到磁盘上,下次打开程序在程序加载完窗口控件以后自行把保存的数据重新写到控件中!

板凳

怎么保存呢?我刚接触这个,还不是太了解

3 楼

汗!!! 一一的读出窗口中控件的内容,按你自己想要的格式一一保存到指定的文件中!!

4 楼

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 楼

设置控件属性有三种方案。
1、在属性窗口输入;
2、在运行代码里设定成固定值;
上述两种,你不必刻意去保存,在你报春窗体的时候就会保存到程序文件中。
3、通过其他数据文件(如txt、ini或者注册表)获得数据来设定
此方法,应该在卸载窗体的事件里,检测本次运行这个属性是否有过更改,如有过,则存入对应的文件。

我来回复

您尚未登录,请登录后再回复。点此登录或注册