13518219792
‘ 导入图片按钮
创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的藁城网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
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
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
将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)
'因为要保存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
在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这个应用程序和这幅图片自身位置的。一旦我们的程序位置发生变化或者图片的位置发生改变，那么这个程序都不可以执行，不会显示这幅图片。所以说这就是相对路径，是以一个参考对象而存在的。
