Question

VB编程:鼠标跟随游戏中光点移动而移动的原码如何写?

Answer 1

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Dim x As Single, y As Single, l As Single, t As Single
Private Sub Form_Load()
Randomize
Timer1.Interval = 1000
With Shape1
.Height = 135
.Width = 135
.Shape = 3 'circle
.FillStyle = 0 'solid
End With
End Sub

Private Sub Timer1_Timer()
a = 14
x = Me.Width * Rnd
y = Me.Height * Rnd
l = Me.Left / a
t = Me.Top / a
Shape1.Left = x
Shape1.Height = y
SetCursorPos x / a + l, y / a + t
End Sub