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

‘ 导入图片按钮

创新互联是一家专业提供朝阳企业网站建设,专注与做网站、网站设计、H5开发、小程序制作等业务。10年已为朝阳众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

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

如何用VB.NET增加右键菜单并读取文件(文件夹)地址?

这个简单，我以前用VB6就写过一个类似的程序。 不过这个程序需要提供命令行参数哟。

就算用VB.NET编写，也必须要有接收这个命令行参数的，不然无法实现显示文件或文件夹路径。

下面是注册表文件的内容，你也可以用程序来写入注册表。

*表示所有文件，你可以随便修改。

最后面的%1，表示当前文件或文件夹

REGEDIT4

[HKEY_CLASSES_ROOT\*\shell\显示名称]

[HKEY_CLASSES_ROOT\*\shell\显示名称\command]

@="D:\\绿色软件\\编程\\VB\\显示名称\\显示名称.exe %1"

VB.NET及可以选择文件夹，也可以选择文件的对话框

新建立个窗体，放入文件夹控件等，然后点确定返回一个字符串即可。

选择文件或者选择文件夹时，显示这个窗体，然后取这个字符串。

vb.net如何将文件夹名称读入内存然后作为ContextMenuStrip的菜单项？

读取文件夹下的文件夹Dim subFolders As String() = String.Empty For Each stDirPath As String In System.IO.Directory.GetDirectories( _

"C:\test", "*", System.IO.SearchOption.AllDirectories)

subFolders = stDirPath System.Environment.NewLine

Next stDirPath'MessageBox.Show(subFolders )

如何用vb.net实现将一个文件夹中的后缀相同的文件名放在一个txt中？

创建一个文本文件，在其中输入：

dir *.txt /s /n 目录.txt

保存为XX.bat

然后双击运行即可在该文件夹下产生一个目录.txt的文件，里面有你要的内容，不用VB.net

文章题目：vb.net嵌入文件夹 vb 建立文件夹
文章源于：http://kswjz.com/article/dochpgo.html