怎么在VB.net中实现围绕远点旋转,我百度了一下,以下是VB6.0的的代码:
PrivateSubForm_Load()
Label1.Width=300
Label1.Height=300
Label1.Caption=""
Label1.BackColor=vbRed
Timer1.Interval=20
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer
ConstPI=3.1415926
StaticThetaAsLong
DimRAsDouble,X0AsDouble,Y0AsDouble
X0=Form1.ScaleWidth/2
Y0=Form1.ScaleHeight/2
R=IIf(X0>Y0,Y0,X0)/2
Theta=Theta+5
Label1.MoveX0+R*Cos(Theta*PI/180)-Label1.Width/2,Y0+R*Sin(Theta*PI/180)-Label1.Height/2
EndSub
X坐标圆坐标+圆半径*cos(圆角度*PI/180)-标签的宽度/2,Y坐标同上
就是没有搞明白这个算法,能仔细说明一下吗?
还有个问题就是把这个代码复制到VB.net里面这段代码要出错,Label1.MoveX0+R*Cos(Theta*PI/180)-Label1.Width/2,Y0+R*Sin(Theta*PI/180)-Label1.Height/2
求解?
分 -->
|