Private Sub Command1_Click()
Dim filename As String
filename = "c:\1.txt"
If Dir$(filename, vbHidden Or vbNormal Or vbReadOnly)"" Then
Open filename For Append As #1
Print #1, Text1.Text
MsgBox "文本成功保存到" & filename & "中!", 64, "Success!"
Else
MsgBox "文件不存在,请确认文件名或路径是否正确!", 48, "Error!"
End If
Close #1
End Sub
加一个按钮,保存选课内容,下次运行时显示上次的内容……
在线等 悬赏不是问题100个
控件如图
|