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

Question

通用对话框打开的内容怎么在文本框中显示
网上查到都是
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

Answer 1

可使用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

Answer 2

你需要一个公用对话框控件，从部件选项中添加"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本回答被网友采纳

Answer 3

jbp22d5f90f0a，你究竟是何方神圣？以jbp打头的名字上百个，财富值794710，提问数122627，回答数0，提问永远匿名，从不加分，很少采纳，每次一提问就是几十个问题一起发，举报管理员也不受理，你是管理员他爹？

Answer 4

这个肯定要用到文件操作的相关知识了.