关于flash嵌入的一点东西

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/yuanqingfei/article/details/58993


<OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" WIDTH="100" HEIGHT="100"

CODEBASE="http://active.macromedia.com/flash5/cabs/ swflash.cab#version=5,0,0,0">
<PARAM NAME="MOVIE" VALUE="moviename.swf">
<PARAM NAME="PLAY" VALUE="true">
<PARAM NAME="LOOP" VALUE="true">
<PARAM NAME="QUALITY" VALUE="high">
<EMBED SRC="moviename.swf" WIDTH="100" HEIGHT="100" PLAY="true" LOOP="true"
QUALITY="high" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?
P1_Prod_Version=ShockwaveFlash">
</EMBED>
</OBJECT>

 


<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'

codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='170'

height='220'><param name='movie' value='musicbox/FVMp3Player.swf'>
<param name='quality' value='high'>
<param name='wmode' value='transparent'>
<param name='menu' value='false'>
<embed src='musicbox/FVMp3Player.swf' width='170' height='220' quality='high'

pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' scale='exactfit'>
</embed>
</object>

      

 

2. 编辑标签的属性

你可以根据自己制作的Flash电影的需要来修改"HEIGHT"和"WIDTH"的数值,数值既可以是具体数字,也可以采用百分比数值,然后

将"moviename.swf"修改为你制作的Flash电影的实际名称。

了解如何使用"OBJECT"和"EMBED"两个标签后,我们应该考虑一下为什么需要使用这两个HTML标签呢,它们的具体作用是什么呢?"OBJECT"标签

针对在Windows 9x/2000/NT系统平台下的Internet Explorer 3.0及升级版本浏览器,它也应用于可支持Flash ActiveX控制功能的其它一些常

见浏览器。如上面的例子,"classid"的信息必须如其所示,它告诉浏览器到哪里寻找Flash播放器并自动下载该播放器。当用户使用Windows

9x/2000/NT系统平台下的Internet Explorer 3.0及升级版本浏览器来查看有Flash内容的网页时,浏览器将自动弹出一个对话窗口,询问未安

装Flash播放器的用户是否愿意自动安装该播放器,安装完毕后用户无需重新启动浏览器便可以正常观看Flash内容了。

"EMBED"标签针对Netscape Navigator 2.0浏览器或升级版本,它同时也可应用于支持Netscape开发的Flash播放器插件的其它浏览

器。"pluginspage"中的内容属性向浏览器发出指令,在用户未安装Flash播放器的情况下指引用户下载该软件,用户下载播放器后应首先进行

安装,并重新启动Netscape浏览器以便正常浏览Flash内容。

为了确保大部分浏览器正确播放Flash电影,你应该按照上面的例子那样将"EMBED"标签放在"OBJECT"标签内,这样支持ActiveX的浏览器可以不

必再理会"OBJECT"标签内的"EMBED"标签,而使用Flash插件的Netscape浏览器和Microsoft在Macintosh系统平台下的浏览器无法识别"OBJECT"

标签,它们将只读取"EMBED"标签中的内容。

另请注意,某些象Dreamweaver这样的HTML编辑器既支持ActiveX对象,也支持Netscape的插件功能,当你使用Dreamweaver进行编辑时可以不必

考虑过多内容,但使用其它编辑器时你最好应该查看一下HTML代码,以便决定在HTML编辑器对话框或配置栏中输入什么信息。另外为了

把"EMBED"标签嵌入"OBJECT"标签内,你也需要采用手工编辑方式修改源代码。虽然某些编辑器可以允许你在编辑过程中预览编辑效果,但还是

建议你使用Internet Explorer和Netscape Navigator两套浏览器分别浏览网页进行检查。使用Flash 4和Flash 5的用户可以通过使用Flash发

布功能非常方便地获得正确的HTML网页代码,并能够使用HTML编辑器打开这个由Flash制作的HTML网页。

上述那段代码是能够让你的网页播放Flash电影所需的最基础的信息,你还可以使用"OBJECT"和"EMBED"的其它一些属性来实现对Flash电影的更

复杂控制,你可以查看有关资料来了解"OBJECT"和"EMBED"两个标签的其它属性。

展开阅读全文

一点有用的东西

09-27

