以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  绘制单元格按钮的这个图标如何根据行高自动居中?  (http://www.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)