十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
IO.Directory.GetFiles

專注于為中小企業(yè)提供成都做網(wǎng)站、成都網(wǎng)站設計服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)葫蘆島免費做網(wǎng)站提供優(yōu)質的服務。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了超過千家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設實現(xiàn)規(guī)模擴充和轉變。
獲取指定目錄中的所有文件,比對文件名就行了。如果包括多層子目錄,需要遞歸
窗體上放一個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數(shù)字一起切換
有小圖大圖一起切換
里面有教程和源碼
先把需要添加圖片的列樣式改為 DataGridViewLabelXColumn
Dim bcx As DataGridViewLabelXColumn = TryCast(DataGridViewX1.Columns("列名"), DataGridViewLabelXColumn)
bcx.Image = ImageList1.Images("圖片名")
會在文字前面填上你的圖片
放在解決方案資源管理器還沒完。進入項目屬性,資源,把解決方案資源管理器里的資源文件拖進來,改個便于調用的名稱,然后My.Resources里面就可以調用了。如果是VS可以識別的,那么就直接是Bitmap類型的,可以隱式轉換成Image類型。
轉換成位圖肯定是可以瀏覽的,WMF文件沒試過。
你可以將圖片以二進制形式存儲在數(shù)據(jù)庫中,如果是SQL Server,對應字段的類型應該是image。