Как сделать "выстрел" объектом? - VB
Формулировка задачи:
есть объект command1
ПОсле клика мышкой объекс напраявляется в координаты куда кликнул мышкой ?
и как потом пускать объект кнопку в напрвление куда кликнул мышкой ? Что то не пойму угол вычислять я не умею ?
command1.left= Как тут вычислить направление mx ?
commd1.top= Как тут вычислить направление my ?
Решение задачи: «Как сделать "выстрел" объектом?»
textual
Листинг программы
Option Explicit Dim dx As Single, dy As Single, cnt As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If cnt Then Exit Sub dx = X - Command1.Left dy = Y - Command1.Top cnt = Sqr(dx ^ 2 + dy ^ 2) / Width * 50 dx = dx / cnt dy = dy / cnt Timer1.Interval = 10 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If cnt Then cnt = cnt - 1 With Command1 .Left = .Left + dx .Top = .Top + dy End With Else Timer1.Enabled = False End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д