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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → PictureBox的问题

共有1733人关注过本帖树形打印复制链接主题：PictureBox的问题

douglas738888

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

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

PictureBox的问题 发帖心情

Post By：2016/8/3 16:35:00 [只看该作者]

请教老师，下面这段代码怎样实现如果“立项”勾选，显示立项提示图片，如果“中标”勾选，显示中标提示图片 PICTUREBOX 是否还需要绑定

将PictureBox控件的BeforeGetImage事件代码设置为：

Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("项目策划").Current
If r IsNot Nothing Then
  If r("立项") = True Then
           e.File = "立项.png"
        ElseIf r("中标") = True Then
            e.File = "中标.png"
        Else
            e.File = "" '不显示图片
        End If
    Else
        e.File = ""
    End If
Else
     e.File = "" '不显示图片
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/3 17:16:00 [只看该作者]

直接去写datacolchanged事件

If e.DataCol.Name = "立项" AndAlso e.NewValue = True AndAlso Forms("窗口1").Opened Then

Forms("窗口1").Controls("PictureBox1").Image = GetImage("立项.png")

End If

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

主题：PictureBox的问题