急！如何VB文件列表框双击文件名在文本框中显示文件内容？

Posted 2023-05-05

如题，我在窗口中设置了驱动器列表框、目录列表框和组合框分别选择盘符、路径、文件类型（TXT或VBP，均为文本文件），在文件列表框中双击文件名时打开此文件并将内容显示在文本框中。
如何？
我的部分代码如下：
Private Sub Form_Load()
Combo1.AddItem "文本文件(*.TXT)"
Combo1.AddItem "VBP文件(*.VBP)"
Combo1.Text = Combo1.List(0)
File1.Pattern = "*.TXT"
End Sub

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

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

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
File1.Pattern = "*.txt"
Case 1
File1.Pattern = "*.vbp"
End Select
End Sub

Private Sub file_click()
If Right(File1.Path, 1) = "\" Then
fName = File1.Path + File1.FileName
Else
fName = File1.Path + "\" + File1.FileName
End If
Text1.Text = fName
End Sub
Private Sub file_dblclick()
Dim s$
If Right(File1.Path, 1) = "\" Then
fName = File1.Path + File1.FileName
Else
fName = File1.Path + "\" + File1.FileName
End If
Text1.Text = fName
'App.Path = fName
'Open App.Path For Append As #1
'Do While EOF(1)
'Line Input #1, s
'Text1.Text = Text1.Text & s
'Loop
'Close #1
End Sub
快，被采纳还会追加分数，各位大哥，快帮忙

参考技术A 修改file_dblclick如下

Private Sub file_dblclick()
Dim s$
If Right(File1.Path, 1) = "\" Then
fName = File1.Path + File1.FileName
Else
fName = File1.Path + "\" + File1.FileName
End If
Text1.Text = fName
Text1.MultiLine = True
Open fName For input As #1
Do until EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & chr(13) & chr(10) & s
Loop
Close #1
End Sub本回答被提问者采纳 参考技术B App.Path是对象无法赋值
Open fName For Append As #1
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s
Loop
Close #1
试一试吧 参考技术C 'App.Path = fName
'Open App.Path For Append As #1
'Do While EOF(1)
'Line Input #1, s
'Text1.Text = Text1.Text & s
'Loop
'Close #1

App.Path能赋值吗?换个变量吧

vb中图片框如何清除里面的所有内容？

具体操作步骤如下：

一、打开VB软件，在窗体上面添加一个列表框，如下图所示。

二、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

三、在窗体上面，添加一个命令按钮，如下图所示。

四、设置，一个命令按钮的属性，名称别为“清除”，如下图所示。

五、双击“清除”命令按钮，编辑其代码，如下图所示。

六、运行程序，验证结果。选择“政治”，点击“清除”命令按钮。

七、则列表框中“政治”项目消失。如下图所示。

参考技术A

VB可对图片框的Picture属性使用LoadPicture 函数来实现清除里面的所有内容。

PictureBox 控件

PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF
文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。

Picture 属性

返回或设置控件中要显示的图片。对于 OLE 容器控件，在设计时不可用在运行时为只读。

LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

Cls 方法

清除运行时 Form 或 PictureBox 所生成的图形和文本。

以下代码体现上述各知识点的应用：

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容
End Sub

Private Sub Command2_Click()
    Picture1.Cls '只能清除绘制的图
End Sub

Private Sub Form_Load()
    Picture1.Picture = LoadPicture("C:\\Sunset.jpg")
    Picture1.ForeColor = QBColor(15)
    Picture1.Print Now
End Sub

参考技术B Picture1.Cls
Picture1.Picture = LoadPicture("")本回答被提问者采纳 参考技术C Picture1.Picture = LoadPicture("")
Picture1.Cls 参考技术D Picture1.Cls