VB编程,制作文本文件查看器,根据用户所选文件,在文本框中显示文本内容, 并将文本路径显示在文本框中.help

简单：

Private Sub Dir1_Change()
Me.File1 = Dir1
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Me.Dir1 = Drive1
End Sub
Private Sub File1_DblClick()
Text2.Text = ""
Text1.Text = Dir1 & "\" & Me.File1.FileName
Dim b As String
If Dir(Dir1 & "\" & Me.File1.FileName) <> "" Then
   Open Dir1 & "\" & Me.File1.FileName For Input As #1
   Do While Not EOF(1)
   Input #1, b
   Text2.Text = Text2.Text & b
  Loop
   Close #1
   End If
End Sub

追问

vb的文件可以发一下吗?

追答

下载就可以了。。。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yfj777xy2.html