关于vb.net中多图的存取的信息

VB.NET如何装载一个文件夹的所有图片 就是FolderBrowserDialog选定一个文件夹 自动装载里面所有图片

‘ 导入图片按钮

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

FolderBrowserDialog1.Description = "选择图片文件夹导入图片"

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

’ 上一张图片（我做的按钮，鼠标左键的话原理也是一样 的，你放到鼠标左键事件中就可以了）

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("已翻至图片的最后一页")

Return

End Try

saveDirFiles.Add(dirFiles(iCurrentPos))

dirFiles.RemoveAt(iCurrentPos)

End sub

相关问答

Q1: VB.net按顺序加载多张图片的问题

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

Q2: vb.net怎样保存图片文件，并且保存的图片名称为当前时间

将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)

Q3: VB.net 怎样保存picturebox中的图像（vs2008）

'因为要保存picturebox中的图片必须要设置autoredraw属性为true,所以也写出来了.

Private Sub Form_Load()

Picture1.AutoRedraw = True

End Sub

Private Sub Command1_Click()

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

End Sub

Q4: vb.net的图片空间怎样获得相对路径下的图片

在VB 学习中，绝对路径就是指带有盘符的固定的路径，比如“c:\windows\systems\a.exe” 而相对路径则可用APP.PATH连接文件名来表示，比如：App.Path "\a.exe"

以vb学习中加载图片为例，这样就容易弄明白了。假设我们要在vb中加载一幅图片，假设我们把这个加载图片的程序保存在如下位置："E:\aa-vbnew\加载图片讲解"而我们的图片在"D:\My Files\图画\tong.jpg"

那么情况如下：1，在代码中直接以绝对路径表示加载到form1中，如图所示：

显示结果如下：

2,换一种方式，以相对路径直接加载也可以。程序如图：

结果如上图。

下面分析如下：

第一种方式，我们使用的是图片的完整路径，就称之为绝对路径，也就是说不管我们的这个VB程序放到硬盘的任何位置，都完全可以显示出来这幅图片，因为图片的路径是绝对的，只要不改变图片的路径，那么就是绝对不变的。

第二种方式，我们使用的是图片的相对路径，相对于谁呢？是相对于我们的VB这个应用程序和这幅图片自身位置的。一旦我们的程序位置发生变化或者图片的位置发生改变，那么这个程序都不可以执行，不会显示这幅图片。所以说这就是相对路径，是以一个参考对象而存在的。