新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用文件记录,示例:记录窗体最后运行时的大小和位置
潘集网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、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