VB6のデータを保持したい

いつも、同じ値を入れておきたいなら、
textbox.textのプロパティに値を指定するか
フォームを開いたときのイベントで、
Private Sub Form_Load()
Me.Text1.Text = "foo"
End Sub
のように指定すればよい。
フォームに入力した値を保持したいなら、フォームを閉じるときに書き出して、開くときに読み出さなければいけない。
Private Sub Form_Load()
Dim FSO As New FileSystemObject
Dim TS As TextStream
Set TS = FSO.OpenTextFile(App.Path & "\formdata.txt", ForReading)
Me.Text1.Text = TS.ReadLine
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim FSO As New FileSystemObject
Dim TS As TextStream
Set TS = FSO.OpenTextFile(App.Path & "\formdata.txt", ForWriting, True)
TS.WriteLine Me.Text1.Text
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub
のように。（上記コードではあらかじめ、テキストファイルを作っておかないとエラーがおきるので、、）
データの保存は、データベースを使う場合もある。

投稿日時 - 2009-08-04 11:53:48