Слежение за мышкой - VB
Формулировка задачи:
всем доброе время суток!
У меня есть картинка чела с оружием (вид с верху)
можно ( я думаю можно =) ) как-нибудь заставить его поворачиваться в сторону мыши?
что-бы сделать некое подобие "Кримсонленд"
все остальное вроде могу сделать, а вот с прицелом небольшой "проблем".
если на этот вопрос уже ответ есть, можете скинуть ссылку =) хотя, я вроде все темы пересмотрел, но то что мне нужно не нашел
Решение задачи: «Слежение за мышкой»
textual
Листинг программы
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Const realL = 600 ' длина рогатки :) X1 = Line1.X1 Y1 = Line1.Y1 L = Sqr((X - X1) ^ 2 + (Y - Y1) ^ 2) Line1.X2 = (X - X1) / L * realL + X1 Line1.Y2 = (Y - Y1) / L * realL + Y1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д