- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么实现文件对话框的动态路径？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140285)
-- 发布时间：2019/9/2 19:36:00
-- 怎么实现文件对话框的动态路径？
各位老师，我这个代码有没有问题？怎么一打开窗口就不断的弹出文件对话框？请教一下，该怎么实现文件对话框的动态路径？谢谢。
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
End If
End If
Next
-- 发布时间：2019/9/2 20:21:00
--
没看懂这个代码到底要做什么
-- 发布时间：2019/9/2 22:04:00
-- 回复：（有点蓝）没看懂这个代码到底要做什么
我想在窗口中的每一个pictureview，点增加照片时，所弹出的文件对话框，打开的目录是前一个pictureview添加文件时的目录。
例如：A pictureview，增加照片时在 C :\\aa1\\ 下选择了一张图片。
那么之后，b pictureview 添加照片时，弹出的文件选择框显示的目录也是 C :\\aa1\\
c、d、e...所有的pictureview也一样，
若突然一个，在 D :\\ggc1\\ 路径下选择了文件，那么，返回 A pictureview 增加照片所弹出的文件选择框显示的目录也变成 D :\\ggc1\\
这个能实现吗？
-- 发布时间：2019/9/2 22:18:00
--
这个无法设置。
-- 发布时间：2019/9/2 22:51:00
-- 回复：（有点蓝）这个无法设置。
这个我倒是换成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
End If
End If
-- 发布时间：2019/9/2 23:16:00
--
不能释放内存的问题做个实例发上来测试
-- 发布时间：2019/9/2 23:54:00
-- 回复：（有点蓝）不能释放内存的问题做个实例发上来测...
嗯嗯，我做好了实例，麻烦蓝老师帮忙看看。
平时加载的图片都差不多1M一张，本来想上传几张给老师您测试的，可能太大，上传不了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例2.rar |
[此贴子已经被作者于2019/9/2 23:57:43编辑过]
-- 发布时间：2019/9/2 23:58:00
--
此主题相关图片如下：c360_2019-08-26-11-23-17-054.jpg
-- 发布时间：2019/9/3 8:49:00
--
请先更新Foxtable到最新版