Перемещение курсора

[Shadowkiller]

Как зделать так что бы какой либо объек перемещался за курсором мыши

[Smith68]

Значит так, создай объект и пиши

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Top = Y + 70
Label1.Left = X + 70
End Sub


В моём примере это Label1. Вместо него ставь что хочешь, ну почти. Теперь он будет твой!

[GB826]

Код: Выделить всё

Dim xxx, yyy As Integer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  xxx = X
  yyy = Y
End Sub

Private Sub Timer1_Timer()
  Command1.Top = Command1.Top + ((yyy - Command1.Height \ 2) - Command1.Top) / 50
  Command1.Left = Command1.Left + ((xxx - Command1.Width \ 2) - Command1.Left) / 50
End Sub


Так красивее ;о))

На Form1 - Command1 и Timer1
Timer - Enabled =True
Interval - какой-хошь, в примере 10

[vvs_adm]

GB826 Твой пример, мягко говоря, ... менее красивый