一个关于全屏问题!!!

PPLUNCLE 2003-10-16 05:04:55
就是一张网页,双击它打开就是全屏,占满了总个屏幕
哪位兄台,有简洁的代码,发一个上来,谢谢了
...全文
47 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
blueice2002 2003-10-16
  • 打赏
  • 举报
回复
全屏显示
********************************************************
________________________________________________________
<SCRIPT LANGUAGE="vbScript">
dim i
sub redirectPage()
if MediaPlayer21.FileName<>"" and i<>1 then
MediaPlayer21.DisplaySize=3
call mediaplayer21.pause
call mediaplayer21.play
end if
end sub

sub play()
if MediaPlayer21.FileName<>"" then
MediaPlayer21.DisplaySize=0
i=0
call mediaplayer21.play
end if
end sub

sub pause()
if MediaPlayer21.FileName<>"" and i<>1 then
call mediaplayer21.pause
end if
end sub

sub stopp()
if MediaPlayer21.FileName<>"" then
call mediaplayer21.stop
MediaPlayer21.CurrentPosition=0
i=1
end if
end sub

</script>
<a href="#" onClick="redirectPage()">
<p>全屏显示</p></a>
qdubit 2003-10-16
  • 打赏
  • 举报
回复
up
PPLUNCLE 2003-10-16
  • 打赏
  • 举报
回复
怎么没人回答了
帮我一下 啊

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