vb隨機移動滑鼠

標籤：exit   click   thread   時鐘   declare   移動   style   隨機   form   

建立一工程，放一個按鈕command1，放一個時鐘timer1,拷貝下列代碼運行，按按鈕一下會發現滑鼠隨機移動，碰到邊界會反彈，再按按鈕一下（或斷行符號鍵）會停止。
‘*****************************拷貝下列代碼*****************************************

Private Type POINTAPI        x As Long        y As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongDim rndX As Integer, rndY As Integer  ‘定義隨機移動方向和速率Private Sub Command1_Click()  If rndX <> 0 And rndY <> 0 Then    rndX = 0    rndY = 0    Exit Sub  End If  While rndX = 0    rndX = Rnd * 20 - 10  Wend  While rndY = 0    rndY = Rnd * 20 - 10  WendEnd SubPrivate Sub Form_Load()  Timer1.Interval = 10End SubPrivate Sub Timer1_Timer()  Dim pos As POINTAPI, x As Long, y As Long  If rndX = 0 And rndY = 0 Then    Rnd    Exit Sub  End If  GetCursorPos pos  x = pos.x + rndX  y = pos.y + rndY  If x < 20 Then    x = 20    rndX = rndX * (-1)  End If  If x >= Screen.Width / 15 - 60 Then    x = Screen.Width / 15 - 60    rndX = rndX * (-1)  End If  If y < 20 Then    y = 20    rndY = rndY * (-1)  End If  If y >= Screen.Height / 15 - 100 Then    y = Screen.Height / 15 - 100    rndY = rndY * (-1)  End If  SetCursorPos x, yEnd Sub

 

轉自：http://bbs.bccn.net/thread-407793-1-1.html

vb隨機移動滑鼠