| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 426 人关注过本帖
标题:求教关于Image1控件与File1控件组合
只看楼主 收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:271
专家分:14
注 册:2007-4-25
结帖率:81.97%
  已结贴   问题点数: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: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:45
专家分:168
注 册: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
等 级:论坛游民
帖 子:271
专家分: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: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:45
专家分:168
注 册:2016-9-28
  得分:20 
回复 3楼 事业男儿
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
2017-12-27 19:11
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:21
帖 子:217
专家分:1178
注 册:2016-3-10
  得分:0 
楼上正解,调用图片必须全路径以及文件名。
你的程序只给出路径,所以报打开文件错误。
2017-12-27 20:50
事业男儿
Rank: 2
等 级:论坛游民
帖 子:271
专家分: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: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:45
专家分:168
注 册: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.040579 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved