以前 VB 6.0 我要調一堆 API 感覺好過癮 呵呵 現在找不到這種感覺了 哈！記得vb 6 的 時候生氣用Win32寫了個Clock  掉了上百個 API 連VB 6 的窗體都沒用， 那個叫過癮 一切都在控制中的感覺真好。看來我還是適合用 MASM Win32 的。哈哈 廢話 到此結束。動態新增選單在 .net 中很容易的。

首先建立一個XML 檔案用來儲存 選單資訊 (本例使用 DataHelper.xml)
 
<?xml version="1.0" encoding="utf-8" ?>
<DataHelper>
  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>1</MenuID>
    <ParentID>0</ParentID> 
    <Text>基本資料庫(&amp;B)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible>True</Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>
  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>

  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
    <Text>計生系統(&amp;J)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys>131140</ShortcutKeys>
  </Menu>

  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>

  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>3</MenuID>
    <ParentID>0</ParentID>
    <Text>黨員系統(&amp;D)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>

  <Menu>
    <IsSeparator>1</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>2</MenuID>
    <ParentID>0</ParentID>
  </Menu>

  <Menu>
    <IsSeparator>0</IsSeparator>
    <IsTopMenu>0</IsTopMenu>
    <TopMenuItemIndex>2</TopMenuItemIndex>
    <SubMenuItemIndex></SubMenuItemIndex>
    <MenuID>4</MenuID>
    <ParentID>0</ParentID>
    <Text>民政系統(&amp;M)...</Text>
    <Image></Image>
    <ToolTipText></ToolTipText>
    <Visible></Visible>
    <Name>DataConvert</Name>
    <ShortcutKeys></ShortcutKeys>
  </Menu>
</DataHelper>

好了第一步開始，讀取XML檔案 我們使用 DataSet 來幹這活，不過我是在 DataHerlper.Common 工程來幹這事的。哇 分層阿！
這個是個結構 我用的 看取那個Table

 System.Drawing

 System.Windows.Forms

Namespace DataHelper.Common

    PublicEnum DataHelperConfigTableNameEnum DataHelperConfigTableName
        DropDownMenu =0
        Plugins =1
    End Enum

End Namespace

 System.Data

 DataHelper.Common.Caching

 System.Windows.Forms

Namespace DataHelper.Common
    PublicClass SharedClassClass SharedClass

        PublicSharedFunction GetDataHelperConfig()Function GetDataHelperConfig(OptionalByVal TableName As DataHelperConfigTableName = DataHelperConfigTableName.DropDownMenu) As DataTable
            Dim strDataHelperConfigFile AsString
            Dim ds AsNew DataSet
            Dim dt AsNew DataTable

            strDataHelperConfigFile = Application.StartupPath &"ConfigDataHelper.xml"'Application.StartupPath

            ds = DataCache.GetCache("DataHelperConfig")
            If ds IsNothingThen
                Dim xmlReader As XmlTextReader =New XmlTextReader(strDataHelperConfigFile)
                ds =New DataSet
                ds.ReadXml(xmlReader)
                dt = ds.Tables(TableName)
                DataCache.Insert("DataHelperConfig", ds, DataCache.CreateFileCacheDependency(strDataHelperConfigFile))
            Else
                dt = ds.Tables(TableName)
            EndIf
            Return dt
        End Function

    End Class
End Namespace

我們得到選單資訊了接下來就要動態新增選單了 這又是一個工程（DataHelper.UserInterface） 分層嗎

'

'

'

'

'

'

'

 System.IO

 System.Windows.Forms

 DataHelper.Common

 DataHelper.PluginsInterface

Namespace DataHelper.UserInterface
    PublicClass MainMenuClass MainMenu
        Private MenuClick AsNew MainMenuClick

Public Methods#Region "Public Methods"
        '**********************************************************************************************************
'功  能：動態建立選單
'參  數：MenuScripItem - 一個MenuStrip物件 
'返回值：NULL
'**********************************************************************************************************
PublicSub CreateMenu()Sub CreateMenu(ByVal MenuScripItem As MenuStrip)
            Dim IsTopMenu AsBoolean
            Dim IsSeparator AsBoolean=False
            Dim TopMenuItemIndex AsInteger=0
            Dim SubMenuItemIndex AsInteger=-1
            Dim dt As DataTable = SharedClass.GetDataHelperConfig(DataHelperConfigTableName.DropDownMenu)
            Dim dr As DataRow
            ForEach dr In dt.Rows
                IfIsNumeric(dr("IsSeparator")) Then
                    IsSeparator = dr("IsSeparator")
                EndIf

                Dim MenuItem As ToolStripMenuItem =New ToolStripMenuItem()         '建立選單項 
