当前位置:编程学习 > VB >>

API画图闪烁问题

在二屏上显示,原图是(255,255,255)的白画面,在该图上加上一个(252,252,252)的矩形,和原白画面一样大,再在图上画一个(255,255,255)的圆,半径是5,完成后鼠标放上去会显示十字线,画图没问题,但移动十字线会闪烁的很厉害,求解答该如何处理使其不闪。 
Me.AutoRedraw = True
hlcBrush = CreateSolidBrush(lngColor)
Call SelectObject(lngPattDC, hlcBrush)
Rectangles lngPattDC, frmPanelSetup.txtResolutionX,- frmPanelSetup.txtResolutionY, lngColor                                
 Me.AutoRedraw = True          
 hlcBrush = CreateSolidBrush(RGB(255, 255, 255))
Call SelectObject(lngPattDC, hlcBrush) 
Round lngPattDC, txtX(lCnt), txtY(lCnt), txtR(lCnt)
这是画矩形和圆的程序,画完的图在二屏上显示,需要添加什么属性使画完的图在移动鼠标时不闪。是不是因为画的矩形太大导致闪烁。 --------------------编程问答-------------------- 做了好久,鼠标移动一直闪烁。 --------------------编程问答-------------------- 代码好像没发玩,你这是一个完整的函数代码吗,是在什么事件中调用的呢 --------------------编程问答-------------------- 这个例子不闪 --------------------编程问答-------------------- 这个只是一部分,画矩形的那个是一个函数,后面还是调用的API画矩形 --------------------编程问答--------------------
引用 2 楼 bcrun 的回复:
代码好像没发玩,你这是一个完整的函数代码吗,是在什么事件中调用的呢

这个只是一部分,颜色坐标设置都在前边,画矩形的那个是后边是调用的画矩形的api函数 --------------------编程问答--------------------
引用 3 楼 Veron_04 的回复:
这个例子不闪

明天试一下。谢谢! --------------------编程问答-------------------- 你可以考虑双缓冲,在需要的时候BitBlt吧 --------------------编程问答-------------------- 概念不对,要用GDI就不要继续用VB的概念。
补充:VB ,  API
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,