 |
|
|
|
|
|
|
|
|
|
2．一个转动的风扇 基本原理： 在窗体上放三个四叶风扇的图像，每个图像中叶片的位置不一样。围绕中心点的旋转角度分别为：0°、30°、和60°。当程序开始运行时，将所有图像在窗体上的位置变为相同，然后依次显示各图像，如果变换速度适当，则可以看到一个风扇在旋转的形象。 程序实例： l 在Form1中的控件（如图6）：
（1）图像控件组Image1(0)~Image1(3) Picture属性分别为四个不同的图像文件fan1.bmp~fan4.bmp。 （2）Timer1: Interval=100 （0.1秒） l 程序代码： Dim i As Integer
Private Sub Form_Load() For i = 1 To 3 Image1(i).Visible = False '将图像2~4看不见 Image1(i).Left = Image1(0).Left '所有的图像位置变为相同 Image1(i).Top = Image1(0).Top Next i = 0 End Sub Private Sub Timer1_Timer() If i = 3 Then '如果是第四幅图像显示完，则重新回到第一幅 Image1(3).Visible = False i = 0 End If Image1(i).Visible = False '将显示过的图像消去 i = i + 1 Image1(i).Visible = True '显示下一幅图像 End Sub |
图6