導航:首頁 > 文件教程 > vb載入文件夾內所有圖片listbox

vb載入文件夾內所有圖片listbox

發布時間:2023-09-16 08:02:12

1. VB遍歷文件夾中的圖片

添加文件列表控制項,filelist
Dim Shunxu As Integer, zongshu As Integer, strfilename As String
Private Sub Form_Load()
File1.Path = "d:\" ' "d:\123\圖片文件夾" '文件夾路徑
File1.Pattern = "*.gif" '文件格式
Timer1.Interval = 1000
Timer1.Enabled = True
zongshu = File1.ListCount '總數
Shunxu = 0
End Sub

Private Sub Timer1_Timer()
If zongshu > 0 Then
strfilename = File1.List(Shunxu) '圖片文件名
Image1.Picture = LoadPicture(File1.Path + "\" + strfilename) '圖片文件路徑
Shunxu = Shunxu + 1
If Shunxu = zongshu - 1 Then
Shunxu = 0
End If
End If
End Sub

2. VB2008讀取文件夾中所有文件JPG

用Microsoft.VisualBasic.FileIO.Filesystem.GetFiles方法。在文件名參數寫"*.jpg"就行了。返回ReadOnlyCollection。記住:READONLYCOLLECTION的Item屬性最大值為Count-1不是count
然後用for循環將readonlycollection的項添加到ListBox控制項。把郵箱給我,過兩天把代碼發給你
代碼

On Error Resume Next'最好使用VB.NET 的Try catch語句塊
dim Loopint1 as integer,tmpstr1,tmpstr3 as string
Dim flist As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
fList=Microsoft.VisualBasic.FileIO.FileSystem.GetFiles(gfPath, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
x = flist.Count
For LoopInt1 = 0 To x - 1 '循環控制
tmpstr3 = "" '清空屬性字元串
tmpstr1 = flist.Item(LoopInt1)
IntInStr = InStrRev(tmpstr1, "\")
tmpstr2 = Microsoft.VisualBasic.Strings.Right(tmpstr1, Len(tmpstr1) - IntInStr)'只得到文件名,如果要完整路徑就要循環里第二行即可
Listbox1.Items.Add(tmpstr2)'添加內容
Next
'其實完全可以製作一個VB6的文件列表框,加上Listview,資源管理器也是可以做的,只不過圖標控制比較麻煩而已
'照相時間要獲得EXIF信息,這個我不知道,你上網找找看

閱讀全文

與vb載入文件夾內所有圖片listbox相關的資料

熱點內容
任命文件人字多少號 瀏覽:27
如何給桌面的文件自動填寫序號 瀏覽:349
壓縮文件JPG重命名 瀏覽:487
vivox7怎麼隱藏文件 瀏覽:340
官網買蘋果好處 瀏覽:153
直播app源碼如何搭建 瀏覽:31
c盤系統文件包介紹圖片 瀏覽:856
linuxopt主要存哪些文件 瀏覽:924
jsdate天數 瀏覽:930
qq空間怎樣發視頻文件在哪裡找 瀏覽:208
nrf2401收發程序 瀏覽:498
哪個網站看新聞最好 瀏覽:944
找到文件夾並清除linux 瀏覽:82
蘋果app不安全怎麼辦 瀏覽:1000
電腦桌面文件收集軟體推薦 瀏覽:317
桌面的文件夾不能刪除不了怎麼辦 瀏覽:724
什麼是手機溫控文件 瀏覽:840
廣東農信app怎麼更改預留手機號碼 瀏覽:241
cdm打開隱藏文件夾 瀏覽:320
貝殼app房子為什麼偶爾不顯示 瀏覽:4

友情鏈接