VB.NET实现Winodws式隐现菜单

菜单

主要是通过Panel和ImageButton两个控件实现,很简单.
<Script Language="VB" Runat="Server">
Sub Button1_Click(sender As Object, e As ImageClickEventArgs)
If myPanel1.Visible = True Then
myPanel1.Visible = False
sbmr.ImageUrl="images/sb_show.gif"
Else
myPanel1.Visible = True
sbmr.ImageUrl="images/sb_hide.gif"
End If
End Sub
Sub Button2_Click(sender As Object, e As ImageClickEventArgs)
If myPanel2.Visible = True Then
myPanel2.Visible = False
bjmr.ImageUrl="images/bj_show.gif"
Else
myPanel2.Visible = True
bjmr.ImageUrl="images/bj_hide.gif"
End If
End Sub
Sub Button3_Click(sender As Object, e As ImageClickEventArgs)
If myPanel3.Visible = True Then
myPanel3.Visible = False
bjkc.ImageUrl="images/kc_show.gif"
Else
myPanel3.Visible = True
bjkc.ImageUrl="images/kc_hide.gif"
End If
End Sub
Sub Button4_Click(sender As Object, e As ImageClickEventArgs)
If myPanel4.Visible = True Then
myPanel4.Visible = False
bjrk.ImageUrl="images/rk_show.gif"
Else
myPanel4.Visible = True
bjrk.ImageUrl="images/rk_hide.gif"
End If
End Sub
Sub Button5_Click(sender As Object, e As ImageClickEventArgs)
If myPanel5.Visible = True Then
myPanel5.Visible = False
bjck.ImageUrl="images/ck_show.gif"
Else
myPanel5.Visible = True
bjck.ImageUrl="images/ck_hide.gif"
End If
End Sub
Sub Button6_Click(sender As Object, e As ImageClickEventArgs)
If myPanel6.Visible = True Then
myPanel6.Visible = False
bjjh.ImageUrl="images/jh_show.gif"
Else
myPanel6.Visible = True
bjjh.ImageUrl="images/jh_hide.gif"
End If
End Sub
Sub Button7_Click(sender As Object, e As ImageClickEventArgs)
If myPanel7.Visible = True Then
myPanel7.Visible = False
bjqt.ImageUrl="images/qt_show.gif"
Else
myPanel7.Visible = True
bjqt.ImageUrl="images/qt_hide.gif"
End If
End Sub
</Script>
<html>
<head>
<title>左边框</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #CFEFFA;
}
body,td,th {
color: #000066;
}
.style4 {color: #FFFFFF}
a:link {
color: #000066;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000066;
}
a:hover {
text-decoration: none;
color: #000066;
}
a:active {
text-decoration: none;
color: #000066;
}
-->
</style></head>

<body>
<Form Runat="Server">

<Asp:ImageButton Runat="Server" Id="sbmr" ImageUrl="images/sb_show.gif" OnClick="Button1_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel1" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="sbmr/addsbmr.aspx" target="mainFrame">增加</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">修改</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="sbmr/sbmr.aspx" target="mainFrame">查询</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">删除</div></td>
</tr>
</table>
</Asp:Panel>

<Asp:ImageButton Runat="Server" Id="bjmr" ImageUrl="images/bj_show.gif" OnClick="Button2_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel2" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="BJMR/add.aspx" target="mainFrame">增加</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="bjmr/edit.aspx" target="mainFrame">修改</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="BJMR/search.aspx" target="mainFrame">查询</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">删除</div></td>
</tr>
</table>
</asp:panel>

<Asp:ImageButton Runat="Server" Id="bjkc" ImageUrl="images/kc_show.gif" OnClick="Button3_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel3" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="BJKC/bjkc.aspx" target="mainFrame">查询</a></div></td>
</tr>
</table>
</asp:panel>

<Asp:ImageButton Runat="Server" Id="bjrk" ImageUrl="images/rk_show.gif" OnClick="Button4_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel4" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">增加</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">修改</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">查询</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">删除</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">统计</div></td>
</tr>
</table>
</asp:panel>

<Asp:ImageButton Runat="Server" Id="bjck" ImageUrl="images/ck_show.gif" OnClick="Button5_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel5" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">增加</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">修改</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">查询</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">删除</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">统计</div></td>
</tr>
</table>
</asp:panel>

<Asp:ImageButton Runat="Server" Id="bjjh" ImageUrl="images/jh_show.gif" OnClick="Button6_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel6" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="BJJH/ydjh.aspx" target="mainFrame">应订</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="bjjh/yjjh.aspx" target="mainFrame">应交</a></div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center"><a href="bjjh/search.aspx" target="mainFrame">查询</div></a></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">增加</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">删除</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">修改</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">统计</div></td>
</tr>
</table>
</asp:panel>

<Asp:ImageButton Runat="Server" Id="bjqt" ImageUrl="images/qt_show.gif" OnClick="Button7_Click" /><br>
<Asp:Panel Runat="Server" Id="myPanel7" HorizontalAlign="Left" Visible = "False">
<table width="150" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#A7D2ED" bgcolor="#CFEFFA">
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[1]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[2]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[3]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[4]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[5]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[6]</div></td>
</tr>
<tr>
<td onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#FFcccc'"><div align="center">其他[7]</div></td>
</tr>
</table>
</asp:panel>
</form>
</body>
</html>

时间： 2024-09-16 15:10:43

VB.NET实现Winodws式隐现菜单的相关文章

设计响应式导航菜单的5大法则

响应式Web设计(Responsive Web design)的理念是,页面的设计与开发应当根据用户行为以及设备环境(系统平台.屏幕尺寸.屏幕定向等)进行相应的响应和调整.响应式设计允许你在不 同的平台上,创建独一无二的用户体验,与此同时,只要最少的维护工作. 已经有不少文章涉及响应式设计,这些文章帮助我们理解和解剖响应式网站设计的学习指南和教程,揭示媒体查询的作用,与此同时,还提供一些令人兴奋的响应式设计集合. 我们暂且先放开宏观上的响应式Web设计,把目光聚集在更具挑战性的"响应式导航菜单设

vb6-如何VB程序让外部程序按照右键菜单里某个选项运行？

问题描述 如何VB程序让外部程序按照右键菜单里某个选项运行? WINDOWS下,鼠标右键点击程序会出现一个菜单,比如其中有一项是,"在XXX上面运行".我想用VB代码实现这样的功能,VB程序让外部程序按照右键菜单里某个选项运行,然后到一定时间,用VB去结束这个第三方程序,请问代码如何实现呢? 解决方案 http://www.blogjava.net/DLevin/archive/2012/07/12/373911.htmlhttp://wenku.baidu.com/link?url=

jQuery实现简单的列表式导航菜单效果代码_jquery

本文实例讲述了jQuery实现简单的列表式导航菜单效果代码.分享给大家供大家参考.具体如下: 这里使用jQuery实现简单的列表式导航菜单,是根据网上的一个教程,边看边写的,经过了修正,拷贝代码即可使用.主要实现包括三个部分,一是CSS.二是引入jQuery.三是编写JS代码进行jQuery控件. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/jquery-simple-list-style-nav-menu-codes/ 具体代码如下: <h

jquery实现像栅栏一样左右滑出式二级菜单效果代码_jquery

本文实例讲述了jquery实现像栅栏一样左右滑出式二级菜单效果代码.分享给大家供大家参考.具体如下: 这里演示了jquery实现像栅栏一样的左右滑出式二级菜单,会向左或向右滑出,支持中英文,使用时别忘了引入jquery插件. 运行效果截图如下: 在线演示地址如下: http://demo.jb51.net/js/2015/jquery-left-right-show-nav-menu-codes/ 具体代码如下: <!DOCTYPE html> <head> <meta ht

纯javascript响应式树形菜单效果_javascript技巧

简要教程 aimaraJS是一款非常实用的纯javascript响应式多级目录树结构插件.该目录树可以动态添加和删除树节点,可以制作多级树结构,每个节点上可以都带有右键上下文菜单,并且每个节点上都可以配置不同的图标.它的特点有: 可以创建一个基本的树结构并渲染它. 可以实时添加和删除树节点. 可以显示不同的树节点图标. 在树节点打开和关闭的时候可以自定义事件. 每个树节点上都可以制作右键上下文菜单.   使用方法 使用该幻灯片插件需要在页面中引入Aimara.css和Aimara.js文件. <

网站分析：设计响应式导航菜单的五大法则

中介交易 SEO诊断 淘宝客 云主机 技术大厅 摘要:本文把目光聚集在更具挑战性的响应式Web设计:响应式导航菜单设计,这里提供了五大法则,让你无论在大屏幕还是小屏幕上都能轻松高效地设计响应式导航菜单. 响应式Web设计(Responsive Web design)的理念是,页面的设计与开发应当根据用户行为以及设备环境(系统平台.屏幕尺寸.屏幕定向等)进行相应的响应和调整.响应式设计允许你在不同的平台上,创建独一无二的用户体验,与此同时,只要最少的维护工作. 已经有不少文章涉及响应式设计,这些文

使用media Queries实现一个响应式的菜单

Media queries是CSS3引入的一个特性,使用它可以方便的实现各种响应式效果.在这个示例中我们将会使用media queries实现一个响应式的菜单.这个菜单会根据当前浏览器屏幕的大小变化而自动的呈现出不同的样式.如果浏览器屏幕大于800px,菜单则会显示在页面左侧:如果浏览器屏幕介于401px到800px之间,菜单则会显示在页面上方,与其他内容是上下关系:如果屏幕小于400px,则菜单仍在页面上方,但是菜单会变为下拉列表形式. 预览地址: http://htmlpreview.git

纯CSS制作的响应式折叠菜单分享

  这个菜单能居左.居中和居右对齐,不像之前文章提到的菜单需要靠点击在显示和隐藏之间进行切换.它也有一个标记显示激活/当前菜单项,并且它能作用在所有移动平台和包括IE在内的所有桌面浏览器. 首先,看看Demo的效果:Demo 一. 目的 本教程的目的是展示如何将规律的列表菜单变成一个较小的显示下拉菜单. 这个技巧在由许多链接组成的导航上非常有用,例如下面的截图,可以将所有按钮压缩成一个优雅的下拉. 二.Nav HTML标记 XML/HTML Code复制内容到剪贴板 <nav class="

使用CSS3制作响应式导航菜单的方法

关于使用响应式设计来创建一个手机导航栏,之前我曾经写过一个教程.现在我发现了一种新的方式,可以不使用JavaScript来实现响应式菜单.它完全使用整洁和语义化的HTML5标记,而且菜单可以居左.居中和居右对齐.不像前面一个教程中需要点击来展开,这个菜单可以在hover时展开,对用户更为友好.它也包含一个指示器来显示当前激活的菜单项.这种方式可以工作于所有的移动和桌面浏览器中,甚至包括IE. 演示 目标 这个教程的目标是向你展示如何把一个传统的列表菜单在更小的屏幕上转换为可伸展的菜单. 这种方式