3个回答
展开全部
Private Sub Command1_Click()
Open "c:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
以上是写,下面是读,必须有"c:\1.txt" 这个文件
Private Sub Command2_Click()
Text1.Text = ""
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1
End Sub
Open "c:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
以上是写,下面是读,必须有"c:\1.txt" 这个文件
Private Sub Command2_Click()
Text1.Text = ""
Open "c:\1.txt" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询