首 页 | 精品电影 | 音乐天堂 | 在线游戏 | Flash MTV | 三湘书屋 | 幽默笑话 | 三湘图库 | 美女写真 | IT知识库 | QQ贴图 | 加入书签

网页制作网络编程图形图象操作系统冲浪宝典软件教学网络安全认证考试通信技术电子商务业内动态书籍教程原码

最近更新 文章分类 多媒体类 精品软件

本站搜索:
您的位置:三湘时空 -> IT知识库 -> 文章分类 -> FLASH教程 -> Flash与JavaScript信息交互
Flash与JavaScript信息交互


文章类别:FLASH教程 来源: 作者: 发表日期:2006-12-7 字体:[ ]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

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


<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="http://img.sxsky.net/it/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="http://img.sxsky.net/it/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="http://img.sxsky.net/it/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

上一篇:比较:HyperLink控件、LinkButton控件 之间的异同 下一篇:对C#委托及事件委托的理解
本栏目热门文章
·用Flash制作精巧的时钟 2005-10-4
·用Flash制作绚丽烟雾效果 2005-10-4
·Flash鼠标特效精选实例(5) 2005-10-4
·Adobe Flash 2006发展趋势预测 2006-1-15
·用Flash制作鬼火效果 2005-10-4
·Flash鼠标特效精选实例(1) 2005-10-4
·Flash游戏制作--记忆游戏 2005-10-4
·给FLASH初学者的10点制作经验 2005-12-13
·Flash鼠标特效精选实例(2) 2005-10-4
·Flash鼠标特效精选实例(3) 2005-10-4
新近更新文章
·在线设计制作Flash动画小电影 2006-12-7
·Flash与JavaScript信息交互 2006-12-7
·Flash也能玩鼠绘—清新国画荷花 2006-12-7
·Flash动态柱状图表制作原理剖析 2006-11-9
·用Flash制作不停转动的地球仪 2006-11-9
·xml辅助flash电子地图标注地名 2006-10-28
·Flash绘中秋贺卡:快乐月饼大游行 2006-10-10
·Flash动态缓冲图片导航制作详解 2006-10-10
·Photoshop与Flash合作制作模糊渐变动画 2006-9-14
·Flash电子书鼠标拖拽翻页效果原理分析 2006-9-14
首 页 | 软件发布 | 广告联系 | 下载帮助 | 意见反馈 | 网站地图
  CopyRight? 2002-2004 WWW.SXSKY.NET? All Rights Reserved
三湘时空 站长QQ:82675303 Email: