IO.Directory.GetFiles
專注于為中小企業提供成都做網站、成都網站設計服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業葫蘆島免費做網站提供優質的服務。我們立足成都,凝聚了一批互聯網行業人才,有力地推動了超過千家企業的穩健成長,幫助中小企業通過網站建設實現規模擴充和轉變。
獲取指定目錄中的所有文件,比對文件名就行了。如果包括多層子目錄,需要遞歸
窗體上放一個PictureBox,兩個CommandButton,一個FileListBox
Private Sub Command1_Click()
If File1.ListIndex = 0 Then
ShowPic File1.ListCount - 1
Else
ShowPic File1.ListIndex - 1
End If
End Sub
Private Sub Command2_Click()
If File1.ListIndex = File1.ListCount - 1 Then
ShowPic 0
Else
ShowPic File1.ListIndex + 1
End If
End Sub
Private Sub Form_Load()
File1.Visible = False
File1.Pattern = "*.jpg;*.gif" '可以瀏覽的文件類型,使用分號隔開
File1.Path = App.Path '改成你需要瀏覽的目錄,比如"C:\Pic"
If File1.ListCount 1 Then '目錄中圖片在兩張以上可以瀏覽
ShowPic 0
Exit Sub
ElseIf File1.ListCount = 1 Then '目錄中只有一張圖片時只顯示這一張
ShowPic 0
End If
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub ShowPic(Index As Long)
File1.ListIndex = Index
Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))
End Sub
如果對您有幫助,請記得采納為滿意答案,謝謝!祝您生活愉快!
vaela
試試這個圖片幻燈片
有12345數字一起切換
有小圖大圖一起切換
里面有教程和源碼
先把需要添加圖片的列樣式改為 DataGridViewLabelXColumn
Dim bcx As DataGridViewLabelXColumn = TryCast(DataGridViewX1.Columns("列名"), DataGridViewLabelXColumn)
bcx.Image = ImageList1.Images("圖片名")
會在文字前面填上你的圖片
放在解決方案資源管理器還沒完。進入項目屬性,資源,把解決方案資源管理器里的資源文件拖進來,改個便于調用的名稱,然后My.Resources里面就可以調用了。如果是VS可以識別的,那么就直接是Bitmap類型的,可以隱式轉換成Image類型。
轉換成位圖肯定是可以瀏覽的,WMF文件沒試過。
你可以將圖片以二進制形式存儲在數據庫中,如果是SQL Server,對應字段的類型應該是image。
文章名稱:vb.net圖片列表 vb顯示圖片
網頁地址:http://vcdvsql.cn/article46/heheeg.html
成都網站建設公司_創新互聯,為您提供靜態網站、手機網站建設、Google、網站制作、品牌網站建設、外貿網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