以文本方式查看主题

-  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=84715)
--  作者：pcxjxjhkw
--  发布时间：2016/5/8 20:29:00
--  [求助]单元格绘制问题

如何实现：当鼠标停留在某一行时，在“删除”列绘制删除按钮？

 

If e.Col.name= "删除" OrElse e.Col.name= "用户名"     Then
    e.StartDraw
    If e.MouseHover = True \'如果鼠标在此单元格
        e.Row("删除").Graphics.DrawImage(delimg, e.x + 2,e.y + 2) \'绘制图标
    End If
    e.EndDraw
End If

[此贴子已经被作者于2016/5/8 20:29:13编辑过]
--  作者：大红袍
--  发布时间：2016/5/9 9:13:00
--  

If e.Col.name= "删除" Then
    If e.MouseHover = True \'如果鼠标在此单元格
        e.StartDraw
        e.Graphics.DrawImage(getimage("d:\\test.jpg"), e.x + 2,e.y + 2) \'绘制图标
        e.EndDraw
    End If
End If

 
--  作者：pcxjxjhkw
--  发布时间：2016/5/9 13:07:00
--  
2楼代码仅实现了，当鼠标停留在删除单元格时绘制，我想实现：当鼠标停留当前行时，在删除单元格绘制。
--  作者：大红袍
--  发布时间：2016/5/9 14:19:00
--  

重复问题不要重复问题啊

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84054&skin=0

 

 
--  作者：大红袍
--  发布时间：2016/5/9 14:24:00
--  

If e.Col.name= "删除" Then
    If vars("x") = e.Row.Index Then
        e.StartDraw
        e.Graphics.DrawImage(getimage("d:\\test.ico"), e.x + 2,e.y + 2) \'绘制图标
        e.EndDraw
    End If
End If

 

-----------------------

 

vars("x") = e.Row.Index
e.Table.Refresh