VB.NET如何裝載一個(gè)文件夾的所有圖片 就是FolderBrowserDialog選定一個(gè)文件夾 自動(dòng)裝載里面所有圖片

‘ 導(dǎo)入圖片按鈕

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站制作、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的藁城網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FolderBrowserDialog1.Description = "選擇圖片文件夾導(dǎo)入圖片"

FolderBrowserDialog1.ShowDialog()

path = FolderBrowserDialog1.SelectedPath()

If path = "" Then Return

strSrcFile = Dir(path "\*.tif")

PictureBox1.Image = Image.FromFile(path "\" strSrcFile)

dirFiles.Add(path "\" strSrcFile)

FileNames.Add(strSrcFile)

Do

strSrcFile = Dir()

dirFiles.Add(path "\" strSrcFile)

If (strSrcFile IsNot Nothing) Then

FileNames.Add(strSrcFile)

End If

Loop Until Len(strSrcFile) = 0

End Sub

’ 上一張圖片（我做的按鈕，鼠標(biāo)左鍵的話原理也是一樣 的，你放到鼠標(biāo)左鍵事件中就可以了）

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '向前

If path "" Then

If (saveDirFiles.Count = 0) Then

Return

End If

MyPos = 0

PictureBox1.Image = Image.FromFile(saveDirFiles(saveDirFiles.Count - 1).ToString())

dirFiles.Insert(0, saveDirFiles(saveDirFiles.Count - 1).ToString())

saveDirFiles.RemoveAt(saveDirFiles.Count - 1)

End If

End Sub

’ 下一張圖片

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click '向后

If path "" Then

If (dirFiles.Count = 0) Then

Return

End If

MyPos = 0

Dim iCurrentPos As Integer = 0

Try

PictureBox1.Image = Image.FromFile(dirFiles(iCurrentPos + 1).ToString())

Catch ex As Exception

MsgBox("已翻至圖片的最后一頁(yè)")

Return

End Try

saveDirFiles.Add(dirFiles(iCurrentPos))

dirFiles.RemoveAt(iCurrentPos)

End sub

VB.net按順序加載多張圖片的問(wèn)題

Dim i As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

i = i + 1

If i 3 Then Timer1.Enabled = False : Exit Sub

PictureBox1.ImageLocation = "z:\" i ".png"

End Sub

vb.net怎樣保存圖片文件，并且保存的圖片名稱為當(dāng)前時(shí)間

將PictureBox控件里的圖片，保存為文件：

1，文件格式不變化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp")

2，文件格式有變化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)

VB.net 怎樣保存picturebox中的圖像（vs2008）

'因?yàn)橐４鎝icturebox中的圖片必須要設(shè)置autoredraw屬性為true,所以也寫(xiě)出來(lái)了.

Private Sub Form_Load()

Picture1.AutoRedraw = True

End Sub

Private Sub Command1_Click()

SavePicture Picture1.Image, App.Path "\1.bmp"

End Sub

vb.net的圖片空間怎樣獲得相對(duì)路徑下的圖片

在VB 學(xué)習(xí)中，絕對(duì)路徑就是指帶有盤(pán)符的固定的路徑，比如“c:\windows\systems\a.exe” 而相對(duì)路徑則可用APP.PATH連接文件名來(lái)表示，比如：App.Path "\a.exe"

以vb學(xué)習(xí)中加載圖片為例，這樣就容易弄明白了。假設(shè)我們要在vb中加載一幅圖片，假設(shè)我們把這個(gè)加載圖片的程序保存在如下位置："E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫(huà)\tong.jpg"

那么情況如下：1，在代碼中直接以絕對(duì)路徑表示加載到form1中，如圖所示：

顯示結(jié)果如下：

2,換一種方式，以相對(duì)路徑直接加載也可以。程序如圖：

結(jié)果如上圖。

下面分析如下：

第一種方式，我們使用的是圖片的完整路徑，就稱之為絕對(duì)路徑，也就是說(shuō)不管我們的這個(gè)VB程序放到硬盤(pán)的任何位置，都完全可以顯示出來(lái)這幅圖片，因?yàn)閳D片的路徑是絕對(duì)的，只要不改變圖片的路徑，那么就是絕對(duì)不變的。

第二種方式，我們使用的是圖片的相對(duì)路徑，相對(duì)于誰(shuí)呢？是相對(duì)于我們的VB這個(gè)應(yīng)用程序和這幅圖片自身位置的。一旦我們的程序位置發(fā)生變化或者圖片的位置發(fā)生改變，那么這個(gè)程序都不可以執(zhí)行，不會(huì)顯示這幅圖片。所以說(shuō)這就是相對(duì)路徑，是以一個(gè)參考對(duì)象而存在的。