VB 文本框显示通用对话框打开文本文件内容

通用对话框打开的内容怎么在文本框中显示网上查到都是open"d:\123.txt"forinputas#1dountileof(1)lineinput#1,stextbo... 通用对话框打开的内容怎么在文本框中显示
网上查到都是
open "d:\123.txt" for input as #1
do until eof(1)
line input #1,s
textbox.text=textbox.text & s & vbcrlf
loop
close #1

'保存textbox的内容到d:\新文件.txt
open "d:\新文件.txt" for output as #2
print #2,textbox.text
close #2
展开
 我来答
zdingyun
2015-05-23 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48173
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

可使用CommonDialog
控件(“打开”、“另存为”对话框)

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观上与打开对话相似。

在运行时,当用户选择一个文件“关闭”对话框时,FileName 属性既为选定的文件名。

实例代码:

Option Explicit
    Dim s As String

Private Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    'MsgBox CommonDialog1.FileName
    Open CommonDialog1.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            Text1.Text = Text1.Text & s & vbCrLf
        Loop
    Close #1
    Exit Sub
    
ErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
End Sub

Private Sub Form_Load()
    Text1.Text = ""
End Sub
匿名用户
2013-11-13
展开全部
你需要一个公用对话框控件,从部件选项中添加"Microsoft Common Dialog Control 6.0 (SP3)"
并将该控件放在窗体任意地方,名称默认为"CommonDialog1"
输入以下代码:
Private Sub Open_Click()'点击名为"Open"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do until Eof(1)
Line input #1,s
Text1.Text = Text1.Text & s & vbCrlf
Loop
Close #1
End Sub
Private Sub Save_Click()'点击名为"Save"的按钮后
CommonDialog1.Filter = "TXT格式|*.txt|RTF格式|*.rtf|所有格式|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #2
Print #2,Text1.Text
Close #2
End Sub
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
豆淡威嘉惠
2019-06-12 · TA获得超过4160个赞
知道大有可为答主
回答量:3217
采纳率:33%
帮助的人:237万
展开全部
jbp22d5f90f0a,你究竟是何方神圣?以jbp打头的名字上百个,财富值794710,提问数122627,回答数0,提问永远匿名,从不加分,很少采纳,每次一提问就是几十个问题一起发,举报管理员也不受理,你是管理员他爹?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-11-13
展开全部
这个肯定要用到文件操作的相关知识了.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式