日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
詳細概括VB.NET實現(xiàn)動態(tài)菜單的方法

VB.NET經過長時間的發(fā)展，很多用戶都很了解VB.NET實現(xiàn)動態(tài)菜單了，這里我發(fā)表一下個人理解，和大家討論討論。自己寫了一個VB.NET實現(xiàn)動態(tài)菜單的例子，覺得還不錯。例子中用的主要技術有：
◆菜單樹的操作
◆treeview的操作
◆利用堆棧實現(xiàn)菜單樹與treeview樹成員的對應
◆利用委托實現(xiàn)對象與事件的關聯(lián)

目前成都創(chuàng)新互聯(lián)公司已為上1000家的企業(yè)提供了網站建設、域名、網頁空間、網站托管運營、企業(yè)網站設計、海拉爾網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

因為我也是初學者，所以有些詞匯用得可能不恰當，另外有些理解也可能有偏差。這個例子實現(xiàn)了VB.NET實現(xiàn)動態(tài)菜單，用戶可以在當前菜單的任意一個節(jié)點上添加一個子菜單，并為添加的子菜單添加事件。

例子介紹如下：

首先創(chuàng)建一個 VB.NET winform application

在form中添加一個菜單，取名為：MainItem，隨便添加幾個菜單項幾項。
◆添加一個textbox控件， 取名為：txtNewText
◆添加一個listbox控件， 取名為：lstHandlers
◆添加一個TreeView控件，取名為：tvMenu

