仿Office 2003的工具条

2016-01-29 11:36 8 1 收藏

仿Office 2003的工具条,仿Office 2003的工具条

【 tulaoshi.com - Javascript 】

 

<html
<head
<meta http-equiv="Content-Language" content="zh-cn"
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<title仿Office 2003的工具条</title
<script
/*----------
舜子制作
Menu Javascript Made by PuterJam
E-mail:puterjam@etang.com
-------------*/
 var listnum=0;
 var menu_height;
 var menu_width;
 var menu_left;
 var menu_top;
 var topMar = 1;
 var leftMar = -2;
 var space = 1;
 var isvisible;

function listbox(listname,buttonname,valuename)
{
this.listname=listname
this.buttonname=buttonname
this.valuename=valuename
}

function listaction(obj,action,showlist,scroll,tw)
{
num=obj.id.charAt(obj.id.length-1)
if (!scroll) {scroll=0}
if (!tw) {tw=105}
listbox=eval(lb[num].listname)
listbutton=eval(lb[num].buttonname)
listvalue=eval(lb[num].valuename)
switch (action)
 {
  case 0:
  listbox.className="getlist";listbutton.className="listover"
  break;
  case 1:
  if (listbox.gf=="0")
  {listbox.className="lostlist";listbutton.className="menubar"}
  break;
  case 2:
 for (i=0;i<lb.length;i++)
 {
 if (num!=i.toString()){
 nlistbox=eval(lb[i].listname)
 nlistbutton=eval(lb[i].buttonname)
 nlistvalue=eval(lb[i].valuename)
 nlistbox.className="lostlist";nlistbutton.className="menubar"
 nlistbox.gf="0"
  }
 }
  ShowMenu(listbox,showlist,tw,scroll);listbox.className="getlist";listbox.gf="1"
  listnum=num;
  break;
  }
}

function HideMenu()
{
 var mX;
 var mY;
 var vDiv;
 var mDiv;
 if (isvisible == true)
 {
  vDiv = document.all("listDiv");
  mX = window.event.clientX + document.body.scrollLeft;
  mY = window.event.clientY + document.body.scrollTop;
  if ((mX < parseInt(vDiv.style.left)) || (mX parseInt(vDiv.style.left)+vDiv.offsetWidth) ||
   (mY < parseInt(vDiv.style.top)-menu_height) || (mY parseInt(vDiv.style.top)+vDiv.offsetHeight))  {
   vDiv.style.visibility = "hidden";
   isvisible = false;
  }
 }
 
 if (isvisible==false)
 {
  for (i=0;i<lb.length;i++)
 {
 listbox=eval(lb[i].listname)
 listbutton=eval(lb[i].buttonname)
 listvalue=eval(lb[i].valuename)
 listbox.className="lostlist";listbutton.className="menubar"
 listbox.gf="0"
 }
 }
}

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

function ShowMenu(obj,vMnuCode,tWidth,scroll) {
 vMnuCode = "<table id='submenu' cellspacing=0 cellpadding=0 bgcolor=#ffffff border=0 style='width:"+tWidth +
      ";border-collapse: collapse' class='listDiv'<tr height=23<td nowrap align=left" +
       vMnuCode + "</td</tr</table";

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

 menu_height = obj.offsetHeight;
 menu_width = obj.offsetWidth;
 menu_left = obj.offsetLeft + leftMar+2;
 menu_top = obj.offsetTop + topMar + menu_height + space-3;
 vParent = obj.offsetParent;
 while (vParent.tagName.toUpperCase() != "BODY")
 {
  menu_left += vParent.offsetLeft;
  menu_top += vParent.offsetTop;
  vParent = vParent.offsetParent;
 }

 listDiv.innerHTML = vMnuCode;
 listDiv.style.top = menu_top;
 listDiv.style.left = menu_left;

 if (scroll==0) {listDiv.style.overflow="visible";listDiv.style.width=tWidth}
else {listDiv.style.overflow="scroll";listDiv.style.width=tWidth+18}
 listDiv.style.visibility = "visible";
 var cssopaction=submenu.filters[0].opacity
 submenu.filters[0].opacity=0;
    submenu.filters[1].Apply();
   

来源:http://www.tulaoshi.com/n/20160129/1482768.html

延伸阅读
如何让工具条显示256色图像 编译:hangwire 下载范例源代码 问题:    论坛中有很多人提出:基于Windows的程序如资源管理器(Explorer.exe),IE等都能显示出漂亮的工具栏图像和图标。但是,用MFC开发的应用程序一般都只能显示16色的工具栏图像和列表视图(如CListView)图像,...
如何实现24位色工具条 作者/NorthTibet 下载源代码 大家知道IE的工具条都是多彩的,本文介绍如何在自己的应用程序里实现24位色工具条。如图一所示: 图一  第一步: 在mainframe.h文件中声明成员变量: CToolBar m_ho...
如何去掉浮动工具条中的“关闭”按钮 作者/NorthTibet 下载源代码     在C++/MFC框架应用程序里,当浮动工具条被拖离主窗口后,一般都有一个“关闭”按钮,如图一所示: 图一      本来这个按钮完全是按照Windows应用程序的UI设计规范而设计...
标签: 办公软件
嵌入式工具条困扰着喜欢尝试新软件的朋友们。大家请看图1,这是一个Word2003软件的界面截图,在图中可以清楚地看到Word原本不多的编辑区正在被这些“不请自来的客人”肆意地侵蚀着。 在这里之所以称其为“不请自来”是因为每当安装这些软件时,它们都会自作主张地将自己的快捷工具条嵌入到常用软件中,也正是这些对我们没什么用的工...
如何嵌入(Docking)一个工具条(How To Docking A Toolbar EnableDocking(CBRS_ALIGN_ANY); // Initialize dialog bar m_wndQuickConnect if (!m_wndQuickConnect.Create(this, IDD_QUICKCONNECT,//IDD_QUICKCONNECT is a toolbar

经验教程

599

收藏

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