AddHandler MenuItem.Click, New EventHandler(AddressOf MenuClick.MainMenu_Click)
                MenuItem.Text = dr("Text").ToString()
                MenuItem.ToolTipText = dr("ToolTipText").ToString
                MenuItem.Name = dr("Name").ToString

                If File.Exists(dr("Image").ToString) Then
                    MenuItem.Image = Image.FromFile(dr("Image"))
                EndIf

                If dr("Visible").ToString.Length >0Then
                    MenuItem.Visible =Boolean.Parse(dr("Visible"))
                EndIf

                IfIsNumeric(dr("ShortcutKeys")) Then
                    MenuItem.ShortcutKeys =Integer.Parse(dr("ShortcutKeys"))
                EndIf
                MenuItem.ShowShortcutKeys =True


                IfIsNumeric(dr("IsTopMenu")) Then
                    IsTopMenu =CBool(dr("IsTopMenu"))
                Else
                    IsTopMenu =False
                EndIf

                IfIsNumeric(dr("TopMenuItemIndex")) Then
                    TopMenuItemIndex = dr("TopMenuItemIndex")
                EndIf

                IfIsNumeric(dr("SubMenuItemIndex")) Then
                    SubMenuItemIndex = dr("SubMenuItemIndex")
                EndIf

                If dr("ParentID") =0Then
                    If IsTopMenu Then
                        If TopMenuItemIndex <6Then
                            TopMenuItemIndex =6
                        EndIf
                        MenuScripItem.Items.Insert(TopMenuItemIndex, MenuItem)
                    Else
                        Dim Sep AsNew ToolStripSeparator
                        If SubMenuItemIndex =-1Then
                            If IsSeparator Then
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Add(Sep)
                            Else
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Add(MenuItem)

                            EndIf
                        Else
                            If IsSeparator Then
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Insert(SubMenuItemIndex, Sep)
                            Else
                                CType(MenuScripItem.Items(TopMenuItemIndex), ToolStripMenuItem).DropDownItems.Insert(SubMenuItemIndex, MenuItem)
                            EndIf
                        EndIf
                    EndIf
                    CreateSubMenu(MenuItem, Convert.ToInt32(dr("MenuID")), dt)
                EndIf
            Next
        End Sub
#End Region

Private Methods#Region "Private Methods"
        '**********************************************************************************************************
'功  能：動態建立子選單
'參  數：MenuItem - 一個ToolStripMenuItem物件，MenuID - 父選單的 MenuID，dt - 一個 DataTable 物件
'返回值：NULL
'**********************************************************************************************************
PrivateSub CreateSubMenu()Sub CreateSubMenu(ByRef MenuItem As ToolStripMenuItem, ByVal MenuID AsInteger, ByVal dt As DataTable)
            Dim dv As DataView =New DataView(dt)
            dv.RowFilter ="ParentID="+ MenuID.ToString()                          '當前父選單下在所有子選單
For I AsInteger=0To dv.Count -1
                Dim SubMenuItem As ToolStripMenuItem =New ToolStripMenuItem()      '建立子選單項
                SubMenuItem.Text = dv(I)("Text").ToString()
                SubMenuItem.ToolTipText = dv(I)("ToolTipText")
                SubMenuItem.Name = dv(I)("Name")

                If File.Exists(dv(I)("Image")) Then
                    SubMenuItem.Image = Image.FromFile(dv(I)("Image"))
                EndIf

                If dv(I)("Visible").ToString.Length >0Then

相關推薦

VB.net 動態新增選單響應單擊事件

以前 VB 6.0 我要調一堆 API 感覺好過癮 呵呵 現在找不到這種感覺了 哈！記得vb 6 的 時候生氣用Win32寫了個Clock  掉了上百個 API 連VB 6 的窗體都沒用， 那個叫過癮 一切都在控制中的感覺真好。看來我還是適合用 MASM Win32 的。哈哈

android選單項單擊事件方法介紹

響應選單項的單擊動作： 一、實現OnMenuItemClickListener介面，再實現此介面的OnMenuItemClick(MenuItem item)方法； 二、使用Activity類的onOptionsItemSelected(MenuItem item)和onM

解決Button加到ImageView上後Button 無法響應單擊事件的方法

imageview預設是不響應事件的 ,所以即使在上邊加上個button也不會響應 解決辦法是：將這個imageview.userInterfaceEnabled  =   YES;  手動設成YE

關於把button加到UIImageView上後button無法響應單擊事件的方法

