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

Posted 2023-05-13

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

文本框通常用来显示文本字符，以下是用 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

运行结果：

参考技术A

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文件不一样的，这个是正常的。

本回答被提问者采纳 参考技术B 单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到公共对话框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 参考技术C dim str as string '定义个 str 用来储存读取的文本
open "路径" for input as #1 '打开指定路径的文本
input #1, str '将指定文本读取到 str 变量
close #1 '关闭文件
text1.text = str '让text1 等于 str 变量的内容

代码要简洁.. 才精致

本来是很简单的东西楼上几位还搞了个循环来读，真是浪费系统资源 参考技术D 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

Delphi 窗体中怎样嵌入网页

我想在窗体上显示网站内容，能做到吗？要是能读取指定文本框中的内容或向指定的文本框中写入内容就更好了，谢谢各位大侠。

参考技术A 双击不行,只能在属性面板里找到相应的事情,在事情里写代码2011-10-24 5:41:44 参考技术B 双击不行,只能在属性面板里找到相应的事件,在事件里写代码 参考技术C 有网页控件可用