VB.net如何获取picturebox正在加载的图片的路径或文件名

一旦从文件中将图像加载完毕就和文件没有关系了，除非在加载的时候进行记录，比如把路径（或名字）记录到PictuerBox控件的TAG属性里，这样需要的时候可以通过TAG知道所需要的信息

使用apppath，

就是得把程序和放在同一个文件夹，

或是放的文件夹是程序所在文件夹的子文件夹。

你的VB程序不知道放在那个文件夹里，怎么loadpicture？

建议你把VB程序和放在同一个文件夹，

这样直接image1Picture=loadpicture（apppath&“文件名格式"）

“当用Dialog一次打开多个文件”————你这里的Dialog指的是通用的OpenDialog“打开”对话框吗？

这样做：

引用Common Dialog 控件库。

在窗口上添加一个List1，一个Label1，两个按钮Command1和Command2，一个ComDlg控件命名为CD1。

然后加入以下代码：

Option Explicit

Private Sub Command1_Click()

  CD1Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer

  CD1ShowOpen

  If CD1FileName = "" Then Exit Sub

  Dim Str1 As String

  Dim Ary1() As String

  Str1 = CD1FileName

  Ary1 = Split(Str1, Chr(0))

  If UBound(Ary1) = 0 Then

    ReDim Preserve Ary1(1)

    Dim n1 As Long

    n1 = InStrRev(Ary1(0), "\")

    Ary1(1) = Mid(Ary1(0), n1 + 1)

    Ary1(0) = Left(Ary1(0), n1)

  End If

  Dim s1 As Long, Apath1 As String

  Apath1 = AppPath

  If Right(Apath1, 1) <> "\" Then Apath1 = Apath1 & "\"

  If Right(Ary1(0), 1) <> "\" Then Ary1(0) = Ary1(0) & "\"

  Open Apath1 & "stini" For Output As #2

  For s1 = 1 To UBound(Ary1)

    Print #2, Ary1(0) & Ary1(s1)

  Next

  Close #2

End Sub

Private Sub Command2_Click()

  Dim s1 As Long, Apath1 As String

  Apath1 = AppPath

  If Right(Apath1, 1) <> "\" Then Apath1 = Apath1 & "\"

  Dim Str1 As String

  Open Apath1 & "stini" For Input As #3

  Do Until EOF(3)

    Line Input #3, Str1

    List1AddItem Str1

  Loop

  Close #3

End Sub

Private Sub List1_Click()

  If List1ListIndex < 0 Then Exit Sub

  Label1Caption = List1List(List1ListIndex)

End Sub

ok，运行看看吧。

点击Command1会打开文件并把文件路径写入stini

点击Command2会读取stini，并显示到List1中

点击List1中的项目会在Label中显示内容。

完成了，已经在VB6下调试通过，给分吧～～

VB2008测试通过 Imports System Imports SystemIO Imports SystemThreading Imports SystemWindowsForms\x0d\ Public Class FrmMain\x0d\\x0d\Dim newSearcher As getFileByName\x0d\\x0d\ Private Sub FrmMain_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad\x0d\\x0d\rballChecked = True\x0d\\x0d\tbpathText = ""\x0d\\x0d\tbpathEnabled = False\x0d\\x0d\btndlgEnabled = False\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub btnOK_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles btnOKClick\x0d\\x0d\tvNodesClear()\x0d\\x0d\btnOKEnabled = False\x0d\\x0d\btnExitEnabled = False\x0d\\x0d\If rballChecked Then\x0d\\x0d\run()\x0d\\x0d\Else\x0d\\x0d\If tbpathText = "" Then\x0d\\x0d\MsgBox("请输入或者选择一个路径")\x0d\\x0d\Exit Sub\x0d\\x0d\Else\x0d\\x0d\run(tbpathText)\x0d\\x0d\End If\x0d\\x0d\End If\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub btndlg_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles btndlgClick\x0d\\x0d\fbdlgRootFolder = EnvironmentSpecialFolderMyComputer\x0d\\x0d\fbdlgShowDialog()\x0d\\x0d\tbpathText = fbdlgSelectedPath\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub rbchs_CheckedChanged(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles rbchsCheckedChanged\x0d\\x0d\If rbchsChecked = True Then\x0d\\x0d\tbpathEnabled = True\x0d\\x0d\btndlgEnabled = True\x0d\\x0d\Else\x0d\\x0d\tbpathEnabled = False\x0d\\x0d\btndlgEnabled = False\x0d\\x0d\End If\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub run()\x0d\\x0d\If tbfileNameText = "" Then\x0d\\x0d\MsgBox("请输入文件名称")\x0d\\x0d\btnOKEnabled = True\x0d\\x0d\btnExitEnabled = True\x0d\\x0d\Exit Sub\x0d\\x0d\Else\x0d\\x0d\newSearcher = New getFileByName(tbfileNameText)\x0d\\x0d\newSearcherGetDrivers()\x0d\\x0d\tmrEnabled = True\x0d\\x0d\tmrInterval = 10\x0d\\x0d\End If\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub run(ByVal path As String)\x0d\\x0d\If tbfileNameText = "" Then\x0d\\x0d\MsgBox("请输入文件名称")\x0d\\x0d\btnOKEnabled = True\x0d\\x0d\btnExitEnabled = True\x0d\\x0d\Exit Sub\x0d\\x0d\Else\x0d\\x0d\newSearcher = New getFileByName(tbfileNameText)\x0d\\x0d\newSearcherSearchFolder(path)\x0d\\x0d\tmrEnabled = True\x0d\\x0d\tmrInterval = 50\x0d\\x0d\End If\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub tmr_Tick(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles tmrTick\x0d\\x0d\LblshowText = newSearchercurrentPath\x0d\\x0d\If newSearchercntThread = 0 And newSearcherisDone Then\x0d\\x0d\'MsgBox(newSearchergetFileToString)\x0d\\x0d\'MsgBox("全部线程结束")\x0d\\x0d\For Each Str As String In newSearchergetFile\x0d\\x0d\tvNodesAdd(Str)\x0d\\x0d\Next\x0d\\x0d\'For i As Integer = 0 To newSearchergetFileLength - 1\x0d\\x0d\'tvNodesAdd(newSearchergetFile(i))\x0d\\x0d\'Next\x0d\\x0d\tmrEnabled = False\x0d\\x0d\btnExitEnabled = True\x0d\\x0d\btnOKEnabled = True\x0d\\x0d\End If\x0d\\x0d\MyApplicationDoEvents()\x0d\\x0d\End Sub\x0d\\x0d\ Private Sub btnExit_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles btnExitClick\x0d\\x0d\MeClose()\x0d\\x0d\End Sub End Class

以上就是关于VB.net如何获取picturebox正在加载的图片的路径或文件名全部的内容，包括:VB.net如何获取picturebox正在加载的图片的路径或文件名、vb图片路径怎么输入、vb 得到文件路径等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！