Private Sub Command1_Click()
Form2.Show 1
End Sub
Private Sub Form_Load()
Dim a As String
If Dir("1.txt") <>"" Then
Open "1.txt" For Input As #1
Line Input #1, a
Text1.Text = a
Line Input #1, a
Form2.Text1.Text = a
Close #1
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "1.txt" For Output As #1
Print #1, Text1.Text
Print #1, Form2.Text1.Text
End
End Sub
第二个窗体只有一个文本框没有代码
打开一次是默认的,然后修改一下文本框里的值,点按钮可以修改第二个文本框的值,然后关闭所有窗口,下次代开的时候就发现你刚的修改还保存着。
这种代码没有统一的方法,必须自己根据需要手工修改
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)