Question

谁有vb。net图片播放器的源代码啊，如能分享一下感激不尽

Answer 1

以前写过，不过源码给搞没了，可以提示你几个关键的地方：
递归文件夹：
Dim files as new list(of string)

Sub AddFile(filename as string)
files.add(filename) '这儿可以加判断后缀名的条件（如：If IO.Path.GetExtension(path).ToLower = ".jpg" Then）
End Sub

Sub AddFolder(directory as string)
dim fs,folders as string()
fs=IO.Directory.GetFiles(directory) '该文件夹下的所有文件
folders = IO.Directory.GetDirectories(directory) '该文件夹下的所有子文件夹
For Each file In fs
AddFile(file)
Next
For Each folder In folders
AddFolder(folder) '递归
Next
End Sub

载入图片应该知道的吧 Dim bmp as new bitmap(路径)
然后可以很方便的另存为其他格式，如: bmp.Save("C:\a.png",Imaging.ImageFormat.Png)

图片在窗体上的显示一般是用图片框 但如果你要实现自由缩放什么的，那就不能简单的把图片设置到PictureBox的Image属性 而是需要用Graphic对象来进行绘制，这个就很复杂了，你可以自己研究研究。

还有要注意图片的及时释放，不然的话估计浏览几十张图片，程序的内存占用就会达到几百M，虽然过不久会自己降下去，但这会让用户觉得很不爽。释放的话，用bmp.Dispose()

其他有什么不会的地方可以继续追问。

Answer 2

以前写过，不过源码给搞没了，可以提示你几个关键的地方：
递归文件夹：
Dim files as new list(of string)

Sub AddFile(filename as string)
files.add(filename) '这儿可以加判断后缀名的条件（如：If IO.Path.GetExtension(path).ToLower = ".jpg" Then）
End Sub

Sub AddFolder(directory as string)
dim fs,folders as string()
fs=IO.Directory.GetFiles(directory) '该文件夹下的所有文件
folders = IO.Directory.GetDirectories(directory) '该文件夹下的所有子文件夹
For Each file In fs
AddFile(file)
Next
For Each folder In folders
AddFolder(folder) '递归
Next
End Sub

载入图片应该知道的吧 Dim bmp as new bitmap(路径)
然后可以很方便的另存为其他格式，如: bmp.Save("C:\a.png",Imaging.ImageFormat.Png)

图片在窗体上的显示一般是用图片框 但如果你要实现自由缩放什么的，那就不能简单的把图片设置到PictureBox的Image属性 而是需要用Graphic对象来进行绘制，这个就很复杂了，你可以自己研究研究。

还有要注意图片的及时释放，不然的话估计浏览几十张图片，程序的内存占用就会达到几百M，虽然过不久会自己降下去，但这会让用户觉得很不爽。释放的话，用bmp.Dispose()