VB.NET实现Winodws式隐现菜单
点击次数：53 次 发布日期：2008-11-06 08:06:05 作者：源代码网
源代码网推荐<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 { 源代码网推荐 源代码网供稿. |
