VB翻開與保留txt文件的辦法。本站提示廣大學習愛好者:(VB翻開與保留txt文件的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是VB翻開與保留txt文件的辦法正文
本文實例講述了VB翻開與保留txt文件的辦法。分享給年夜家供年夜家參考。詳細以下:
Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' append saves over file if it assists Open filelocation For Append As #1 Print #1, text1.text Close #1 End Sub Private Sub cmdopen_Click() Dim filelocation As String ' show open box commondialog1.ShowOpen filelocation = commondialog1.FileName ' input files into text1.text Open filelocation For Input As #1 Do Until EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1 End Sub
願望本文所述對年夜家的VB法式設計有所贊助。