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控件下落时闪烁的问题,有代码的直接上代码。我目前的移动方式是第一种代码。改成双缓冲的话给个代码吧,最好直接用代码+注释表示下 展开
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询