请教老师,下面这段代码怎样实现 如果“立项”勾选,显示立项提示图片,如果“中标”勾选,显示中标提示图片 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