以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  绘制单元格按钮的这个图标如何根据行高自动居中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148205)
--  作者：scofields
--  发布时间：2020/4/2 11:03:00
--  绘制单元格按钮的这个图标如何根据行高自动居中？
绘制单元格按钮的这个图标如何根据行高自动居中？这个代码需要怎么调整？图示的这个效果太难看了。
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


If e.Col.name= "删" Then
    e.StartDraw
    If e.MouseHover = False \'如果鼠标不在此单元格
        e.Graphics.DrawImage(GetImage("delete1.ico"), e.x + 3,e.y + 3) \'绘制第一个图标
    Else \'如果鼠标在此单元格
        e.Graphics.DrawImage(GetImage("delete2.ico"), e.x + 2,e.y + 2) \'绘制第二个图标
    End If
    e.EndDraw
End If
--  作者：有点蓝
--  发布时间：2020/4/2 13:40:00
--  
dim img as image = GetImage("delete1.ico")
e.Graphics.DrawImage(img, e.x + 3,e.y + (e.Height - img.height) / 2)