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

vb里面怎样打开文件,文件类型只能是TXT、DOC等文本文件,就像文件(F)下面的打开一样,打开一个文件选择的框,可以选择文本文件,然后把打开的文件内容显示到文本框中... vb里面怎样打开文件,文件类型只能是TXT、DOC等文本文件,就像文件(F)下面的打开一样,打开一个文件选择的框,可以选择文本文件,然后把打开的文件内容显示到文本框中 展开
 我来答
windblast
推荐于2016-05-13 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13620
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部

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


运行结果:


liuyuwxj
推荐于2017-12-15 · TA获得超过2.6万个赞
知道大有可为答主
回答量:1777
采纳率:100%
帮助的人:1518万
展开全部

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

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
白费电
2010-06-18 · TA获得超过1332个赞
知道小有建树答主
回答量:826
采纳率:0%
帮助的人:313万
展开全部
单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到公共对话框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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Master_Chance
2010-06-18
知道答主
回答量:25
采纳率:0%
帮助的人:0
展开全部
dim str as string '定义个 str 用来储存读取的文本
open "路径" for input as #1 '打开指定路径的文本
input #1, str '将指定文本读取到 str 变量
close #1 '关闭文件
text1.text = str '让text1 等于 str 变量的内容

代码要简洁.. 才精致

本来是很简单的东西楼上几位还搞了个循环来读,真是浪费系统资源
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
杰堂远程教室
2010-06-18 · TA获得超过296个赞
知道小有建树答主
回答量:495
采纳率:0%
帮助的人:0
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式