VB6.0中的MouseMove事件的问
Option Explicit
Dim xChange As Integer
Dim yChange As Integer
Private Sub Form_Load()
xChange = 100
yChange = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1。 Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1。Caption = Date
Label...全部
Option Explicit
Dim xChange As Integer
Dim yChange As Integer
Private Sub Form_Load()
xChange = 100
yChange = 100
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1。
Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1。Caption = Date
Label1。Left = Label1。
Left + xChange
Label1。Top = Label1。Top + yChange
If Label1。Left Form1。ScaleWidth Then xChange = xChange * (-1)
If Label1。
Top Form1。ScaleHeight Then yChange = yChange * (-1)
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1。
Enabled = False
End Sub。收起