Question

火速求在vb的编程里的能让标签沿着窗体对角线移动的在计时器里的主要代码~

Private Sub Timer1_Timer()
If Label1.Top > 0 And Label1.Width > 0 Then
Label1.Top = '标签沿从右向左的对角线方向移动
Label1.Left =
Else
Label1.Left = Me.ScaleWidth - Label1.Width
Label1.Top = Me.ScaleHeight - Label1.Height
End If

End Sub

Answer 1

Label1.Top = Label1.Top + (Me.ScaleHeight - Label1.Height) / Timer1.Interval
Label1.Left = Label1.Left - (Me.ScaleWidth - Label1.Width) / Timer1.Interval