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


  共有1754人关注过本帖树形打印复制链接

主题: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


 回到顶部