Question

急：这个vb程序显示的点怎么改成鼠标指针？

Private Type xy
X As Single
Y As Single
End Type
Dim a(5) As xy
Private WithEvents Timer1 As Timer

Private Sub Form_Activate()
v = "please click your mouse , then try to move it !"
Form1.CurrentX = Screen.Width / 8
Form1.CurrentY = Screen.Height / 2.5
Randomize
For i = 1 To Len(v)
Form1.FontSize = 20 + 15 * Rnd
Form1.ForeColor = &HFFFFFF * Rnd
Print Mid(v, i, 1);
Next i
End Sub

Private Sub Form_Load()
Set Timer1 = Form1.Controls.Add("VB.timer", "t")
Form1.Move 0, 0, Screen.Width, Screen.Height
Timer1.Enabled = False
Timer1.Interval = 10
Form1.BackColor = &HFFFFFF
Form1.AutoRedraw = True
Form1.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
For i = 1 To 5
a(i).X = X
a(i).Y = Y
Next i
Timer1.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
End Sub

Private Sub Timer1_Timer()
Dim i As Integer, r As Double
Cls
For i = 1 To 5
a(i).X = a(i).X + (a(i - 1).X - a(i).X) * 0.1
a(i).Y = a(i).Y + (a(i - 1).Y - a(i).Y) * 0.1
Form1.PSet (a(i - 1).X, a(i - 1).Y)
Next i
End Sub

Answer 1

Private Type xy
X As Single
Y As Single
End Type

Dim a(5) As xy

Private Sub Form_Activate()
v = "please click your mouse , then try to move it !"
Form1.CurrentX = Screen.Width / 8
Form1.CurrentY = Screen.Height / 2.5
Randomize
For i = 1 To Len(v)
Form1.FontSize = 20 + 15 * Rnd
Form1.ForeColor = &HFFFFFF * Rnd
Print Mid(v, i, 1);
Next i
End Sub

Private Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
Timer1.Enabled = False
Timer1.Interval = 10
Me.AutoRedraw = True
For i = 0 To 4
Picture1(i).Picture = LoadPicture("C:\WINDOWS\Cursors\3dwarro.cur")
Picture1(i).BorderStyle = 0
Picture1(i).Visible = False
Next i
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
For i = 1 To 5
a(i).X = X
a(i).Y = Y
Next i
Timer1.Enabled = True
Me.Cls
For i = 0 To 4
Picture1(i).Visible = True
Next i
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 5
a(i).X = a(i).X + (a(i - 1).X - a(i).X) * 0.1
a(i).Y = a(i).Y + (a(i - 1).Y - a(i).Y) * 0.1
Picture1(i - 1).Move a(i - 1).X, a(i - 1).Y
Next i
End Sub