扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
用文件记录，示例：记录窗体最后运行时的大小和位置
潘集网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。成都创新互联从2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
Dim bolNotFrist As Boolean
Private Sub Form_Activate()
If bolNotFrist Then Exit Sub
If Len(Dir("c:\a.dat")) = 1 Then Exit Sub
Open "c:\a.dat" For Input As #1
Input #1, a, b, c, d
Me.Top = a
Me.Height = b
Me.Left = c
Me.Width = d
Close #1
bolNotFrist = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "c:\a.dat" For Output As #1
Print #1, Me.Top, Me.Height, Me.Left, Me.Width
Close #1
End Sub
4 17:29:18
打开的资源你没有关闭,可能你缺少调用类似FileStream.Close() 的方法.
保存文件的步骤为：
关闭流，特别是写入流
关闭并保存文件
示例代码如下：
Imports System.Windows.Forms
Imports System.IO
Imports System.Text
Sub SaveFileDemo()
'打开文件。如果文件不存在则创建新的文件
Dim myFile As New IO.FileStream("d:\data.txt", _
FileMode.OpenOrCreate, _
FileAccess.Write)
'在文件末尾添加一行
Dim tw As New StreamWriter(myFile)
myFile.Seek(0, SeekOrigin.End)
tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")
'关闭流
tw.Close()
'关闭文件并保存文件
myFile.Close()
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网