十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
用文件記錄,示例:記錄窗體最后運(yùn)行時(shí)的大小和位置
潘集網(wǎng)站制作公司哪家好,找成都創(chuàng)新互聯(lián)!從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項(xiàng)目制作,到程序開(kāi)發(fā),運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)從2013年成立到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)。
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
打開(kāi)的資源你沒(méi)有關(guān)閉,可能你缺少調(diào)用類似FileStream.Close() 的方法.
保存文件的步驟為:
關(guān)閉流,特別是寫(xiě)入流
關(guān)閉并保存文件
示例代碼如下:
Imports?System.Windows.Forms
Imports?System.IO
Imports?System.Text
Sub?SaveFileDemo()
'打開(kāi)文件。如果文件不存在則創(chuàng)建新的文件
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("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")
'關(guān)閉流
tw.Close()
'關(guān)閉文件并保存文件
myFile.Close()
End?Sub