从品牌网站建设到网络营销策划,从策略到执行的一站式服务
用文件记录,示例:记录窗体最后运行时的大小和位置
潘集网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图