Flash与JavaScript信息交互

网上提供的这方面资料太少了，研究一两天，做了个例子，大家可以参考！

<html>

<head>

<title>Flash与3D信息交互</title>

<!--

td {

font-family: "宋体";

font-size: 12px;

}

-->

</style>

</head>

<p>

</p>

<tr>

</object>

</td>

</object>

</td>

</object>

</td>

</tr>

<tr>

</td></tr>

</table>

</html>

var ITerraExplorer = null;

var IPlane = null;

var IMenu = null;

var IObjectManager = null;

var IRender=null;

var ZoomMode = 0;

var zoom_array = new Array();

//浏览器设置

var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;

//初始化

function Init()

{

var temp;

ITerraExplorer = TE.interface("ITerraExplorer5");

IPlane = TE.interface("IPlane5");

IInformationTree = TE.interface("IInformationTree5");

IMenu = TE.interface("IMenu");

IObjectManager = TE.interface("IObjectManager5");

ITerraExplorer.Load("2.fly");

IRender=TE.interface("IRender5");

}

//飞到某个地方--------------------------------------------------------------------------------------------------

// 处理 Flash 影片中的所有 FSCommand 消息

function myFlash_DoFSCommand(args1,args2)

{

var myFlashObj = InternetExplorer ? myFlash : document.myFlash;

var tX0,tZ0;

tX0 =args1;

tZ0 =args2;

FlyToWhere(tX0,tZ0);

}

// Internet Explorer 的挂钩

if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 &&

navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)

{

document.write('<SCRIPT LANGUAGE=VBScript\> \n');

document.write('on error resume next \n');

document.write('Sub myFlash_FSCommand(ByVal command, ByVal args)\n');

document.write(' call myFlash_DoFSCommand(command, args)\n');

document.write('end sub\n');

document.write('</SCRIPT\> \n');

}

function FlyToWhere(tX0,tZ0)

{

//创建文本对象

var LabelInfo = new Object();

LabelInfo.Text = "经度 : "+tX0+" 纬度 : "+tZ0;

LabelInfo.Scale = 1;

LabelInfo.BgColor = 236;

IObjectManager.CreateLabel (LabelInfo, tX0, tZ0, 2000.0 );

IPlane.FlyTo (tX0,tZ0,2000.0,117.98,0, -35,"Oval" );

}

//飞到某地------------------------------------------------------------------------------------------------------

function btn1_DoFSCommand(command, args) {

var btn1Obj = InternetExplorer ? document.all.btn1 : document.btn1;

var tX0;

tX0 =args;

klmy();

}

// Internet Explorer 的挂钩

if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)

{

document.write('<script language=\"VBScript\"\>\n');

document.write('On Error Resume Next\n');

document.write('Sub btn1_FSCommand(ByVal command, ByVal args)\n');

document.write(' Call btn1_DoFSCommand(command, args)\n');

document.write('End Sub\n');

document.write('</script\>\n');

}

function klmy()

{

//创建文本对象

var LabelInfo = new Object();

LabelInfo.Text = "中国 "

LabelInfo.Scale = 1;

LabelInfo.BgColor = 236;

IObjectManager.CreateLabel (LabelInfo, 87, 45, 2000.0 );

IPlane.FlyTo (87,45,2000.0,117.98,0, -35,"Oval" );

}

//-------------------------------------------------------------------------------------------------------------------

</script>

function TE_OnFrame()

dim x1,y1

IRender.GetMouseInfo 1,x1,y1

ObjType = 0

IRender.ScreenToWorld x1,y1,ObjType,WorldX,WorldHeigth,WorldY,ObjectID

window.document.Flash1.SetVariable "x", WorldX

window.document.Flash1.SetVariable "y", WorldY

end function

</script>

posted on 2006-11-28 18:43 技术已荒废阅读(1632) 评论(1) 编辑收藏举报

会员力量，点亮园子希望

刷新页面返回顶部

生活的理想，是为了理想的生活!

公告