以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  4.19版升级后,DrawCell的代码无法运行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149193)

--  作者:douglas738888
--  发布时间:2020/4/26 10:05:00
--  4.19版升级后,DrawCell的代码无法运行

请教老师,未升级前以下代码正常在DrawCell运行,升级后,只能在表格式样为FOXTABLE经典蓝/银/黑正常运行,其他表格式样均不能运行

 

\'------------单元格·模拟按钮
If e.Col.name= "项目登记" Then
    e.StartDraw()
    Dim fnt As New Font("微软雅黑",9)
    Dim w As Integer = e.Width-13 \' - 4
    Dim h As Integer = e.Height-14
    Dim x As Integer = e.x \'+ (e.Width - w)/2
    Dim y As Integer = e.y
    Dim msg As String
    Dim br As object
    If e.MouseHover = False \'如果鼠标不在此单元格
        e.Graphics.DrawImage(getimage(projectPath & "Images\\按钮启动.png"), e.x+6,e.y+6,w,h)\' + 0, 70, 23) \'显示第一个图标
        br = New SolidBrush(color.Navy)
        msg = ""
    Else
        e.Graphics.DrawImage(getimage(projectPath & "Images\\按钮修改.png"), e.x+6,e.y+6,w,h)\' + 0, 70, 23) \'显示第二个图标
        br = New SolidBrush(color.Navy)
        msg = ""
    End If
    e.EndDraw()
End If


--  作者:有点蓝
--  发布时间:2020/4/26 11:11:00
--  
已反馈
--  作者:程兴刚
--  发布时间:2020/4/26 11:19:00
--  
应该判断图片是否存在,否则一旦图片丢失,系统会崩溃!
--  作者:douglas738888
--  发布时间:2020/4/26 11:22:00
--  

请教程老师,这里怎样判断图片是否存在,请教代码应该怎样写


--  作者:有点蓝
--  发布时间:2020/4/26 12:00:00
--  
参考:http://www.foxtable.com/webhelp/topics/0337.htm