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

做一个图片浏览器,装载所有图片后点击鼠标左键下一张图片,右键上一张图片... 做一个图片浏览器,装载所有图片后 点击鼠标左键下一张图片,右键上一张图片 展开
 我来答
uouo99
2011-05-19 · TA获得超过561个赞
知道小有建树答主
回答量:655
采纳率:0%
帮助的人:346万
展开全部
‘ 导入图片按钮
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
追问
好多没生命 比如path 能把所有的代码和控件给我么
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式