求教关于Image1控件与File1控件组合 - 编程论坛

#2

suzhanpeng2017-12-26 10:34

Image1.Picture = LoadPicture(File1.Path)

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

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

#3

事业男儿2017-12-27 13:52

回复 2楼 suzhanpeng

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

#4

suzhanpeng2017-12-27 19:11

回复 3楼事业男儿

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

#5

wds12017-12-27 20:50

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

#6

事业男儿2017-12-28 08:18

回复 2楼 suzhanpeng

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

#7

suzhanpeng2017-12-28 09:42

下面的例子是只用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