Imports System.DrawingrnrnPublic Class Form1rnrn Public Structure StaticValuern Public Value As Integerrn Public CurrentTime As Stringrn End Structurernrn 'Public Structure CPUStaticsrn ' Public MinY As Integerrn ' Public MaxY As Integerrn Public CriticalLine As Integerrn Public StaticValues As new ArrayListrn Public RefreshRate As Integerrnrn 'End Structurernrn ' Private CPUStatic As CPUStaticsrn Public Const UNITDISTANCE = 10rn Public Const UNITPOINTS = 4rn Public CPUBitmap As Bitmaprn Public g As Drawing.Graphicsrn Public rdm As New Random()rnrn Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Loadrn CriticalLine = 90rn RefreshRate = 1000rn Timer1.Interval = RefreshRatern Timer1.Enabled = Truern DrawCurve()rn End Subrnrn Sub DrawCurve()rn Dim CPUPoints() As PointFrn If StaticValues.Count <= 0 Then Exit Subrnrn ReDim CPUPoints(StaticValues.Count - 1)rn Dim TotalLength As Integer = PictureBox1.Width / UNITPOINTSrnrn If TotalLength > CPUPoints.Length Thenrn For i As Integer = TotalLength - CPUPoints.Length To TotalLength - 1rn CPUPoints(i - (TotalLength - CPUPoints.Length)).X = UNITPOINTS * irn CPUPoints(i - (TotalLength - CPUPoints.Length)).Y = PictureBox1.Height - StaticValues(i - (TotalLength - CPUPoints.Length)).Value * PictureBox1.Height / 100rn Nextrn Elsern For i As Integer = 0 To TotalLength - 1rn CPUPoints(i - (TotalLength - CPUPoints.Length)).X = UNITPOINTS * irn CPUPoints(i - (TotalLength - CPUPoints.Length)).Y = PictureBox1.Height - StaticValues(i - (TotalLength - CPUPoints.Length)).Value * PictureBox1.Height / 100rn Nextrn End Ifrnrn g.Clear(Color.Black)rn g.DrawLine(Pens.LightGreen, 0, PictureBox1.Height Mod UNITDISTANCE, _rn PictureBox1.Width, PictureBox1.Height Mod UNITDISTANCE)rn For i As Integer = PictureBox1.Height Mod UNITDISTANCE To PictureBox1.Height Step UNITDISTANCErn g.DrawLine(Pens.DarkGreen, 0, i, PictureBox1.Width, i)rn Nextrnrn For i As Integer = UNITDISTANCE To PictureBox1.Width Step UNITDISTANCErn g.DrawLine(Pens.DarkGreen, i, 0, i, PictureBox1.Height)rn Nextrnrn 'draw critical line using RED colorrn Dim CriticalY As Integer = PictureBox1.Height - PictureBox1.Height * CriticalLine / 100rn g.DrawLine(New Pen(Color.Crimson, 2.0), 0, CriticalY, PictureBox1.Width, CriticalY)rnrn If Not CPUPoints Is Nothing Thenrn If CPUPoints.Length > 1 Thenrn g.DrawCurve(Pens.LightYellow, CPUPoints)rn End Ifrn End Ifrnrn PictureBox1.Refresh()rnrn End Subrnrn Sub AddCPUVaue(ByVal CPUValue As StaticValue)rn Dim tempValue As New StaticValuern tempValue = CPUValuern StaticValues.Add(tempValue)rn '假设每秒产生一次数据,一天最多产生86400个rn '这里只保存一天的数据rn If StaticValues.Count > 86400 Thenrn StaticValues.RemoveAt(0)rn End Ifrn End Subrnrn Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tickrn Dim CPUValue As StaticValuern CPUValue.Value = rdm.Next(50, 100)rn CPUValue.CurrentTime = "1"rn AddCPUVaue(CPUValue)rn 'Debug.Print(CPUValue.Value)rn DrawCurve()rnrn End Subrnrn Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resizern If Not CPUBitmap Is Nothing Then CPUBitmap.Dispose()rn CPUBitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)rn g = Drawing.Graphics.FromImage(CPUBitmap)rn PictureBox1.Image = CPUBitmaprn PictureBox1.Refresh()rnrn End SubrnEnd Classrn 论坛

没有更多推荐了,返回首页