Вопрос по формуле: как можно сделать поворот картинки за мышкой (поросто вращалась?) если учесть что картинка может вращаться на 360 градусов.
Я знаю X и Y Мышки.
И X и Y Изображения.
Афаикт, там только для WinNT?Ennor писал(а):http://bbs.vbstreets.ru/viewtopic.php?p=37984#37984
Option Explicit
Private Xk As Single, Yk As Single
Private Const Pi = 3.14159265358979
Private Sub Form_Load()
ScaleMode = vbPixels
FillStyle = vbFSSolid
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim phi As Single
If X = Xk Then phi = Pi / 2 Else phi = Atn((Yk - Y) / (X - Xk))
If phi < 0 Then phi = phi + Pi
If Y > Yk Then phi = phi + Pi
Caption = Round(180 / Pi * phi, 2) & "°"
End Sub
Private Sub Form_Paint()
Cls
Circle (Xk, Yk), 4
End Sub
Private Sub Form_Resize()
Xk = ScaleWidth / 2: Yk = ScaleHeight / 2
Refresh
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 37