在做吃貨876的應用，我自定了一個uitableviewcell，然後在上邊有個電話的uiimageview，然後又在上邊加了個button，本想著點選後可以直接打電話呢，可單擊事件一直被cell給攔

JS生成動態表格併為每個單元格新增單擊事件的方法

<html> <head> <title>Demo</title> <script> function getColumn

JS動態生成的元素，其對應的方法不響應（比如單擊事件，滑鼠移動事件等）

主要原因：在頁面給元素註冊點選事件的時候【 $(function () {  XXX }); 】，JS動態生成的元素還尚未生成，所以click事件就沒有生效 解決方法： 方案一：js動態生成元素後再給其註冊事件 【註冊事件放在動態生成的js下面（js是從上往下執行的，當註冊事件的時候元素已經生成了

java實現動態許可權(選單管理)動態新增選單，動態新增角色SSM框架

首先是資料庫設計 Menu表（選單表） Role表（角色表） Role_Menu表（角色選單關係表） User表（使用者表） User_Role表（使用者角色關係表） 其他實體類就略過了 在Menu實體類中添加了一個List<Menu&

怎麼給a標籤或者連結新增單擊事件

<div> <a id="yjx" href="#">一鍵</a> </div> <script type="text/javascript"> $("#yjx").click(function(){      /

MFC中的CMenu---如何動態新增選單/選單項、子選單、右鍵選單

資料來源： http://www.cnblogs.com/jcss2008/archive/2009/01/02/1366882.html 這篇文章總結的很好也很實用，感謝作者：jcss 如何動態新增選單/選單項、子選單、右鍵選單 有關選單的操作主要用到CMenu類，當然也可用相應A

實現按鈕的左鍵單擊和右鍵單擊事件 編輯框的回車鍵和ctrl+enter組合鍵訊息響應

                      實現按鈕的左鍵單擊和右鍵單擊事件   實現編輯框的回車鍵和ctrl+enter組合鍵訊息響應 VC+MFC裡按鈕只有單擊和雙擊訊息，要實現做簡單幾何右鍵單擊，得在PreTransLateMessage裡面實現； 對話方塊的Pre

Jquery 動態生成li標籤以及單擊事件的繫結

$("#rightRes").append("<li margin-top:3px;margin-left:10px; value="+i+">名稱:" +"<br/>電話:"+"</li>");//動態生成 $('div').chi

jquery + php動態新增刪除表單的方法

<button id='insertButton' onClick='addResource()'>增加</button> <?php ob_start();?> &

vb.net動態載入dll並執行dll中的某一個函式

注意:下面的Dll檔案必須是用託管程式碼寫的,否則請使用API的相應函式進行動態載入。 一、 比如我事先寫了一個類，如下： Public Class TestClass     Public Function Add(ByVal add1 As Integer, ByVal

給控制元件新增單擊事件－－UITapGestureRecognizer

在Iphone開發中，像UIimageView是不支援點選的，但往往我們卻有很多能在Image上點選的需求，比如一個自定義的TableViewCell中放入三個UIimageView，在這裡命名為imageleft，imagemiddle，imggeright，當table

asp.net 動態新增checkbox與事件

之前學瞭如何動態往panel裡新增button以及事件。 簡單的DEMO 動態的新增圖片按鈕，並新增點選事件 ImageButton jian = new ImageButton(); jian.ImageUrl = "~/pictu

QT重寫控制元件函式並新增滑鼠單擊事件

重寫QComboBox類 1.在工程中新建一個C++類，命名為myboBox，base的地方填寫QComboBox，緊接著勾選#include QWidget。 2.myboBox檔案中包含標頭檔案#include <QComboBox>嗎，並新增Q_OBJEC

form表單 無法提交js動態新增的表單元素遇到的坑

第一種情況， 這種情況js動態新增的表單元素是不能提交到伺服器端的 <table> <form method="post" action=" url  "> <tr><td></td><td>&

Qt QLable 響應單擊點選事件

第一種方法 效果圖 主要程式碼 #include "mainwindow.h" #include "ui_mainwindow.h" MainWindow::MainWindow(QWidge

單擊事件

extends andro @+ findview eat edit stat orien nco 單擊事件 <?xml version="1.0" encoding="utf-8"?> <LinearLayout xmlns:android="htt

android開發裏跳過的坑——button不響應點擊事件

一個 不響應 color 事件 short ces andro generate lis 昨天遇到一個頭疼的問題，在手機上按鈕事件都很正常，但是在平板上（橫屏顯示的狀態），button點擊事件不響應，代碼簡化如下： public class Test extends Ac