求教关于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编辑过]

Image1.Picture = LoadPicture(File1.Path)


A = Split(文件名称, ".")                       '分割
后缀名 = A(UBound(A))   
去后缀的名称=left(文件名称，len(文件名称)-len（后缀名）-1）
            

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

请问二楼老师  这代码添加进去报错！是哪儿出现问题呢？
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编辑过]

Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)

楼上正解，调用图片必须全路径以及文件名。
你的程序只给出路径，所以报打开文件错误。

首先谢谢大家帮我完成了 视频和照片管理软件的制作，这样很方便查看视频和照片。但是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

下面的例子是只用list控件
Private i%, myfile$
Private Sub Command1_Click()
Dim m, spt
    On Error Resume Next
    i = 0
    myfile = ""
    OutFile "C:\Users\Administrator\Pictures\", "png"
    spt = Split(myfile, vbCrLf)
        For m = 0 To UBound(spt) - 1
            List1.AddItem Left(Mid(spt(m), InStrRev(spt(m), "\") + 1), Len(Mid(spt(m), InStrRev(spt(m), "\") + 1)) - 4)
        Next
    End If
End Sub

Private Sub OutFile(ByVal MyFolder As String, ByVal MyFileName As String)
Dim fs, F, f1, S, sf, f2, mf
Dim L As Integer
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(MyFolder)
    Set sf = F.SubFolders
    For Each f1 In sf
        OutFile f1, MyFileName
        DoEvents
    Next
    L = Len(MyFileName)
    Set mf = F.Files
    For Each f2 In mf
        If Right(f2, L) = MyFileName Then
            i = i + 1
            myfile = myfile & f2 & vbCrLf
        End If
        DoEvents
    Next
End Sub