VB高手帮忙 timer

来源：百度知道 编辑：UC知道 时间：2024/05/08 22:30:49
分别用timer 和键盘控制一个picturebox的位置
当 timer 开始计时 picturebox1的位置从左到右
而用键盘上下键可以控制它的高度
请各位高手帮忙 ~
高手 我用你的代码 仿佛不行呀 那个图不动。。。。。。
Picture1.SetFocus 和Case vbKeyUp Case vbKeyDown 显示代码有错
改成Picture1.Focus 和 vbUpperCase vbLowerCase 代码没错了 可是图还是不动。。。。。
我用的是vb2008 不知道是不是因为这个？？？
麻烦你再帮忙看看吧 谢谢

新建一窗体,画一个Picture和Timer,复制下面代码,就可以看见效果
Private Sub Form_Load()
Picture1.Left = 0
Show
Picture1.SetFocus

Timer1.Interval = 20
Timer1.Enabled = True
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
Picture1.Top = Picture1.Top - 100
Case vbKeyDown
Picture1.Top = Picture1.Top + 100
Case Else
End Select

End Sub

Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 20
If Picture1.Left > Me.Width Then Timer1.Enabled = False
End Sub

横向控制：
Picture1.left=X
采用Timer控制 X 值即可。
纵向控制：
Picture1.top=Y
采用键盘判断，控制 Y 的值。
其实Picture的位置就是由.Left和.Top决定的，你只要改变 X,Y的值就够了。