站长学院通行证

 

返回“站长学院”网站首页

 当前位置 → 中国站长学院 → 设计在线 → 图像处理 → flash → 浏览正文

TAG：  Flash JavaScript 信息 教程

Flash与JavaScript信息交互

作者：中国站长学院(整理)     来源：互联网转载     点击数：     更新时间：2008年02月21日

【字体：大 中 小】        【背景色 杏仁黄 秋叶褐 胭脂红 芥末绿 天蓝 雪青 灰 银河白(默认色) 】    【收藏本文】   【打印】

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


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Flash与3D信息交互</title>
<style type="text/css">
<!--
td {}{
font-family: "宋体";
font-size: 12px;
}
-->
</style>
</head>
<body onLoad="Init();">
<p>
<!--定义TerraExplorer的信息窗口对象-->
<object ID="TEInformationWindow" classid="CLSID:3a4f9193-65a8-11d5-85c1-0001023952c1" width="300" height="400"></object>
<!--定义一个TerraExplorer 3D窗口对象-->
<object ID="TE3DWindow" classid="CLSID:3a4f9192-65a8-11d5-85c1-0001023952c1" width=650 height="400"></object>
<!--定义TerraExplorer对象-->
<object ID="TE" CLASSId="CLSID:3a4f9191-65a8-11d5-85c1-0001023952c1"></object>
</p>

<table width="937" border="1" align="left">
<tr>
<td width="369" align="center">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="300" height="150" id="Flash1" align="middle">
<param name="allowscriptAccess" value="sameDomain" />
<param name="movie" value="f2.swf" />
<param name="quality" value="high" />
<param name="bgcolor" value="#ffffff" />
<embed src="f2.swf" quality="high" bgcolor="#ffffff" width="300" height="150" name="Flash1" swLiveConnect="true" align="middle" allowscriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</td>
<!-- -->
<td width="282" align="center">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="300" height="150" id="myFlash" align="middle">
<param name="allowscriptAccess" value="sameDomain" />
<param name="movie" value="f4.swf" />
<param name="quality" value="high" />
<param name="bgcolor" value="#ccffff" />
<embed src="f4.swf" quality="high" bgcolor="#ccffff" width="300" height="150" name="myFlash" swLiveConnect="true" align="middle" allowscriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</td>
<td width="264" colspan="2" align="left">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" id="btn1" width="100" height="50" align="middle">
<param name="allowscriptAccess" value="sameDomain" />
<param name="movie" value="btn1.swf" />
<param name="quality" value="high" />
<param name="bgcolor" value="#ffffff" />
<embed src="btn1.swf" quality="high" bgcolor="#ffffff" width="100" height="50" swLiveConnect=true id="btn1" name="btn1" align="middle" allowscriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
</object>
</td>
</tr>
<tr>
<td width="369" height="200" align="center">
</td></tr>
</table>
</html>
<script language="Javascript">

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>

<script language="vbscript">
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>

http://www.cnblogs.com/support/archive/2006/11/28/575473.html

责任编辑：忧郁的秋天

注册投稿

收藏本文到  >>>

相关文章

Flash8序列号06/01 
记住网站只是一个信息平台,让我们走到04/24 
模板教程【Pagetitle 标记】04/11 
模板教程【Prenext 标记】（十04/11 
模板教程【Pagebreak 标记】04/11 
模板教程【Pagelist 标记】（04/11 
模板教程【List 标记】（十一）04/11 
模板教程【Channelartlis04/11 
模板教程【Mynews 标记】（九）04/11 
模板教程【Flink 标记】（八）04/11 
模板教程【Vote 标记】（七）04/11 
模板教程【Mytag 标记】（六）04/11 
模板教程【Type 标记】（四）04/11 
模板教程【Channel 标记】（三04/11 
模板教程【Field 标记】（二）04/11 
模板教程【Arclist 标记使用实04/11 

推荐导读

热门资讯

资讯快报

论坛新贴

返回首页

关于我们 - 帮助(？) - 广告服务 - 诚征英才 - 友情链接 - 网站地图 - 站长BLOG

返回网站顶部
Copyright © 2007 中国站长学院(CNZZXY.COM). All Rights Reserved
站长学院服务资咨热线：0755-84289786    业务合作：(0)13554938953  (0)13423986856    网络宽带及主机提供：深圳傲网科技
粤ICP备08006968号   站长：忧郁的秋天(向管理员发邮件)   站长交流QQ群①：1815595   站长交流QQ群②：32960074