Question

求一个vb做的小球跟随鼠标移动的程序

求一个vb做的小球跟随鼠标移动的程序
lovelesswy@sina.com邮箱，各位达人，给程序吧，别随便指点几句就完了
本人菜鸟！！！

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
球.Left = X
球.Top = Y
End Sub
可以稍微加点偏移量 防止鼠标挡住球。。。。

追问

那怎么是这个球慢慢的给随鼠标移动，比如鼠标已经移动到一个地方了，小球慢慢的靠近鼠标

追答

假设现在球距离鼠标（X 坐标）为10 。用定时器，比如定时一秒，然后每秒移动1，这样看起来就是慢慢的移动 可以看到移动过程了。具体的话时间和每次移动距离的设置就靠你自己慢慢调试了。
另外：没有人有义务给你程序，不要张口i就要完整的程序。给你思路了就自己多想想。

追问

我都说我是菜鸟了！你随便给点思路我连最基本的都不会怎么明白你的思路啊！！！

Answer 2

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim mp As Integer
Private Sub Form_Load()
Image1.Picture = LoadPicture("d:\cp\y.bmp")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
x2 = Image1.Left
y2 = Image1.Top
mp = 0
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, k As Integer
i = Int((x1 - x2) / 10)
k = Int((y1 - y2) / 10)
If mp < 9 Then
Image1.Left = Image1.Left + i
Image1.Top = Image1.Top + k
mp = mp + 1
Else
Image1.Left = x1
Image1.Top = y1
End If
End Sub

Answer 3

给你个思路
1.透明窗体程序。做一张bmp的图，做成透明窗体
2.加一个timer用api定时获取鼠标位置，然后form move到鼠标跟前。

Answer 4

- >