最近老师要求设计一个文本浏览器但是以前没怎么学过VB希望高手帮忙啊!~~急
要求建立一个文本浏览器。窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框，运行界面如图所示。要求：
⑴ 文件列表框能过滤文本文件；
⑵ 当单击某文本文件名后，文本框Text1显示该文件名(包括路径)，在Text2文本框显示该文本文件内容；
⑶ 当双击某文件名后，调用记事本程序对文本文件进行编辑。

你这么说估计是没人帮你了，你先自己做，有具体问题再问，那样会有人帮忙的

Dim b
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
    Text1.Text = Dir1.Path & "\" & File1.FileName
    '-------------在Text2文本框显示该文本文件内容-------------------------
    Open Text1.Text For Input As #1
    b = ""
    Do Until EOF(1)
    Line Input #1, nextline
    b = b & nextline & Chr(13) & Chr(10)
    Loop
    Close #1
    Text2.Text = b

End Sub

Private Sub File1_DblClick()
Shell "C:\winnt\system32\notepad.exe " & File1.FileName, vbMaximizedFocus
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Drive1.Drive = "c:\"
    Rem
       File1.ReadOnly = True
       File1.Archive = False
       File1.System = False
       File1.Normal = True
       File1.Hidden = False
    Rem
        File1.Pattern = "*.txt"
End Sub

在Text2文本框显示该文本文件内容,这个功能我写的那个好像有点问题,期待高人指点

写出来就行了.

谢谢楼上的指点，小弟已经做完了　，不过还是要谢谢高手的指点啊　　

鄙视让别人写作业的 。

高人很多呀,呵呵.

Text1.Text = "你好" & Chr(10) & "啊"