vb,我爱你

来源：百度知道 编辑：UC知道 时间：2024/06/14 00:08:04
我想编个程序，是这样的：三个命令按钮紧密排成一排，在窗体上移动，当在最左边时，向右移动，当移动到最右边时，向左移动，如此循环，我编的运行不出来呀，求vb高手帮我一把，不胜感激！
谢谢！
忘了我的代码了：

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
If C1.Left = 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
If C3.Left = Form1.Width - C3.Width Then
Timer1.Enabled = False
Timer2.Enabled = True
End If

End Sub

Private Sub Timer1_Timer()
C1.Left = C1.Left + 50
C2.Left = C2.Left + 50
C3.Left = C3.Left + 50
End Sub

Private Sub Timer2_Timer()
C1.Left = C1.Left - 50
C2.Left = C2.Left - 50
C3.Left = C3.Left - 50

End Sub

你运行后timer1和timer2的enabled都为false，当然不能动了。我给你改了一下，你试试。需要单击C1才能开始动。
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub C1_Click()
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
If C3.Left >= Form1.Width - C3.Width Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
C1.Left = C1.Left + 50
C2.Left = C2.Left + 50
C3.Left = C3.Left + 50
End Sub

Private Sub Timer2_Timer()
If C1.Left <= 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
C1.Left = C1.Left - 50
C2.Left = C2.Left - 50
C3.Left = C3.Left - 50
End Sub

看看你的timer1.Interval和timer2.Interval是不是大于58
呀！