vb窗体设计题 在线等 求高手解答

Private Sub Dir1_Change()
File1.Path = Dir1

End Sub

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

End Sub

Private Sub File1_Click()
Text1 = IIf(Len(Dir1.Path) > 3, Dir1.Path & "\", Dir1.Path) & File1.FileName
Open Text1 For Binary As #1
Text2 = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1

End Sub

Private Sub File1_DblClick()
Shell "notepad.exe " & Chr(34) & Text1.Text & Chr(34), vbNormalFocus
End Sub

Private Sub Form_Load()
'Text2的MultiLine 设置为true
'Text2的ScrollBars 设置为2
Text1 = ""
File1.Pattern = "*.txt"

End Sub

呵呵！不小啊！