求教关于Image1控件与File1控件组合的代码，想得到以下代码的功能！我只知道Image1.Picture = LoadPicture("D:/123.jpg")这样的方式读取本地图片!谢谢大家！

Private Sub File1_Click()
Open File1.Path & "\" & File1.FileName For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close #1
End Sub

Private Sub Form_Load()
File1.Path = App.Path & "\wz" '设置路径"
      File1.Pattern = "*.txt"
End Sub

还提一个问题就是File1读取文件后 怎么去除后缀名！

[此贴子已经被作者于2017-12-26 09:37编辑过]

请问二楼老师  这代码添加进去报错！是哪儿出现问题呢？
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path)
End Sub

Private Sub Form_Load()
File1.Path = App.Path & "\wz" '设置路径"
      File1.Pattern = "*.jpg"
End Sub

[此贴子已经被作者于2017-12-27 13:59编辑过]

首先谢谢大家帮我完成了 视频和照片管理软件的制作，这样很方便查看视频和照片。但是File1里面读取的文件都有后缀名，怎么去除呢？2楼老师提供的去除后缀名的方法没有看懂，能否依照我这个代码举个例子，谢谢！在网上查到一段代码，举得这个很麻烦：

file不能实现去除后缀名的功能，需要添加一个listbox，然后将file里每一个数据输入到list里顺便去掉后缀名
Private Sub Command1_Click()
File1.Path = "c:\"
For i = 0 To File1.ListCount - 1
List1.AddItem Split(File1.List(i), ".")(0)
Next
End Sub
Private Sub List1_Click()
File1.ListIndex = List1.ListIndex
End Sub