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

希望本文所述對(duì)大家的VB程序設(shè)計(jì)有所幫助。

您可能感興趣的文章:

VB
文件

相關(guān)文章

VB打開(kāi)與保存txt文件的方法
這篇文章主要介紹了VB打開(kāi)與保存txt文件的方法,涉及使用VB操作文本文件的相關(guān)技巧,需要的朋友可以參考下
2015-06-06
VB FileSystemObject對(duì)象實(shí)例詳解
FileSystemObject對(duì)象被用來(lái)訪問(wèn)服務(wù)器上的文件系統(tǒng)。這個(gè)對(duì)象能夠處理文件、文件夾和目錄路徑。用它來(lái)檢索文件系統(tǒng)信息也是可能的，而且vb與vbs、asp都是差不多的語(yǔ)法
2018-12-12
什么是一個(gè)高效的軟件
什么是一個(gè)高效的軟件...
2006-10-10
VB實(shí)現(xiàn)鼠標(biāo)繪圖實(shí)例代碼
這篇文章主要介紹了VB實(shí)現(xiàn)鼠標(biāo)繪圖實(shí)例代碼,很實(shí)用的一個(gè)功能,需要的朋友可以參考下
2014-07-07
VBA數(shù)組用法案例詳解
這篇文章主要介紹了VBA數(shù)組用法案例詳解,本篇文章通過(guò)簡(jiǎn)要的案例,講解了該項(xiàng)技術(shù)的了解與使用,以下就是詳細(xì)內(nèi)容,需要的朋友可以參考下
2021-08-08
使用WMI得到計(jì)算機(jī)的信息
WMI是一項(xiàng)行業(yè)推薦規(guī)范，旨在為訪問(wèn)企業(yè)環(huán)境中的管理信息而開(kāi)發(fā)一種標(biāo)準(zhǔn)化技術(shù)。該信息包括系統(tǒng)內(nèi)存的狀態(tài)、當(dāng)前安裝的客戶應(yīng)用程序清單，以及有關(guān)客戶端狀態(tài)的其他數(shù)據(jù)
2019-04-04
VB6中的LSet語(yǔ)句和RSet語(yǔ)句詳解
這篇文章主要介紹了VB6中的LSet語(yǔ)句和RSet語(yǔ)句詳解,LSet語(yǔ)句和RSet語(yǔ)句不太常用,所以知道的人不多,需要的朋友可以參考下
2014-07-07
VBA中連接SQLSERVER數(shù)據(jù)庫(kù)例子
這篇文章主要介紹了VBA中連接SQLSERVER數(shù)據(jù)庫(kù)例子,VBA是指Visual Basic for Applications,是Visual Basic的一種宏語(yǔ)言,需要的朋友可以參考下
2014-07-07
VB實(shí)現(xiàn)禁用任務(wù)管理器的方法
本文給大家介紹的是使用VB來(lái)實(shí)現(xiàn)禁用任務(wù)管理器的方法和示例，十分的簡(jiǎn)單實(shí)用，有需要的小伙伴可以參考下。
2015-06-06
VB返回記錄集結(jié)果到HTML表格的方法
這篇文章主要介紹了VB返回記錄集結(jié)果到HTML表格的方法,實(shí)例分析了VB獲取記錄集與HTML表格生成的相關(guān)技巧,需要的朋友可以參考下
2015-06-06