UC知道vb用双缓冲让Picture绘图不闪？
来源：百度知道 编辑：UC知道 时间：2024/04/29 12:50:19
当然是清除原来所画的在新位置再重新画.然后还是会闪。刷新速度跟不上。
有把Pictuer的Autoredraw设成True
一般方法行不通
=================================
怎么说呢？不是一闪一闪的。是不顺畅。长方形分10等分，1、2、3、4、...10
从1开始移动。按照常理是234顺序移动，但是快速移动就跳了。1 3 6 9 10 这样移动。感觉不顺畅。
写段代码吧？
===============================
来回显示？车轮战行不通。我看见别人好像用其他API写的。N个小球在picture里面来回飞超顺畅的。
===============================
找不到好的解决方法。用image代替绘图也卡。找不到可以模拟小球（不管事绘制的，还是image或者其他）在picture里面顺畅的高速来回移动。不跳帧。
这个，等着学习学习
个人感觉timer，不论是函数还是控件，都不是太精确，1秒只有18次时钟触发，最小时间间隔是0.055秒左右，而现在电脑的处理能力都很强大，0.001秒内能处理很多句VB的代码了，所以应该用kernel32.dll下的GetTickCount函数来处理时间间隔，这个函数可以产生一个长整型的数值，该数值是从系统启动后经过的毫秒数，很精确，基本上可以精确到0.001秒。
还有，把Pictuer的Autoredraw设成True试试。
那个，问个问题，双缓冲是不是因为要执行两遍，所以会慢很多？
找到一种不闪的方法，先把Autoredraw设成True，然后用Pset画点，呵呵，一定不闪，只是那个效率吗，可以说是比较惨。
如果有更好的方法就好了。
试了试，效率上真是比较差啊。
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Const Tz As Long = 10
Dim i As Long, j As Long, k As Long, n As Long
Dim Px As Long, Py As Long
Dim C As Long, Ti As Long
Picture1.ScaleMode = 3
Picture1.DrawWidth = 1
Picture1.AutoRedraw = True
Px = Picture1.ScaleWidth
Py = Picture1.ScaleHeight
Randomize
i = Int(Rnd * 256)
Randomize
j = Int(Rnd * 256)