百例------总结！

       前言：这已经是第二遍敲百例了，对于百例的熟悉程度真的是一生二熟。第一次敲百例，确实不是很懂，对于代码的理解都没有再次回顾理解的透彻。这次回顾把之前很多知识盲点和基础都补上了，很多基础语法包括基础规则可能时间有点长所以有些遗忘。再次回顾这100个例子里面，让我最难忘得还是第44个画画八卦图和86引用flash文件的那个。

     画八卦

            画八卦运用了，画圆的方法。利用多个圆的嵌套组成一个八卦，画圆方法的语法格式如下：

Circle(坐标)，半径，,起始角，结束角

八卦的样式如右图所示：

拆解分析的话：可以分为外面一个大圆，里面上下各有一个半圆。然后以圆心的位置上下各一个小球。

实现代码如下：

Option Explicit
    Dim x, y As Integer '用于设置坐标
    Const pi = 3.1415926 '符号常量
Private Sub Command1_Click()
'大圆，绘制八卦外层的大圆。
    x = Me.ScaleWidth / 2 '横坐标
    y = Me.ScaleHeight / 2 '纵坐标
    Circle (x, y), y '以窗体以为交叉定位大圆的中心，用窗体高的一半做半径。
'上半弧
    Circle (x, y / 2), y / 2, vbRed, pi / 2, 3 * pi / 2 '参数表示
                                                                        '坐标 ，半径，颜色，起始角，终止角，比例
'下半弧
    Circle (x, (y / 2) * 3), y / 2, vbGreen, 3 * pi / 2, pi / 2
    '上半弧圆心
    FillStyle = 0 '实心填充
    Circle (x, y / 2), 150
    '下半弧圆心
    FillStyle = 0
    Circle (x, (y / 2) * 3), 150
End Sub

动态添加flash

 原因是因为第86个例子由于是因为添加了flash控件无法保存工程所以用另一种方法实现，也不算是另一种方法，只不过是通过创建对象，进行动态添加flash控件。代码如下；

Option Explicit
Dim tmpctl  As Object '新建运行flash对象
Private Sub Command1_Click(Index As Integer)
    Select Case Index '根据命令索引
        Case 0
'            flash1.Movie = "D:\TGB\自己的作品\第二次回顾\百例\86\wg.swf"
'            flash1.Play '播放动画
              tmpctl.object.loadmovie 0, App.Path + "\wg.swf" '用创建的对象播放swf文件
        Case 1
            End
    End Select
End Sub