强制弹出页面+自动最小化广告代码

2016-02-19 17:02 63 1 收藏

下面图老师小编跟大家分享强制弹出页面+自动最小化广告代码,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~

【 tulaoshi.com - Web开发 】

  这个弹窗代码,效果很好,不过有点复杂!请细看!

  这里涉及三个页面:

  弹窗页:1.htm 放置弹窗代码的页面

  中间页:2.htm 中间过度页面

  弹出页:3.htm 被弹出的页面

  在1.htm放入代码如下:主要是通过对话框强制弹出2.htm,大小为0,0

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/webkaifa/)

 script language="j avascript"
  focusid=setTimeout("focus();window.showModelessDialog('2.htm','','scroll:1;status:1;help:1;toolbar=1;resizable:1;dialogWidth:0px;dialogHeight:0px')",3000)
  /script
  在2.htm里放置代码如下:自动关闭对话框页面2.htm,同时弹窗3.htm
  script language="j avascript"
  !--
  function openWindow2(URL,Name,features) { //v2.0
  window.open(URL,Name,features);
  }
  openWindow2('3.htm','pop','resizable,height=600,width=1024,toolbar,menubar,scrollbars,location,left=0,top=0');
  //--
  setTimeout('window.close();', 0);
  /script

  在3.htm里放置代码:弹出后自动最小化

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/webkaifa/)

 在body标签里加入:body onload="min.Click()"
  以下代码加入body/body区域
  object id="min" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  param name="Command" value="Minimize"
  /object object id="max" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  param name="Command" value="Maximize"
  /object

来源:https://www.tulaoshi.com/n/20160219/1613952.html

延伸阅读
    (问) 怎样用代码隐藏、最大化、最小化ACCESS的主窗口?  (答) 通过一函数已定义的常量 fSetAccessWindow 实现。 该函数能用来完全隐藏 Access 窗口并将你自己的窗体显示在桌面上。在弹出式窗体的 Open 事件中使用 SW_HIDE 参数调用 fSetAccessWindow 函数实现。 注意:如果你隐藏了 Access 主窗...
MSN怎么最小化到右下角?   其实这个主要是微软自家的Windows Live Messenger也就是MSN没有完好的兼容windows7,所以默认Windows Live  Messenger 的图标不会最小化到托盘区,其实只需要一个小小的修改就可以实现这个功能了 具体操作如下: 如果 Windows Live Messenger 正开着, 先将其关掉; 然后鼠标点击你之前...
一些应用软件提供了一种方便的功能,只需要一个操作就可以将Windows桌面上的所有窗口最小化。首先,我们要遍历桌面上的所有窗口;其次,要判断窗口类型,桌面上的很多窗口无法最小化,或者窗口是不可见的,如中文Win 95中的输入法窗口。最后,将类型符合的窗口最小化。下面通过程序来介绍如何实现这种功能。 首先,在Project中加入一...
(*)Form淡出 1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入   AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出 2)窗体有AlphaBlend属性和AlphaBlendValue属性,将AlphaBlend属性设为True,然后在Timer组件中随着时间改变AlphaBlendValue的值(0-255)即可   AlphaBlendValue:=1;//窗体透明...
标签: Delphi
我们做多文档应用程序开发时,如果在主From中指定mainMenu时,在主菜单上右角上会自动出现最小化,恢复,关闭按纽,但主菜单放入Toolbar等中时,该三个按纽不会自动出现,因此需要编程实现。 实现原理: 按纽的实现,从Tbitbtn继承下来最理想,但需要过滤TbitBtn的焦点响应消息,使其不能获得焦点状态。 按纽的功能的实现是比较关键...

经验教程

771

收藏

53
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部