主题：在屏幕上如何动态画虚框？

现在可以用商业版打开了。谢谢了。

 

试用“鼠标框选效果.table” 后发现，此法只能用于无色无背景屏幕。若Form有背景色或图片，使用时

闪烁得十分厉害，原因是：

 

If MouseButton = MouseButtons.Left Then
    e.Sender.BaseControl.Refresh
    Dim g As Graphics = e.Sender.BaseControl.CreateGraphics
    g.DrawLine(Pens.Red,vars("x"),vars("y"),e.X,vars("y"))
    g.DrawLine(Pens.Red,vars("x"),vars("y"),vars("x"),e.Y)
    g.DrawLine(Pens.Red,e.x,vars("y"),e.X,e.y)
    g.DrawLine(Pens.Red,vars("x"),e.Y,e.x, e.y)
End If

 

中的语句：

    e.Sender.BaseControl.Refresh
导致屏幕色调或图片的去除和回复，出现闪烁。

但目前又不能去掉。

 

能否使用hook方法，确定光标位置，然后画Label控件的方法？

我找有一个VB的钩子，但无法正确的移植到Foxtable中。

现传给你，看看有无办法移植过来。

谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:hook鼠标钩子.txt

 AfterLoad加入代码

 

Dim p As object = e.Form.Controls("panel1")
 p.baseControl.Gettype().GetProperty("DoubleBuffered",  Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(p.baseControl,True,Nothing)