vb题：单击“打开文件”对话框弹出一个通用对话框，选择文件（文本文件的处理.txt)后显示在文本框中

On Error GoTo err1
Dim str As String

CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|All Files (*.*)|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Input #1, str
Text1.Text = Text1.Text & str
Loop
Close #1
err1:
Exit Sub

先添加一个通用对话框。命名为cmd
在单击事件里写
Private Sub Command1_Click()
cmd.ShowOpen
a = cmd.FileName
Open a For Input As #1
Line Input #1, b
Text1.Text = b
Close
End Sub

这主要你要你设置文本格式，TXT就是记事本格式，还有像DOC就是WORD格式啦，自己可以选的！