用vb实现地球绕太阳旋转

选项显式

Dim先生一样长，mx一样长，my一样长

私有子窗体_Load()

尺寸x1，y1，x2，y2，a1，a2，r1

x1 =我。刻度宽度/ 2

y1 =我。比例高度/ 2

x2 = x1

y2 = y1 - Me。比例高度/ 4

r1 =我。比例高度/ 4

a1 =我。刻度宽度/ 3.5

a2 =我。刻度宽度/ 7

Shape1。Left = x1 - a1

Shape1。Top = y1 - a1

Shape1。宽度= 2 * a1

形状2。宽度= 2 * a2

形状2。左= x2 - a2

形状2。Top = x2 - a2

末端接头

私有子命令1_click()

具有Shape1

mx =。左+。宽度\ 2

我的=。Top +。高度\ 2

mr = Shape2。Top + Shape2。高度\ 2米

以…结尾

定时器1。启用=真

末端接头

私有子定时器1_timer()

作为整数的静态jd

Dim p为Long，x为Long，y为Long

带形状2

。Left = mx + mr * Cos(jd * 20) -。宽度\ 2

。Top = my + mr * Sin(jd * 20) -。高度\ 2

以…结尾

jd = jd + 5

如果jd & gt360那么JD = 0’如果大于360度，从头开始。

末端接头