Question

用 VB设计字从左到右，从右到左，从上到下，从下到上的滑动

分别用四个计时器对该对应的字进行设置，如果字滑动到了窗体边就从窗体的另一边过来，以此类推...

Answer 1

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End SubPrivate Sub Timer1_Timer()
If Label1.Left <= Form1.Width - Label1.Width Then
Label1.Left = Label1.Left + 50
Else
Label1.Left = 0
End If
End SubPrivate Sub Timer2_Timer()
If Label2.Top <= Form1.Height - Label2.Height Then
Label2.Top = Label2.Top + 50
Else
Label2.Top = 0
End If
End SubPrivate Sub Timer3_Timer()
If Label3.Top >= 0 Then
Label3.Top = Label3.Top - 50
Else
Label3.Top = Form1.Height - Label3.Height
End If
End SubPrivate Sub Timer4_Timer()
If Label4.Left > 0 Then
Label4.Left = Label4.Left - 50
Else
Label4.Left = Form1.Width
End If
End Sub