- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- PictureViewer不显示图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177808)
-- 发布时间：2022/6/5 22:13:00
-- PictureViewer不显示图片
Dim pic As WinForm.PictureViewer
pic = Forms("主窗_菜单").CreateControl("图片", ControlTypeEnum.PictureViewer)
pic.Width = Forms("主窗_菜单").Width
pic.CommandVisible = False \'控制命令是否显示
pic.OpenEnabled = True \'是否允许用户单击打开命令调用第三方程序来打开图片
pic.AutoSize = False \'是否自动缩放图片
pic.BindingField = "产品库_活动家具.图片" \'绑定表列
pic.Height = 400
pic.Left = 5
pic.Top = 5
Forms("主窗_菜单").Controls("菜单页面").Tabpages("菜单").AddControl(pic)
此主题相关图片如下：企业微信截图_20220605221536.png
[此贴子已经被作者于2022/6/5 22:16:10编辑过]
-- 发布时间：2022/6/5 22:41:00
--
表格图片列属性怎么设置的？控件的设置要和列属性一致
-- 发布时间：2022/6/6 8:23:00
--
If e.Table.Current("图片") = "" Then \'如果Current为Nothing
Forms("主窗_菜单").Controls("图片").Image = GetImage("D:\\fox2023\\Images\\chuanyue.jpg")
Else
End If
放在表事件下
CurrentChanged
希望没有内容时 显示默认图片
.Image 不是 PictureViewer 的成员
[此贴子已经被作者于2022/6/6 9:10:02编辑过]
-- 发布时间：2022/6/6 11:20:00
--
老师在吗
-- 发布时间：2022/6/6 11:26:00
--
PictureViewer只能显示单元格绑定的图片，无法显示自定义的默认图片
-- 发布时间：2022/6/6 13:48:00
--
Case "产品库_固装家具" ,"产品库_活动家具"
If e.Table.Current("图片") = "" Then \'如果Current为Nothing
Forms("主窗_菜单").Controls("图片").BindingField = "系统_企业设置.企业LOGO" \'底图显示
Else
Forms("主窗_菜单").Controls("图片").BindingField = e.Table.name & ".图片"
End If
Case Else
解决