如何显示文本文件，同时点击按钮

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的转换是明确的而不是隐含的。它的运行速度一样快，并且始终有效。