- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助][原创]高手改进，GTi动态 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40349)
-- 发布时间：2013/9/16 11:14:00
-- [求助][原创]高手改进，GTi动态
诶，看到GDI这章，突然发现可以做成这样。
缺点是：
1、屏幕闪动？？？
2、进程怎么一致呢？？？360度，怎么匹配填入50%就转动180度呢？？？同理，转360度就是100%？？？
3、GDI写过后能不能倒回来转动？？？本人写了下发现两边会留下之前PAINT的痕迹？？？
高手改进下
[此贴子已经被作者于2013-9-16 11:13:59编辑过]
-- 发布时间：2013/9/16 13:13:00
--
360*50/100 = ?
360*100/100 = ?
自己算一算，就找到规律了！
-- 发布时间：2013/9/16 21:05:00
--
测试了一下，闪烁的问题，无可避免的。
留下痕迹是因为你的笔大小不一致
Dim pn As New Pen(Color.Green,12)
Dim pa As New Pen(Color.yellow,12)
百分比问题2楼已给出答案
-- 发布时间：2013/9/16 21:57:00
--
用双缓存，解决你的屏幕闪。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态进程.table |
-- 发布时间：2013/9/16 22:17:00
--
长见识了
e.Form.Controls("Painter1").baseControl.Gettype().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(e.Form.Controls("Painter1").baseControl,True,Nothing)
-- 发布时间：2013/9/17 8:39:00
--
早听说有什么双缓存的东西，要好好研究下。谢谢您！
-- 发布时间：2013/9/17 8:40:00
--
以下是引用有点甜在2013-9-16 21:05:00的发言：
测试了一下，闪烁的问题，无可避免的。
测试了一下，闪烁的问题，无可避免的。
留下痕迹是因为你的笔大小不一致
Dim pn As New Pen(Color.Green,12)
Dim pa As New Pen(Color.yellow,12)
百分比问题2楼已给出答案
不觉得画笔一大一小更好看吗？？
-- 发布时间：2013/9/17 21:06:00
--
一大一小的话，你的也反了吧？
在下面的应该比上面的大。黄色应该比绿色的大。
-- 发布时间：2013/9/17 21:12:00
--
以下是引用有点甜在2013-9-16 22:17:00的发言：
长见识了
长见识了
e.Form.Controls("Painter1").baseControl.Gettype().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(e.Form.Controls("Painter1").baseControl,True,Nothing)
狐表底层的东西，对我来说也是短板，收藏！
-- 发布时间：2013/9/17 23:03:00
--
厉害啊！学无止境