这个很不错,但有点美中不足之处,就是RM格式的情况下无法全屏
我这里有个可以用来让RM全屏的代码,但偶不懂怎么加到页面上.楼主如果可以的话请告诉我加法可以么?
- <div align="center">
- <p>
- <object id="rmplayer" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="380" height="285">
- <param name="src" value="cool.rm">
- <param name="autostart" value="1">
- <param name="controls" value="imagewindow">
- <param name="console" value="kingege">
- <param name="loop" value="-1">
- </object>
- <br>
- <object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="325" height="30">
- <param name="controls" value="statusbar">
- <param name="console" value="kingege">
- </object>
- [color=Red]<img src="rfullscreen.gif" width="55" height="30" alt="全屏" onclick="javascript:rmplayer.SetFullScreen()">[/color]<br>
- <object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="380" height="34">
- <param name="controls" value="controlpanel">
- <param name="console" value="kingege">
- </object>
- [color=Red]<script language="VBScript">
- rmplayer.SetWantErrors(true)
- rmplayer.SetWantMouseEvents(true)
- luptime=0
- ldntime=0
- lsetime=0
- Sub rmplayer_OnLButtonUp(ByVal nFlags, ByVal nX, ByVal nY)
- luptime=timer()
- End Sub
- Sub rmplayer_OnLButtonDown(ByVal nFlags, ByVal nX, ByVal nY)
- ldntime=timer()
- if ((ldntime-luptime)<0.25) and ((ldntime-lsetime)>0.75) then
- if rmplayer.GetFullScreen() then
- rmplayer.SetOriginalSize()
- else
- rmplayer.SetFullScreen()
- end if
- lsetime=ldntime
- end if
- End Sub
- </script>[/color]
- </p>
- </div>
复制代码
红色部分就是全屏控制的相关代码
rfullscreen.gif
[ 本帖最后由 xyboys 于 2006-1-3 07:12 编辑 ] |