1.ȡ?取外??ο???ҳԴ??

ȡ???ο???ҳԴ??

       .版本 2

       .程序集 窗口程序集1

       .程序集变量 颜色序号, 整数型

       .子程序 _标签1_鼠标左键被按下, 逻辑型

       .参数 横向位置, 整数型

       .参数 纵向位置, 整数型

       .参数 功能键状态, 整数型

       颜色序号 ＝ 颜色序号 ＋ 1

       .判断开始 (颜色序号 ＝ 1)

        外形框1.线条颜色 ＝ #红色

       .判断 (颜色序号 ＝ 2)

        外形框1.线条颜色 ＝ #

       .判断 (颜色序号 ＝ 3)

        外形框1.线条颜色 ＝ #蓝色

       .判断 (颜色序号 ＝ 4)

        外形框1.线条颜色 ＝ #绿色

       .判断 (颜色序号 ＝ 5)

        外形框1.线条颜色 ＝ #橙黄

       .判断 (颜色序号 ＝ 6)

        外形框1.线条颜色 ＝ #紫色

       .判断 (颜色序号 ＝ 7)

        外形框1.线条颜色 ＝ #白色

        颜色序号 ＝ 0

       .默认

       .判断结束

       外形框1.线条颜色 ＝ #黑色 ‘“#”后加什么颜色就是什么颜色

       要变多少次就多少次，记得在最后一次得加 颜色序号 ＝ 0 它才能循环变色。形框vba 项目源码如：.

       判断 (颜色序号 ＝ 9)’假如“9”是网页treemap源码剖析最后一次

        外形框1.线条颜色 ＝ #白色

        颜色序号 ＝ 0 ‘注意这里