以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]根据记录中状态不同，如何设置不同的动态图？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89390)
--  作者：wendude
--  发布时间：2016/8/20 17:32:00
--  [求助]根据记录中状态不同，如何设置不同的动态图？
在窗口中，有几张小球的图片，能否根据记录中状态，让其动态显示？如：状态正常，则小球图片为绿色，不停的闪烁。状态故障，则小球图片为红色，不停的闪烁。起到一目了然的提醒功能，谢谢！
--  作者：大红袍
--  发布时间：2016/8/21 15:19:00
--  

 timertick事件

 

static idx As Integer = 0
Dim r As Row = Tables("表a").current
If r IsNot Nothing Then
    If r("第一列") = "" Then
        If idx = 0 Then
            e.Form.Controls("PictureBox1").image = getimage("d:\\test.ico")
            idx = 1
        Else
            e.Form.Controls("PictureBox1").image = Nothing
            idx = 0
        End If
    End If
End If

 

http://www.foxtable.com/webhelp/scr/1322.htm

 
--  作者：wendude
--  发布时间：2016/8/26 14:12:00
--  请问图片的路径可以如何写成在项目文件的images文件夹中？
请问图片的路径可以如何写成在项目文件的images文件夹中？
--  作者：大红袍
--  发布时间：2016/8/26 15:29:00
--  
e.Form.Controls("PictureBox1").image = getimage(ProjectPath & "Images/test.ico")