| 投稿日 | ： 2007/04/09(Mon) 16:12 |
| 投稿者 | ： ダンボ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: PictureBox上のLineを回転させる方法 |
もういらないとは思いますが、RとTの現在値の取得を付け加えておきました。
(*)画像の回転は出来るんですよね。それでいてLINEの回転が出来ない？
(**)画像と線を同時に回転させたいということかしら？それなら画像の合成の方を指向すれば？
Option Explicit
Const PAI = 3.1415926
Dim R As Double, T As Double
Private Sub Command1_Click()
T = T + Radian(90)
Line1.X2 = R * Cos(T) + Line1.X1
Line1.Y2 = R * Sin(T) + Line1.Y1
End Sub
Private Function Radian(D As Double) As Double
Radian = PAI * D / 180
End Function
Private Function ArcTan(X As Double, Y As Double) As Double
Select Case X
Case Is > 0
ArcTan = Atn(Y / X)
Case Is < 0
ArcTan = Atn(Y / X) + PAI
Case Else
ArcTan = Sgn(Y) * PAI / 2
End Select
End Function
Private Sub Form_Load()
With Line1
R = Sqr((.X2 - .X1) ^ 2 + (.Y2 - .Y1) ^ 2)
T = ArcTan(.X2 - .X1, .Y2 - .Y1)
End With
End Sub