Question

如何在单击命令按钮时显示文件（* .txt）

使用VB 6

VB 6的新手

如何在单击按钮时显示文件内容

数据存储在文本文件ex 1.txt中当点击命令时，1.txt文件将打开，并且应显示1.txt数据

需要VB 6代码帮助吗？

Answer 1

向表单添加文本框，使其成为multiline = true，向表单添加一个按钮。在按钮中单击处理程序添加：

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

这将读取文件中的文本并将其添加到文本框中。

编辑：更改了阅读内容的行更加健壮，正如MarkJ在此answer中指出的那样（Cred转到MarkJ指出这一点。）

Answer 2

Stefan's answer包含一个缺陷：将文本文件读入字符串的代码不是很强大。这是一个非常常见的错误 - 在一些优秀的VB6网站上存在同样有缺陷的代码。他的代码是

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

不幸的是，如果文本文件包含ASCII零字符，则throws an error 62“输入文件末尾”。此外，它并不适用于所有国家/地区（它会对中文或日文等双字节字符集中的大多数字符串引发错误）。

也许这些问题有点模糊：但是有更好的代码来完成这项工作在VB6手册中（here），它也是三行，它永远不会失败。

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

它看起来更复杂：但实际上唯一的区别是从ANSI到Unicode的转换是显式的而不是隐式的。它运行速度同样快，而且始终有效。

Answer 3

没有违法行为，但听起来你需要在VB6上使用beginners tutorial。（我认为这是因为你似乎无法准确地表达出你需要帮助的内容，可能是因为你对你正在尝试做的事情不够了解。）

谷歌搜索VB6教程将提供许多链接，this one看起来不错

希望这会有所帮助，如果我错了就道歉：）

Answer 4

要使用当前默认文件处理程序打开文件，请尝试使用ShellExecute API函数。

这是一个example。

如何在单击按钮时显示文本文件

4 个答案: