我在图片框里打印了几个字母,然后用timer
使它移动,可是闪烁的很厉害,请高手指点:
Private Sub Form_Load()
picture1.print "abcd"
end subPrivate Sub Timer1_Timer()
Call LockWindowUpdate(Me.hWnd)
picture1.top=picture1.top+50
picture1.left=picture1.left+50
Call LockWindowUpdate(0)
End Subform1 和picture1的autoredraw都设为true.
请各位高手指教,谢谢!
使它移动,可是闪烁的很厉害,请高手指点:
Private Sub Form_Load()
picture1.print "abcd"
end subPrivate Sub Timer1_Timer()
Call LockWindowUpdate(Me.hWnd)
picture1.top=picture1.top+50
picture1.left=picture1.left+50
Call LockWindowUpdate(0)
End Subform1 和picture1的autoredraw都设为true.
请各位高手指教,谢谢!
http://expert.csdn.net/Expert/topic/2416/2416623.xml?temp=.457699
要得话:EMail:[email protected]
设置AutoReDraw为True,然后用BitBlt函数贴上去,没问题