百例------总结！

       前言：这已经是第二遍敲百例了，对于百例的熟悉程度真的是一生二熟。第一次敲百例，确实不是很懂，对于代码的理解都没有再次回顾理解的透彻。这次回顾把之前很多知识盲点和基础都补上了，很多基础语法包括基础规则可能时间有点长所以有些遗忘。再次回顾这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
     
    
  
 

文章来源: kangshihang.blog.csdn.net，作者：康世行，版权归原作者所有，如需转载，请联系作者。

原文链接：kangshihang.blog.csdn.net/article/details/95618575