利用VB.NET设计Web菜单组件

四、生成DLL文件

　　编写好了所有类，把它生成DLL文件就可。方法是在.net编辑环境下选择生成菜单中按生成就生成了DLL文件。然后，可以直接调用该组件了。

　　五、应用与测试

　　下面对它进行测试.步骤：

　　1.下载本控件。

　　2.在ASP.Net开发环境的工具箱中点击自定义工具箱，打开自定义工具箱。

　　3.选择".NET框架组件"。

　　4.点击浏览，找到刚下载的控件并选择之，点击打开，则控件被引入了。

　　5.点击确定，则控件加载到工具箱。

　　6.在工具箱中找到该控件并拖到页面窗体中。

　　7.设置菜单控件的属性(在属性窗口中)。

　　8.导入命名空间：Imports Liyu.Web

　　9.编写下面的代码。(假设菜单结点的属性存在表：dt数据表中)

Dim MenuView1 As New MenuView() For i = 0 To dt.Rows.Count - 1 Dim MenuNode1 As New MenuNode() MenuNode1.ID = dt.Rows(i)("ID") MenuNode1.ParentID = dt.Rows(i)("ParentID") MenuNode1.Text = Trim(dt.Rows(i)("text")) If Not IsDBNull(dt.Rows(i)("AccessKey")) Then MenuNode1.AccessKey = dt.Rows(i)("AccessKey") End If If Not IsDBNull(dt.Rows(i)("ToolTip")) Then MenuNode1.ToolTip = dt.Rows(i)("ToolTip") End If If Not IsDBNull(dt.Rows(i)("ImageUrl")) Then MenuNode1.ImageUrl = "tree\" + dt.Rows(i)("ImageUrl") End If MenuNode1.Enabled = dt.Rows(i)("Enabled") MenuView1.AddNode(MenuNode1)Next

　　10.在菜单控件的OnChange事件中编写你所选择菜单要完成的功能。

Private Sub MenuView1_Change(ByVal sender As Object, ByVal e As System.EventArgs)Handles MenuView1.Change Dim ID As Int16 ID = Me.MenuView1.SelectIndex Select Case ID Case 1 ' 首页 Case 4 'asp.net Case 5 'vb.net Case 6 'c# End Select End Sub

　　总结：上面方法用Visual Basic.Net开发了一个Web菜单组件。其开发的复杂程度可想而知，该文开放了所有源代码，并分别作了较详细的解释，大多地方都有注释。通过对上文的学习，能使你掌握如何一个Web组件，Web菜单是怎样实现的，以及编写组件的方法技巧。并为自己深入学习.Net编程提供了多方面知识。

查看本文来源