PictureViewer不显示图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → PictureViewer不显示图片

共有4391人关注过本帖树形打印复制链接主题：PictureViewer不显示图片

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

PictureViewer不显示图片 发帖心情

Post By：2022/6/5 22:13:00 [只看该作者]

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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107660 积分：547615 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/6/5 22:41:00 [只看该作者]

表格图片列属性怎么设置的？控件的设置要和列属性一致

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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编辑过]

yifan3429

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2022/6/6 11:20:00 [只看该作者]

老师在吗

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107660 积分：547615 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/6/6 11:26:00 [只看该作者]

PictureViewer只能显示单元格绑定的图片，无法显示自定义的默认图片

yifan3429

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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

解决

下一主题 >> << 上一主题

主题：PictureViewer不显示图片