Foxtable(狐表)用户栏目专家坐堂 → 4.19版升级后,DrawCell的代码无法运行


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

主题:4.19版升级后,DrawCell的代码无法运行

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
4.19版升级后,DrawCell的代码无法运行  发帖心情 Post By:2020/4/26 10:05:00 [显示全部帖子]

请教老师,未升级前以下代码正常在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


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1174 积分:8782 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2020/4/26 11:22:00 [显示全部帖子]

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


 回到顶部