level 1
2652152
楼主
求助 我自己折腾了好久了 新手新手求支援 下面是vb6.0的代码
Private Sub Command1_Click()
Open "test.txt" For Output As
#1 Print #
1, Text1.Text Print
#1, Text2.Text Close #
1
End Sub
Private Sub Form_Load()If Dir("test.txt", vbSystem) <> "" Then Open "test.txt" For Input As
#1 Line Input #
1, s1 Line Input
#1, s2Close #
1Text1.Text = s1Text2.Text = s2End If
End Sub
2012年11月30日 00点11分
1
Private Sub Command1_Click()
Open "test.txt" For Output As
#1 Print #
1, Text1.Text Print
#1, Text2.Text Close #
1
End Sub
Private Sub Form_Load()If Dir("test.txt", vbSystem) <> "" Then Open "test.txt" For Input As
#1 Line Input #
1, s1 Line Input
#1, s2Close #
1Text1.Text = s1Text2.Text = s2End If
End Sub