Foxtable(狐表)用户栏目专家坐堂 → [求助]如何动态改变窗口中PictureViewer1的“存放目录”及“来源目录”


  共有2241人关注过本帖树形打印复制链接

主题:[求助]如何动态改变窗口中PictureViewer1的“存放目录”及“来源目录”

帅哥,在线噢!
ytzn
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:439 积分:3850 威望:0 精华:0 注册:2012/10/12 5:20:00
[求助]如何动态改变窗口中PictureViewer1的“存放目录”及“来源目录”  发帖心情 Post By:2016/4/4 15:52:00 [显示全部帖子]

因部分保密照片需保存在局域网内某笔记本电脑内,需要时才开机访问,所以需动态改变窗口中PictureViewer1的“存放目录”及“来源目录”(都是局域网)。多谢!

以下是2016-04-21 增加的内容

没试好,继续求教

“照片”字段内容不含存放照片的路径,但如果含有“_cw",照片是放在电脑bbbb的zp文件夹内,否则是放在电脑aaaa的zp文件夹内,如下:

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

If currentTable.Current("照片") Like "*_cw*" Then

pv.FolderName = "\\bbbb\zp"    '存放目录
pv.SourceFolder = "\\bbbb\zp"   '
来源目录

else

pv.FolderName = "\\aaaa\zp"    '存放目录
pv.SourceFolder = "\\aaaa\zp"   '
来源目录

end if


不知道上面程序放在哪里能实现在表内上下移动光标,自动在PictureViewer(图片浏览器)中显示不同路径的照片


多谢!

[此贴子已经被作者于2016/4/21 18:23:05编辑过]

 回到顶部
帅哥,在线噢!
ytzn
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:439 积分:3850 威望:0 精华:0 注册:2012/10/12 5:20:00
  发帖心情 Post By:2016/4/5 10:00:00 [显示全部帖子]

多谢!

 回到顶部
帅哥,在线噢!
ytzn
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:439 积分:3850 威望:0 精华:0 注册:2012/10/12 5:20:00
  发帖心情 Post By:2016/4/21 18:17:00 [显示全部帖子]

没试好,继续求教

“照片”字段内容不含存放照片的路径,但如果含有“_cw",照片是放在电脑bbbb的zp文件夹内,否则是放在电脑aaaa的zp文件夹内,如下:

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

If currentTable.Current("照片") Like "*_cw*" Then

pv.FolderName = "\\bbbb\zp"    '存放目录
pv.SourceFolder = "\\bbbb\zp"   '
来源目录

else

pv.FolderName = "\\aaaa\zp"    '存放目录
pv.SourceFolder = "\\aaaa\zp"   '
来源目录

end if


不知道上面程序放在哪里能实现在表内上下移动光标,自动在PictureViewer(图片浏览器)中显示不同路径的照片


多谢!

[此贴子已经被作者于2016/4/21 18:20:56编辑过]

 回到顶部
帅哥,在线噢!
ytzn
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:439 积分:3850 威望:0 精华:0 注册:2012/10/12 5:20:00
  发帖心情 Post By:2016/4/21 18:27:00 [显示全部帖子]

这样保密性就不高了

 回到顶部
帅哥,在线噢!
ytzn
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:439 积分:3850 威望:0 精华:0 注册:2012/10/12 5:20:00
  发帖心情 Post By:2016/4/21 18:42:00 [显示全部帖子]

多谢指导!

 回到顶部