以文本方式查看主题

-  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=143761)

--  作者:yifan3429
--  发布时间:2019/12/3 18:14:00
--  图片管理器 PictureViewer1 使用代码指定地址
PictureViewer1

下面是表属性,AfterLoad中如何给PictureViewer1指定文件路径

Dim dz As  String = "\\\\Tosv\\erp$\\"
\'财务凭证
Dim CWGL As  String = dz & "财务管理\\财务凭证"
DataTables("凭证").DataCols("结账凭证").DefaultFolder = CWGL
DataTables("凭证").DataCols("结账凭证").SourceFolder= "D:\\"

--  作者:有点蓝
--  发布时间:2019/12/3 20:19:00
--  
Dim p As WinForm.PictureViewer = Forms("窗口2").Controls("PictureViewer1")
p.RootDir = CWGL
p.SourceFolder = "D:\\"