Question

vb 怎样打开文件并把文件内容显示在文本框

vb里面怎样打开文件，文件类型只能是TXT、DOC等文本文件，就像文件（F）下面的打开一样，打开一个文件选择的框，可以选择文本文件，然后把打开的文件内容显示到文本框中

Answer 1

文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码：

1、添加必要的组件（文本框、按钮）

2、设置属性：

3、编写按钮的响应代码：

代码如下：

Private Sub Command1_Click()
    Dim a$
    Text1.Text = ""
    Open "d:\test.txt" For Input As #1
      Do
        Input #1, a
        Text1.Text = Text1.Text & a & vbCrLf
      Loop Until EOF(1)
    Close #1
End Sub

运行结果：

Answer 2

1、单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。

2、在窗体上绘制RichText Box和Commn Dialog。

3、右键窗体选择菜单编辑器，编写打开和清空菜单。

4、两个按钮代码：

Private Sub open_Click()

CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|(*.doc)|*.doc|所有文件|*.*"

CommonDialog1.ShowOpen

RichTextBox1.Text = "" '清空文本框

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "超级记事本：" & FileName

End Sub

Private Sub qk_Click()

RichTextBox1.Text = ""

End Sub

5、注意：打开txt文件时正常的，但是打开word是乱码，因为word的存储方式跟txt文件不一样的，这个是正常的。

Answer 3

单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到公共对话框Microsoft Common Dialog 6.0并选中它，单击“确定”按钮。
在工具-菜单编辑器 标题写文件（F），名字文件，再点下下一个，标题写打开，名字打开，再点下向右的箭头
Private Sub 打开_Click()
With CommonDialog1
.DialogTitle = "打开文件"
.Filter = "文本文件 (*.txt)|*.txt|(*.doc)|*.doc|所有文件|*.*"
.FilterIndex = 0
.ShowOpen
Dim tmpLoadStr As String
Open .FileName For Input As #1
Do While Not EOF(1)
Line Input #1, tmpLoadStr
text1.Text = text1.Text & tmpLoadStr & vbCrLf
Loop
Close #1
End With
End Sub

Answer 4

dim str as string '定义个 str 用来储存读取的文本
open "路径" for input as #1 '打开指定路径的文本
input #1, str '将指定文本读取到 str 变量
close #1 '关闭文件
text1.text = str '让text1 等于 str 变量的内容

代码要简洁.. 才精致

本来是很简单的东西楼上几位还搞了个循环来读，真是浪费系统资源

Answer 5

Open "c:\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, mystring
text1.Text = text1.Text & mystring & vbCrLf
loop
Close #1