以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何动态改变窗口中PictureViewer1的“存放目录”及“来源目录”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83226)

--  作者:ytzn
--  发布时间:2016/4/4 15:52:00
--  [求助]如何动态改变窗口中PictureViewer1的“存放目录”及“来源目录”
因部分保密照片需保存在局域网内某笔记本电脑内,需要时才开机访问,所以需动态改变窗口中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编辑过]

--  作者:大红袍
--  发布时间:2016/4/5 0:32:00
--  
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.FolderName = ""    \'存放目录
pv.SourceFolder = ""   \'来源目录

--  作者:ytzn
--  发布时间:2016/4/5 10:00:00
--  
多谢!
--  作者:ytzn
--  发布时间: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编辑过]

--  作者:大红袍
--  发布时间:2016/4/21 18:23:00
--  

 那你必须把全路径保存在数据库里面,如,否则不能显示图片

 

\\\\bbbb\\zp\\1.jpg

\\\\bbbb\\zp\\2.jpg

\\\\aaaa\\zp\\1.jpg


--  作者:ytzn
--  发布时间:2016/4/21 18:27:00
--  
这样保密性就不高了
--  作者:大红袍
--  发布时间:2016/4/21 18:37:00
--  

 那没办法,一个单元格如果文件夹不同,那就必须写全路径。


--  作者:ytzn
--  发布时间:2016/4/21 18:42:00
--  
多谢指导!