如何将一界面上的有用数据以文件形式保存到电脑中,急!

Question

比如界面上有一进度条控件Slider和一文本框Text,通过Slider的scroll事件来改变text的值,每次改变之后如何将text内的值及slider当前的value值以文件形式保存到电脑中,打开文件后数据又显示到界面上,最好有详细码,谢谢!

Answer 1

如果只是有限的界面，可以简单处理一下。
知道文件的读写操作就可以了。如果很多界面都需要保存的话，就需要好好研究一下，写一个通用的方法了。天狼工作室
http://www.j2soft.cn/

Answer 2

保存不难，但有一点我有些不明白，怎么打开？是在程序中打开？在程序中打开了，你想以什么样的形式显示？因为可能记录了多条数据，怎么对Slider赋值？

Answer 3

Option Explicit
    Dim zt_dm As String
    Dim zt_dmOld As StringPrivate Sub Form_Load()
    Timer1.Interval = 1000
    On Error GoTo useerr
    Open "C:\zt.txt" For Input As #1
        Input #1, zt_dm
    Close
    Text1 = zt_dm
    Exit Sub
useerr:
    zt_dm = Text1
    Open "C:\zt.txt" For Output As #1
        Print #1, zt_dm
    Close
End SubPrivate Sub Timer1_Timer()
    zt_dm = Text1
    If zt_dm <> zt_dmOld Then
        Open "C:\zt.txt" For Output As #1
            Print #1, zt_dm
        Close
    End If
    zt_dmOld = zt_dm
End Sub

Answer 4

建议使用ini配置文件会方便很多
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Answer 5

  Input #1, zt_dm这句是不是有问题啊
如果界面上有多组数据怎么办啊

Answer 6

这个根本没什么难度的。
Option ExplicitPrivate Sub cmdExit_Click()
    End
End SubPrivate Sub Form_Load()    Dim lVal&    If (Len(Dir$("ValSave.dat")) > 0) Then
        Open "ValSave.dat" For Binary As #1
        Get #1, , lVal
        Close
        sldSetNum.Value = lVal
        txtNum.Text = lVal
    Else
        txtNum.Text = sldSetNum.Value
    End IfEnd SubPrivate Sub sldSetNum_Scroll()    Dim lVal&
    lVal = sldSetNum.Value
    txtNum.Text = lVal
    Open "ValSave.dat" For Binary As #1
    Put #1, , lVal
    CloseEnd Sub在这里下载“启动时加载已存数据.rar”文档（1.6K）：〖SkyDrive〗

Answer 7

以下是我实际应用代码的一部分
Private Sub Form_Load()
    On Error GoTo uerror
    Open "c:\ldgz\data.txt" For Input As #1
        Input #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
        TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
    Close
    TxtgbwdS = TxtgbwdS_sj
    Txtgbwdx = Txtgbwdx_sj
    TxtZpwds = TxtZpwds_sj
    TxtZpwdx = TxtZpwdx_sj
    TxtPsqwds = TxtPsqwds_sj
    Txtpsqwdx = Txtpsqwdx_sj
    TxtGxzkd = TxtGxzkd_sj
    TxtPsqzk = TxtPsqzk_sj
    TxtBszkSet = TxtBszkSet_sj
    TxtGxzkSet = TxtGxzkSet_sj '060108要作为设置真空条件
    zhenkong = Left(TxtGxzkSet, 3) & Right(TxtGxzkSet, 1)
    TxtBswdSet = TxtBswdSet_sj
    alame_sj(0) = Val(TxtgbwdS)
    alame_sj(1) = Val(Txtgbwdx)
    alame_sj(2) = Val(TxtZpwds)
    alame_sj(3) = Val(TxtZpwdx)
    alame_sj(4) = Val(TxtPsqwds)
    alame_sj(5) = Val(Txtpsqwdx)
    alame_sj(6) = Val(TxtGxzkd)
    alame_sj(7) = Val(TxtPsqzk)
    alame_sj(8) = Val(TxtBszkSet)
    alame_sj(9) = Val(TxtGxzkSet)
    alame_sj(10) = Val(TxtGxzkSet)
    alame_sj(11) = Val(TxtBswdSet)
uerror:
End SubPrivate Sub cmdExit_Click()
    TxtgbwdS_sj = TxtgbwdS
    Txtgbwdx_sj = Txtgbwdx
    TxtZpwds_sj = TxtZpwds
    TxtZpwdx_sj = TxtZpwdx
    TxtPsqwds_sj = TxtPsqwds
    Txtpsqwdx_sj = Txtpsqwdx
    TxtGxzkd_sj = TxtGxzkd
    TxtPsqzk_sj = TxtPsqzk
    TxtBszkSet_sj = TxtBszkSet
    TxtGxzkSet_sj = TxtGxzkSet
    TxtBswdSet_sj = TxtBswdSet
    Open "c:\ldgz\data.txt" For Output As #1
        Write #1, TxtgbwdS_sj, Txtgbwdx_sj, TxtZpwds_sj, TxtZpwdx_sj, _
        TxtPsqwds_sj, Txtpsqwdx_sj, TxtGxzkd_sj, TxtPsqzk_sj, TxtBszkSet_sj, TxtGxzkSet_sj, TxtBswdSet_sj
    Close
    alame_sj(0) = TxtgbwdS
    alame_sj(1) = Txtgbwdx
    alame_sj(2) = TxtZpwds
    alame_sj(3) = TxtZpwdx
    alame_sj(4) = TxtPsqwds
    alame_sj(5) = Txtpsqwdx
    alame_sj(6) = TxtGxzkd
    alame_sj(7) = TxtPsqzk
    alame_sj(8) = TxtBszkSet
    zhenkong = Left(TxtGxzkSet, 3) & Right(TxtGxzkSet, 1)
    alame_sj(9) = Val(TxtGxzkSet)
    alame_sj(10) = TxtGxzkSet
    alame_sj(11) = TxtBswdSet
End Sub