具體代碼如下（其中有大部分代碼為自動生成）：

 
 
 
    
  
  
  
  1. Public Class Form1Class Form1 
    2. 
  
  
  
  2. Inherits System.Windows.Forms.Form 
    3. 
  
  
  
  3. 
  
  
  
  4. Windows 窗體設計器生成的代碼#Region " Windows 窗體設計器生成的代碼 " 
    5. 
  
  
  
  5. 
  
  
  
  6. Public Sub New()Sub New() 
    7. 
  
  
  
  7. MyBase.New() 
    8. 
  
  
  
  8. 
  
  
  
  9. '該調用是 Windows 窗體設計器所必需的。 
    10. 
  
  
  
  10. InitializeComponent() 
    11. 
  
  
  
  11. 
  
  
  
  12. '在 InitializeComponent() 調用之后添加任何初始化 
    13. 
  
  
  
  13. 
  
  
  
  14. End Sub 
    15. 
  
  
  
  15. 
  
  
  
  16. '窗體重寫處置以清理組件列表。 
    17. 
  
  
  
  17. Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean) 
    18. 
  
  
  
  18. If disposing Then 
    19. 
  
  
  
  19. If Not (components Is Nothing) Then 
    20. 
  
  
  
  20. components.Dispose() 
    21. 
  
  
  
  21. End If 
    22. 
  
  
  
  22. End If 
    23. 
  
  
  
  23. MyBase.Dispose(disposing) 
    24. 
  
  
  
  24. End Sub 
    25. 
  
  
  
  25. 
  
  
  
  26. 'Windows 窗體設計器所必需的 
    27. 
  
  
  
  27. Private components As System.ComponentModel.IContainer 
    28. 
  
  
  
  28. 
  
  
  
  29. '注意：以下過程是 Windows 窗體設計器所必需的 
    30. 
  
  
  
  30. '可以使用 Windows 窗體設計器修改此過程。 
    31. 
  
  
  
  31. '不要使用代碼編輯器修改它。 
    32. 
  
  
  
  32. Friend WithEvents MainMenu As System.Windows.Forms.MainMenu 
    33. 
  
  
  
  33. Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem 
    34. 
  
  
  
  34. Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem 
    35. 
  
  
  
  35. Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem 
    36. 
  
  
  
  36. Friend WithEvents lstHandlers As System.Windows.Forms.ListBox 
    37. 
  
  
  
  37. Friend WithEvents Label3 As System.Windows.Forms.Label 
    38. 
  
  
  
  38. Friend WithEvents tvMenu As System.Windows.Forms.TreeView 
    39. 
  
  
  
  39. Friend WithEvents Label2 As System.Windows.Forms.Label 
    40. 
  
  
  
  40. Friend WithEvents Label1 As System.Windows.Forms.Label 
    41. 
  
  
  
  41. Friend WithEvents txtNewText As System.Windows.Forms.TextBox 
    42. 
  
  
  
  42. Friend WithEvents btnAddItem As System.Windows.Forms.Button 
    43. 
  
  
  
  43. ()> 
    Private Sub InitializeComponent()Sub InitializeComponent() 
    44. 
  
  
  
  44. Me.components = New System.ComponentModel.Container 
    45. 
  
  
  
  45. Me.MainMenu = New System.Windows.Forms.MainMenu(Me.components) 
    46. 
  
  
  
  46. Me.MenuItem1 = New System.Windows.Forms.MenuItem 
    47. 
  
  
  
  47. Me.MenuItem2 = New System.Windows.Forms.MenuItem 
    48. 
  
  
  
  48. Me.MenuItem3 = New System.Windows.Forms.MenuItem 
    49. 
  
  
  
  49. Me.lstHandlers = New System.Windows.Forms.ListBox 
    50. 
  
  
  
  50. Me.Label3 = New System.Windows.Forms.Label 
    51. 
  
  
  
  51. Me.tvMenu = New System.Windows.Forms.TreeView 
    52. 
  
  
  
  52. Me.Label2 = New System.Windows.Forms.Label 
    53. 
  
  
  
  53. Me.Label1 = New System.Windows.Forms.Label 
    54. 
  
  
  
  54. Me.txtNewText = New System.Windows.Forms.TextBox 
    55. 
  
  
  
  55. Me.btnAddItem = New System.Windows.Forms.Button 
    56. 
  
  
  
  56. Me.SuspendLayout() 
    57. 
  
  
  
  57. ' 
    58. 
  
  
  
  58. 'MainMenu 
    59. 
  
  
  
  59. ' 
    60. 
  
  
  
  60. Me.MainMenu.MenuItems.AddRange
    (New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3}) 
    61. 
  
  
  
  61. ' 
    62. 
  
  
  
  62. 'MenuItem1 
    63. 
  
  
  
  63. ' 
    64. 
  
  
  
  64. Me.MenuItem1.Index = 0
    65. 
  
  
  
  65. Me.MenuItem1.Text = "菜單1"
    66. 
  
  
  
  66. ' 
    67. 
  
  
  
  67. 'MenuItem2 
    68. 
  
  
  
  68. ' 
    69. 
  
  
  
  69. Me.MenuItem2.Index = 1
    70. 
  
  
  
  70. Me.MenuItem2.Text = "菜單2"
    71. 
  
  
  
  71. ' 
    72. 
  
  
  
  72. 'MenuItem3 
    73. 
  
  
  
  73. ' 
    74. 
  
  
  
  74. Me.MenuItem3.Index = 2
    75. 
  
  
  
  75. Me.MenuItem3.Text = "菜單3"
    76. 
  
  
  
  76. ' 
    77. 
  
  
  
  77. 'lstHandlers 
    78. 
  
  
  
  78. ' 
    79. 
  
  
  
  79. Me.lstHandlers.ItemHeight = 12
    80. 
  
  
  
  80. Me.lstHandlers.Location = New System.Drawing.Point(88, 64) 
    81. 
  
  
  
  81. Me.lstHandlers.Name = "lstHandlers"
    82. 
  
  
  
  82. Me.lstHandlers.Size = New System.Drawing.Size(136, 112) 
    83. 
  
  
  
  83. Me.lstHandlers.TabIndex = 13
    84. 
  
  
  
  84. ' 
    85. 
  
  
  
  85. 'Label3 
    86. 
  
  
  
  86. ' 
    87. 
  
  
  
  87. Me.Label3.Location = New System.Drawing.Point(56, 64) 
    88. 
  
  
  
  88. Me.Label3.Name = "Label3"
    89. 
  
  
  
  89. Me.Label3.Size = New System.Drawing.Size(32, 16) 
    90. 
  
  
  
  90. Me.Label3.TabIndex = 12
    91. 
  
  
  
  91. Me.Label3.Text = "事件"
    92. 
  
  
  
  92. ' 
    93. 
  
  
  
  93. 'tvMenu 
    94. 
  
  
  
  94. ' 
    95. 
  
  
  
  95. Me.tvMenu.Location = New System.Drawing.Point(280, 24) 
    96. 
  
  
  
  96. Me.tvMenu.Name = "tvMenu"
    97. 
  
  
  
  97. Me.tvMenu.Size = New System.Drawing.Size(152, 152) 
    98. 
  
  
  
  98. Me.tvMenu.TabIndex = 11
    99. 
  
  
  
  99. ' 
    100. 
  
  
  
  100. 'Label2 
    101. 
  
  
  
  101. ' 
    102. 
  
  
  
  102. Me.Label2.Location = New System.Drawing.Point(232, 32) 
    103. 
  
  
  
  103. Me.Label2.Name = "Label2"
    104. 
  
  
  
  104. Me.Label2.Size = New System.Drawing.Size(48, 16) 
    105. 
  
  
  
  105. Me.Label2.TabIndex = 10
    106. 
  
  
  
  106. Me.Label2.Text = "添加到"
    107. 
  
  
  
  107. ' 
    108. 
  
  
  
  108. 'Label1 
    109. 
  
  
  
  109. ' 
    110. 
  
  
  
  110. Me.Label1.Location = New System.Drawing.Point(8, 32) 
    111. 
  
  
  
  111. Me.Label1.Name = "Label1"
    112. 
  
  
  
  112. Me.Label1.Size = New System.Drawing.Size(80, 16) 
    113. 
  
  
  
  113. Me.Label1.TabIndex = 9
    114. 
  
  
  
  114. Me.Label1.Text = "新菜單項文字"
    115. 
  
  
  
  115. ' 
    116. 
  
  
  
  116. 'txtNewText 
    117. 
  
  
  
  117. ' 
    118. 
  
  
  
  118. Me.txtNewText.Location = New System.Drawing.Point(88, 24) 
    119. 
  
  
  
  119. Me.txtNewText.Name = "txtNewText"
    120. 
  
  
  
  120. Me.txtNewText.Size = New System.Drawing.Size(136, 21) 
    121. 
  
  
  
  121. Me.txtNewText.TabIndex = 8
    122. 
  
  
  
  122. ' 
    123. 
  
  
  
  123. 'btnAddItem 
    124. 
  
  
  
  124. ' 
    125. 
  
  
  
  125. Me.btnAddItem.Location = New System.Drawing.Point(168, 192) 
    126. 
  
  
  
  126. Me.btnAddItem.Name = "btnAddItem"
    127. 
  
  
  
  127. Me.btnAddItem.Size = New System.Drawing.Size(80, 24) 
    128. 
  
  
  
  128. Me.btnAddItem.TabIndex = 7
    129. 
  
  
  
  129. Me.btnAddItem.Text = "添加菜單項"
    130. 
  
  
  
  130. ' 
    131. 
  
  
  
  131. 'Form1 
    132. 
  
  
  
  132. ' 
    133. 
  
  
  
  133. Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) 
    134. 
  
  
  
  134. Me.ClientSize = New System.Drawing.Size(448, 225) 
    135. 
  
  
  
  135. Me.Controls.Add(Me.lstHandlers) 
    136. 
  
  
  
  136. Me.Controls.Add(Me.Label3) 
    137. 
  
  
  
  137. Me.Controls.Add(Me.tvMenu) 
    138. 
  
  
  
  138. Me.Controls.Add(Me.Label2) 
    139. 
  
  
  
  139. Me.Controls.Add(Me.Label1) 
    140. 
  
  
  
  140. Me.Controls.Add(Me.txtNewText) 
    141. 
  
  
  
  141. Me.Controls.Add(Me.btnAddItem) 
    142. 
  
  
  
  142. MeMe.Menu = Me.MainMenu 
    143. 
  
  
  
  143. Me.Name = "Form1"
    144. 
  
  
  
  144. Me.Text = "Form1"
    145. 
  
  
  
  145. Me.ResumeLayout(False) 
    146. 
  
  
  
  146. Me.PerformLayout() 
    147. 
  
  
  
  147. 
  
  
  
  148. End Sub 
    149. 
  
  
  
  149. 
  
  
  
  150. #End Region 
    151. 
  
  
  
  151. 
  
  
  
  152. Private eHandlers(3) As EventHandler '定義事件方法集合 
    153. 
  
  
  
  153. Private Sub ShowHelloWorld()Sub ShowHelloWorld(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    154. 
  
  
  
  154. MessageBox.Show("Hello World!") 
    155. 
  
  
  
  155. End Sub 
    156. 
  
  
  
  156. Private Sub ShowMenuItemText()Sub ShowMenuItemText(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    157. 
  
  
  
  157. Dim mItem As MenuItem 
    158. 
  
  
  
  158. mItem = CType(sender, MenuItem) 
    159. 
  
  
  
  159. MessageBox.Show(mItem.Text) 
    160. 
  
  
  
  160. End Sub 
    161. 
  
  
  
  161. Private Sub ShowMenuItemIndex()Sub ShowMenuItemIndex(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    162. 
  
  
  
  162. Dim mItem As MenuItem 
    163. 
  
  
  
  163. 
  
  
  
  164. mItem = CType(sender, MenuItem) 
    165. 
  
  
  
  165. MessageBox.Show(mItem.Index) 
    166. 
  
  
  
  166. End Sub 
    167. 
  
  
  
  167. Private Sub ShowCurDateTime()Sub ShowCurDateTime(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) 
    168. 
  
  
  
  168. Dim strDate As String = DateTime.Now.ToString() 
    169. 
  
  
  
  169. MessageBox.Show(strDate) 
    170. 
  
  
  
  170. End Sub 
    171. 
  
  
  
  171. 
  
  
  
  172. 
  
  
  
  173. Private Sub MenuItemToNode()Sub MenuItemToNode(ByVal menuItems As Menu.MenuItemCollection, 
    ByVal targetNodes As TreeNodeCollection) 
    174. 
  
  
  
  174. 'TreeNodeCollection 代表一個樹結點集合，每一個節(jié)點下的兒子節(jié)點的集合 
    175. 
  
  
  
  175. 'MenuItemCollection 代表一個菜單項的集合,也是菜單樹中某一菜單下的一級子菜單的菜單項的集合 
    176. 
  
  
  
  176. Dim subItem As MenuItem 
    177. 
  
  
  
  177. For Each subItem In menuItems 
    178. 
  
  
  
  178. Dim subNode As New TreeNode(subItem.Text) 
    179. 
  
  
  
  179. If subItem.MenuItems.Count > 0 Then 
    180. 
  
  
  
  180. MenuItemToNode(subItem.MenuItems, subNode.Nodes)'遞歸處理 
    181. 
  
  
  
  181. End If 
    182. 
  
  
  
  182. targetNodes.Add(subNode) 
    183. 
  
  
  
  183. Next 
    184. 
  
  
  
  184. End Sub 
    185. 
  
  
  
  185. 
  
  
  
  186. Private Function FindMenuItem()Function FindMenuItem(ByVal selectedNode As TreeNode) As MenuItem 
    187. 
  
  
  
  187. Dim indexStack As New Collections.Stack()'定一個堆棧對象 
    188. 
  
  
  
  188. '將樹結點從當前節(jié)點一直到根的一條路徑壓入堆棧 
    189. 
  
  
  
  189. Do Until selectedNode Is Nothing 
    190. 
  
  
  
  190. indexStack.Push(selectedNode.Index) 
    191. 
  
  
  
  191. selectedNodeselectedNode = selectedNode.Parent 
    192. 
  
  
  
  192. Loop 
    193. 
  
  
  
  193. '再利用菜單與treeview樹一一對應的特點.根據節(jié)點的index,找到對應的菜單項.然后沿著路徑找到當前的菜單項 
    194. 
  
  
  
  194. Dim menuItem As MenuItem = MainMenu.MenuItems(indexStack.Pop()) 
    195. 
  
  
  
  195. Do Until indexStack.Count = 0
    196. 
  
  
  
  196. menuItemmenuItem = menuItem.MenuItems(indexStack.Pop()) 
    197. 
  
  
  
  197. Loop 
    198. 
  
  
  
  198. '返回當前菜單項 
    199. 
  
  
  
  199. Return menuItem 
    200. 
  
  
  
  200. 
  
  
  
  201. End Function 
    202. 
  
  
  
  202. 
  
  
  
  203. Private Sub btnAddItem_Click()Sub btnAddItem_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles btnAddItem.Click 
    204. 
  
  
  
  204. If txtNewText.Text = "" Then Exit Sub 
    205. 
  
  
  
  205. If tvMenu.SelectedNode Is Nothing Then Exit Sub 
    206. 
  
  
  
  206. 
  
  
  
  207. Dim correspondingMenuItem As MenuItem 
    208. 
  
  
  
  208. Dim newMenuItem As MenuItem 
    209. 
  
  
  
  209. correspondingMenuItem = FindMenuItem(tvMenu.SelectedNode)'將節(jié)點轉成菜單項 
    210. 
  
  
  
  210. 
  
  
  
  211. newMenuItem = New MenuItem(txtNewText.Text) '生成新加的菜單項 
    212. 
  
  
  
  212. If lstHandlers.SelectedIndex >= 0 Then 
    213. 
  
  
  
  213. AddHandler newMenuItem.Click, eHandlers(lstHandlers.SelectedIndex) '建立事件的委托 
    214. 
  
  
  
  214. End If 
    215. 
  
  
  
  215. correspondingMenuItem.MenuItems.Add(newMenuItem)'將新菜單加到菜單樹中 
    216. 
  
  
  
  216. tvMenu.Nodes.Clear() '清空treeview樹 
    217. 
  
  
  
  217. MenuItemToNode(MainMenu.MenuItems, tvMenu.Nodes) '將最新的菜單呈現(xiàn)成樹 
    218. 
  
  
  
  218. tvMenu.ExpandAll() '展開樹 
    219. 
  
  
  
  219. End Sub 
    220. 
  
  
  
  220. 
  
  
  
  221. Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles MyBase.Load 
    222. 
  
  
  
  222. MenuItemToNode(MainMenu.MenuItems, tvMenu.Nodes)'將菜單樹呈現(xiàn)到treeview中 
    223. 
  
  
  
  223. tvMenu.ExpandAll() '展開他 
    224. 
  
  
  
  224. 
  
  
  
  225. '將三個事件方法放入集合 
    226. 
  
  
  
  226. eHandlers(0) = AddressOf ShowHelloWorld 
    227. 
  
  
  
  227. eHandlers(1) = AddressOf ShowMenuItemText 
    228. 
  
  
  
  228. eHandlers(2) = AddressOf ShowMenuItemIndex 
    229. 
  
  
  
  229. eHandlers(3) = AddressOf ShowCurDateTime 
    230. 
  
  
  
  230. '將事件方法名字寫入列表 
    231. 
  
  
  
  231. Dim i As Integer 
    232. 
  
  
  
  232. For i = 0 To eHandlers.Length - 1 
    233. 
  
  
  
  233. lstHandlers.Items.Add(eHandlers(i).Method.Name) 
    234. 
  
  
  
  234. Next 
    235. 
  
  
  
  235. End Sub 
    236. 
  
  
  
  236. End Class 
    237.

新聞標題：詳細概括VB.NET實現(xiàn)動態(tài)菜單的方法
本文地址：http://m.5511xx.com/article/dhdogjj.html