第1个回答 2012-03-17
Dim k As Integer
Private Sub Command1_Click()
Timer1.Interval = 50
k = 100
End Sub
Private Sub Command2_Click()
Timer1.Interval = 50
k = -100
End Sub
Private Sub Command3_Click()
Timer1.Interval = 0
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + k
If Label1.Left <= 0 Then
Label1.Left = 0
Timer1.Interval = 0
End If
If Label1.Left + Label1.Width >= Me.ScaleWidth Then
Label1.Left = Me.ScaleWidth - Label1.Width
Timer1.Interval = 0
End If
End Sub
第2个回答 2012-03-17
private sub form_load()
timer1.enabled=false
timer1.interval=50
timer2.enabled=false
timer2.interval=50
end sub
private sub command1_click()
timer1.enabled=true
timer2.enabled=false
end sub
private sub command2_click()
timer2.enabled=true
timer1.enabled=false
end sub
private sub command3_click()
timer1.enabled=false
timer2.enabled=false
end sub
private sub command4_click()
end
end sub
private sub timer1_timer()
label1.left=label1.left+50
end sub
private sub timer2_timer()
label1.left=label1.left-50
end sub本回答被提问者采纳