欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP.NET 2.0的导航控件treeview和menu的实例】，下面是详细的分享！
ASP.NET 2.0的导航控件treeview和menu的实例
default.aspx
1<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default4.aspx.vb" Inherits="Default4" %>
2<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
3<html xmlns="http://www.w3.org/1999/xhtml" >
4<head runat="server">
5 <title>导航控件测试</title>
6</head>
7<body>
8 <form id="form1" runat="server">
9
10
11 <asp:Menu ID="Menu1"
12 runat="server"
13 disappearafter="2000"
14 staticsubmenuindent="10px"
15 orientation="Horizontal"
16 StaticEnableDefaultPopOutImage="False"
17 BackColor="#E3EAEB"
18 DynamicHorizontalOffset="2"
19 Font-Names="宋体"
20 Font-Size="14px"
21 ForeColor="#666666" >
22 <StaticMenuItemStyle HorizontalPadding="5px" VerticalPadding="2px" />
23 <DynamicHoverStyle BackColor="#666666" ForeColor="White" />
24 <DynamicMenuStyle BackColor="#E3EAEB" />
25 <StaticSelectedStyle BackColor="#E3EAEB" />
26 <DynamicSelectedStyle BackColor="#E3EAEB" />
27 <DynamicMenuItemStyle HorizontalPadding="5px" VerticalPadding="2px" />
28 <StaticHoverStyle BackColor="#666666" ForeColor="White" />
29 </asp:Menu>
30
31 </form>
32</body>
33</html>
default.aspx.vb
1Imports System
2Imports System.Data
3Imports System.Data.SqlClient
4Partial Class Default4Class Default4
5 Inherits System.Web.UI.Page
6 Public strConn, strSQL As String
7 Dim myConn As SqlConnection
8 Dim mydv As DataView
9 Dim i As Integer
10 Dim menunode As MenuItem
11 Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
12 strConn=System.Configuration.ConfigurationManager.AppSettings("connstring")
13 myConn=New SqlConnection(strConn)
14
15 If Not Page.IsPostBack Then
16 strSQL="select * from menu "
17 mydv=GetDataView(strSQL, "menu")
18 mydv.RowFilter="parentid=0"
19 For i=0 To mydv.Count - 1
20 menunode=New MenuItem
21 menunode.Text=mydv.Item(i).Item("text")
22 menunode.Value=mydv.Item(i).Item("id")
23 menunode.Enabled=mydv.Item(i).Item("Enabled")
24 menunode.Target=mydv.Item(i).Item("Target")
25 menunode.NavigateUrl=mydv.Item(i).Item("url")
26 Menu1.Items.Add(menunode)
27 addnode(menunode, menunode.Value)
28 mydv.RowFilter="parentid=0"
29 Next
30 End If
31 End Sub
32
33 Sub addnode()Sub addnode(ByVal pnode As MenuItem, ByVal pid As Integer)
34 Dim menunode As MenuItem
35 Dim j As Integer
36 mydv.RowFilter="parentid=" & pid
37 For j=0 To mydv.Count - 1
38 menunode=New MenuItem
39 menunode.Text=mydv.Item(j).Item("text")
40 menunode.Value=mydv.Item(j).Item("id")
41 menunode.Enabled=mydv.Item(j).Item("Enabled")
42 menunode.Target=mydv.Item(j).Item("Target")
43 menunode.NavigateUrl=mydv.Item(j).Item("url")
44 pnode.ChildItems.Add(menunode)
45 addnode(menunode, menunode.Value)
46 mydv.RowFilter="parentid=" & pid
47 Next
48
49 End Sub
50
51 Function GetDataView()Function GetDataView(ByVal Sql As String, ByVal strTable As String) As DataView
52 Dim myDataAdapter As SqlDataAdapter
53 Dim myDataSet As DataSet
54 myConn.Open()
55 myDataAdapter=New SqlDataAdapter(Sql, myConn)
56 myConn.Close()
57 myDataSet=New DataSet
58 myDataAdapter.Fill(myDataSet, strTable)
59 GetDataView=New DataView(myDataSet.Tables(strTable))
60 End Function
61
62
63End Class
64
以上所分享的是关于ASP.NET 2.0的导航控件treeview和menu的实例，下面是编辑为你推荐的有价值的用户互动：
相关问题：我在弄网站后台 是用ASP.NET做 在我点击页面左边的...
答：如果是框架的话，在 >>详细
相关问题：asp.net中navmenu的控件是自带的还是下载的？？
答：亲，asp.net自带的导航控件有TreeView控件、Menu控件和SiteMapPath控件，没有你说的navmenu,这个可能是用户自己自定义的控件 >>详细
相关问题：asp.net 不用treeview控件动态出层次导航条
答：那就直接写了，首次加载时加载一级菜单，点击一级菜单时，ajax请求相应子菜单内容js动态生成子菜单如: string html=""; for(var i=0;i >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-