vb 控制图片左右移动切换方向时不卡,代码怎么写呢?还有,在移动图片时,图片会一闪一闪的~这个也很纠结

IfKeyCode=37AndImage1.Left-70>=0ThenImage1.MoveImage1.Left-70,Image1.Top'左由于只向左移,TOP不... If KeyCode = 37 And Image1.Left - 70 >= 0 Then Image1.Move Image1.Left - 70, Image1.Top '左由于只向左移,TOP不变,所以也可以这样(Image1.Left=Image1.Left - 10)直接减小LEFT就行了.下面也一样.
If KeyCode = 38 And Image1.Top - 70 >= 2700 Then Image1.Move Image1.Left, Image1.Top - 70 '上
If KeyCode = 39 And Image1.Left + 70 <= 5150 Then Image1.Move Image1.Left + 70, Image1.Top '右
If KeyCode = 40 And Image1.Top + 70 <= 6600 Then Image1.Move Image1.Left, Image1.Top + 70 '下

and后面的Image1.Top + 70 <= 6600之类的是为了控制image1在一定范围内移动。用这个确实是可以控制,但有一个问题,本来一直按着向左,现在突然改成向右移动,中间会有一个短暂的暂停,然后才向右移动。我希望没有这个短暂的暂停间隙,能直接改变运动方向!
Select Case KeyCode
Case vbKeyLeft
Image1.Left = Image1.Left - 70
Case vbKeyRight
Image1.Left = Image1.Left + 70
Case vbKeyUp
Image1.Top = Image1.Top - 70
Case vbKeyDown
Image1.Top = Image1.Top + 70
Case Else
End Select
这段代码试过,一样不行,这个有到底该怎么办?最好直接给代码+注释吧。
最后就说下移动时图片会闪烁的问题。是图片质量高还是怎么滴,一直没找到切实可行的解决方案。
我想知道怎么用双缓冲解决image控件下落时闪烁的问题,有代码的直接上代码。我目前的移动方式是第一种代码。改成双缓冲的话给个代码吧,最好直接用代码+注释表示下
展开
 我来答
匿名用户
2010-12-14
展开全部
或者换这个无缝滚动效果试试
方向可以自己设置
可以设置定高定宽停顿
里面有源码可以参考

参考资料: http://www.blueidea.com/common/shoutbox/redir.asp?6=y&id=12229

百度网友21c2c8f
2010-12-08 · 超过55用户采纳过TA的回答
知道小有建树答主
回答量:260
采纳率:0%
帮助的人:175万
展开全部
第2种方法,思维清晰,可行。可以hi我
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
miniappA13o8pWx0iBrT
2010-12-08 · TA获得超过219个赞
知道小有建树答主
回答量:235
采纳率:0%
帮助的人:212万
展开全部
百度一下“双缓冲”
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式