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

熱點內容
零基礎c語言編程買什麼書 瀏覽:520
微信支付resultcode 瀏覽:224
如何編程繼電器模塊 瀏覽:698
顏色配置文件和圖像 瀏覽:595
小米雲端怎麼同步數據 瀏覽:420
蘋果手機微信文件如何轉釘釘 瀏覽:310
跨境電商新政文件 瀏覽:396
什麼app能看香港房 瀏覽:590
喪屍電視劇哪個app看 瀏覽:196
電腦版上傳視頻找不到文件在哪 瀏覽:164
javastringtemplate 瀏覽:594
聯想啟天m7300能升級內存嗎 瀏覽:698
精雕怎麼打開圖片文件 瀏覽:161
ug編程鏜孔g76如何使用 瀏覽:719
7歲到18歲少兒編程學什麼 瀏覽:413
mac文件怎麼列印 瀏覽:756
農葯登記許可證查詢哪個網站 瀏覽:857
素材站用什麼網站系統 瀏覽:173
ug如何用鉸刀編程 瀏覽:647
三國志版本介紹 瀏覽:260

友情鏈接