怎么实现文件对话框的动态路径？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师，我这个代码有没有问题？怎么一打开窗口就不断的弹出文件对话框？请教一下，该怎么实现文件对话框的动态路径？谢谢。

For Each c As WinForm.Control In e.Form.Controls

If Typeof c Is WinForm.PictureViewer Then '判断控件是否是PictureViewer

Dim dlg As New OpenFileDialog '定义一个新的文件选择框

dlg.MultiSelect = False '不允许选择多个文件

dlg.Filter= "图形文件|*.jpg;*.jpeg" '筛选条件为图形文件

dlg.InitialDirectory = Vars("mulu") '打开对话框时,显示的目录为全局变量mulu中值

If dlg.ShowDialog = DialogResult.OK Then '用户点击确认后

Dim ls As String = FileSys.GetParentPath(dlg.FileName)&"\" '获取文件所在目录

If ls > "" Then

Vars("mulu") = ls '重新赋值全局变量mulu

End If

我想在窗口中的每一个pictureview，点增加照片时，所弹出的文件对话框，打开的目录是前一个pictureview添加文件时的目录。

例如：A pictureview，增加照片时在 C :\aa1\ 下选择了一张图片。

那么之后，b pictureview 添加照片时，弹出的文件选择框显示的目录也是 C :\aa1\

c、d、e...所有的pictureview也一样，

若突然一个，在 D :\ggc1\ 路径下选择了文件，那么，返回 A pictureview 增加照片所弹出的文件选择框显示的目录也变成 D :\ggc1\

这个能实现吗？

这个我倒是换成picturebox，利用每个picturebox的Click事件实现了。

但关闭窗口时，picturebox不能释放内存，即使在关闭前选中一行没有图片的行，然后再关闭，也不能释放内存。

可是这个pictureview没有事件代码，真不知道该如何处理了。

Dim r As Row = Tables("临时图片").Current

Dim d As String = "图片01"

If r(d) > "" Then

Dim nm As String = r(d)

Dim Proc As New Process '打开工作簿

Proc.File = nm

Proc.Start()

Else

Dim dlg As New OpenFileDialog '定义一个新的文件选择框

dlg.MultiSelect = False '不允许选择多个文件

dlg.Filter= "图形文件|*.jpg;*.jpeg" '筛选条件为图形文件

dlg.InitialDirectory = Vars("mulu") '打开对话框时，显示的目录为全局变量mulu中值

If dlg.ShowDialog = DialogResult.OK Then '用户点击确认后

r(d) = dlg.FileName '单元格中填入含路径的文件名

Dim ls As String = FileSys.GetParentPath(dlg.FileName) '获取文件所在目录

If ls > "" Then

Vars("mulu") = ls '重新赋值全局变量mulu

End If

嗯嗯，我做好了实例，麻烦蓝老师帮忙看看。

平时加载的图片都差不多1M一张，本来想上传几张给老师您测试的，可能太大，上传不了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:实例2.rar

[此贴子已经被作者于2019/9/2 23:57:43编辑过]

此主题相关图片如下：c360_2019-08-26-11-23-17-054.jpg

主题：怎么实现文件对话框的动态路径？