投稿日 | : 2007/04/06(Fri) 17:03 |
投稿者 | : ダンボ |
Eメール | : |
URL | : |
タイトル | : Re^5: PictureBox上のLineを回転させる方法 |
下記を応用すればOKだと思います。RとTの現在値を調べる処理を付け加えればね。
Private Sub Command1_Click()
Static R As Integer, T As Double
R = Min(Me.Width / 2, Me.Height / 2)
T = T + Radian(90)
Line1.X1 = Me.Width / 2
Line1.Y1 = Me.Height / 2
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 = 3.14159 * D / 180
End Function
Private Function Min(A As Double, B As Double) As Double
Min = IIf(A > B, B, A)
End Function