VB记忆文本框中的内容
答案:1 悬赏:70 手机版
解决时间 2021-04-01 15:12
- 提问者网友：听门外雪花风
- 2021-04-01 01:29
VB记忆文本框中的内容
最佳答案
- 五星知识达人网友：未来江山和你
- 2021-04-01 02:15
Private Sub Form_Load()
Dim r As String
Open App.Path + "\a.ini" For Binary As 1
If LOF(1) > 0 Then
Close (1)
Open App.Path + "\a.ini" For Input As 1
Text1 = ""
Do Until EOF(1)
Input #1, s
Text1 = Text1 + s
Loop
Close (1)
End If
Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path + "\a.ini" For Output As 1
Print #1, Text1
Close
End Sub
Dim r As String
Open App.Path + "\a.ini" For Binary As 1
If LOF(1) > 0 Then
Close (1)
Open App.Path + "\a.ini" For Input As 1
Text1 = ""
Do Until EOF(1)
Input #1, s
Text1 = Text1 + s
Loop
Close (1)
End If
Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path + "\a.ini" For Output As 1
Print #1, Text1
Close
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