打开一个Excel,在视图页面创建一个宏如下
Sub aa()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "请选择一个包含Flash的Office文档")
If tmpFileName = "False" Then...
excel, flash阅读全文
华容道
依旧没有flash播放器……
代码:
//用数组定义棋盘格局
var aHua:Array=new Array(mCao,mGuan,mZhang,mZhao,mMa,mHuang,mBing1,mBing2,mBing3,mBing4);
var oldMouseX:Number;
var oldMouseY:Number;
var BlockDirection:String;
var theCurrentBlock:MovieClip=new MovieClip();
//设置棋子鼠标光标为手形
mCao.useHandCursor=true;
mCao.buttonMode=true;
mMa.useHandCursor=true;
mMa.buttonMode=true;
mZhao.useHan...
flash, 华容道阅读全文
骑士巡逻
还是没办法置入flash……
代码如下:
import flash.events.MouseEvent;
var Ma:Array=new Array([M11_mc,M12_mc,M13_mc,M14_mc,M15_mc,M16_mc,M17_mc,M18_mc],[M21_mc,M22_mc,M23_mc,M24_mc,M25_mc,M26_mc,M27_mc,M28_mc],[M31_mc,M32_mc,M33_mc,M34_mc,M35_mc,M36_mc,M37_mc,M38_mc],[M41_mc,M42_mc,M43_mc,M44_mc,M45_mc,M46_mc,M47_mc,M48_mc],[M51_mc,M52_mc,M53_mc,M54_mc,M55_mc,M56_mc,M57_mc,M58_mc],[M61_mc,...
as3, flash, 骑士巡逻阅读全文
八皇后游戏,自己一下午做的,不过好像WP显示不正常,可以直接点链接点开。后边有代码。
八皇后游戏
代码:
import flash.events.MouseEvent;
var k,t,a,b;//确定棋子位置,颜色
var m=0;//判断棋子数
var c,d;//定义棋盘坐标
var hou:Array=new Array(hou1_mc,hou2_mc,hou3_mc,hou4_mc,hou5_mc,hou6_mc,hou7_mc,hou8_mc);//定义棋子
var bool:Array=new Array();
for(c=0;c<=7;c++)
{
bool[c]=new Array();
for(d=0...
as3, flash, 八皇后阅读全文