導航:首頁 > 文件教程 > 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相關的資料

熱點內容
ps3文件分割視頻 瀏覽:280
微信圖片一鍵轉發軟體 瀏覽:331
如何判斷s200plc編程電纜 瀏覽:691
太原編程培訓班哪個好 瀏覽:171
樹葉吹奏教程 瀏覽:6
社交app帶來了哪些社會問題 瀏覽:394
如何安裝愛寶8800數據採集器 瀏覽:712
文件保存了怎麼找不到了 瀏覽:476
彩票網站怎麼辨真假 瀏覽:840
pr找不到該文件 瀏覽:963
java移除panel 瀏覽:354
jsp填充jsp 瀏覽:166
海關外貿大數據在哪裡查 瀏覽:381
思特奇java筆試題 瀏覽:121
葫蘆俠在手機中的文件名 瀏覽:813
plc編程應該怎麼收錢 瀏覽:584
c語言中源文件由什麼組成 瀏覽:890
linuxhttpdphp配置文件 瀏覽:607
拆單數據要怎麼保存 瀏覽:17
mac電腦怎樣壓縮文件到100m 瀏覽:645

友情鏈接