| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 183 人关注过本帖
标题:求教关于Image1控件与File1控件组合
只看楼主 收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:241
专家分:14
注 册:2007-4-25
结帖率:80.7%
  已结贴   问题点数:20  回复次数:6   
求教关于Image1控件与File1控件组合
求教关于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编辑过]

2017-12-26 09:29
suzhanpeng
Rank: 2
等 级:论坛游民
威 望:1
帖 子:31
专家分:92
注 册:2016-9-28
  得分:0 
Image1.Picture = LoadPicture(File1.Path)


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

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

2017-12-26 10:34
事业男儿
Rank: 2
等 级:论坛游民
帖 子:241
专家分:14
注 册:2007-4-25
  得分:0 
回复 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编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2017-12-27 13:52
suzhanpeng
Rank: 2
等 级:论坛游民
威 望:1
帖 子:31
专家分:92
注 册:2016-9-28
  得分:20 
回复 3楼 事业男儿
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
2017-12-27 19:11
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:80
专家分:400
注 册:2016-3-10
  得分:0 
楼上正解,调用图片必须全路径以及文件名。
你的程序只给出路径,所以报打开文件错误。
2017-12-27 20:50
事业男儿
Rank: 2
等 级:论坛游民
帖 子:241
专家分:14
注 册:2007-4-25
  得分:0 
回复 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
2017-12-28 08:18
suzhanpeng
Rank: 2
等 级:论坛游民
威 望:1
帖 子:31
专家分:92
注 册:2016-9-28
  得分:0 
下面的例子是只用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
2017-12-28 09:42







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.070845 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved