提一个关于VB基础编程的问题

来源：百度知道 编辑：UC知道 时间：2024/07/04 06:36:52
怎样添加代码才能使我的按键按一次就不松就能一直让图片移动?请大家支支招,我是个新手,呵呵.
原来我弄的代码如下:
Private Sub Command1_Click()
Image1.Top = Image1.Top + 100
End Sub

添加Timer1和Command1，
Timer1的Enabled设为False，Interval设为100

添加代码：

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Timer1.Enabled = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top + 100
End Sub

即可

你是说按住就让可以使图片移动而不是单击吗？
Private Sub Command1_MouseDown()
Image1.Top = Image1.Top + 100
End Sub
改成这样就行了，就是放到MouseDown事件里，不要放在Click事件里
额……看错问题了……是要一直啊……那我的这个不行，只能移动一次，选luoji1195的把