如何顯示文本文件，同時點擊按鈕

Question

如何顯示文件（*。TXT）並單擊命令按鈕

使用VB 6

是新來的VB 6

如何同時點擊該按鈕

數據的存儲在文本文件中，前顯示該文件的內容的1.txt 當我點擊命令buttion，1.txt的文件將打開1.txt文件和數據的應顯示

需要VB 6代碼幫助？

Answer 1

要使用當前的默認文件處理程序打開文件，請嘗試使用ShellExecute API函數。

這是example。

Answer 2

沒有違法意圖，但它聽起來像你需要在VB6上的beginners tutorial。 （我認爲這是因爲你似乎無法清楚地表達你需要幫助的東西，可能是因爲你對你所要做的事情不夠了解）。

谷歌搜索VB6教程會給很多鏈接，this one看起來不錯

希望這有助於和道歉，如果我錯了:)

Answer 3

添加一個文本框形式，使其多=真，向窗體添加一個按鈕。 而在按鈕單擊處理程序補充一點：

Private Sub Button1_Click() 
    Dim iFile As Long 
    Dim strFilename As String 
    Dim strTheData as String 

    strFilename = "C:\1.txt" 

    iFile = FreeFile 

    Open strFilename For Input As #iFile 
    strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode) 
    Close #iFile 
    text1.text=strThedata 
End Sub 

這將讀取文件中的文本，並把它添加到文本框。

編輯：改變了閱讀的內容在此answer指出的MarkJ更穩健行

Answer 4

Stefan's answer含有一個安全漏洞（中房去到MarkJ來指出。）：代碼將文本文件讀入字符串不是很健壯。這是一個非常常見的錯誤 - 在一些優秀的VB6網站上也有相同的錯誤代碼。他的代碼是

Open strFilename For Input As #iFile 
strTheData = Input$(LOF(iFile), #iFile) 
Close #iFile 

不幸的是這throws an error 62「輸入過去文件的結束」如果文本文件包含ASCII字符爲零。它也不適用於所有國家（它會爲中文或日文等雙字節字符集中的大多數字符串引發錯誤）。

也許這些問題是有點晦澀：但有更好的代碼在VB6手動（here），它也是三線，做這個工作，它永遠不會失敗。

Open strFilename For Input As #iFile 
strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode) 
Close #iFile 

看起來更加複雜：但實際上唯一的區別是從ANSI到Unicode的轉換是明確的而不是隱含的。它的運行速度一樣快，並且始終有效。