VB 2005 Toolstrip动态添加菜单

一直以来，都喜欢用第三方控件，毕竟功能要强大得多，不过，正因为如果，导致俺的程序中招，即：infragistic 2006的WinGrid和Toolbar有冲突，花了几十个小时，才查出原因，晚上试了一下，windows下的Toolstrip也能动态添加菜单，好吧，虽然还是不好用，可是，好歹能解决问题，也可以少用一个第三方控件。

 

另，为什么不用最新的控件？因为，俺用的是正版的好不好？虽然我啥都是用盗版的，不过，老板布置的工作，东西是给用户用的，不敢用盗版。老板也问了，要不要换成最新的？不过，我的知识还停留在VB2005，现在虽然升级到VS2010，可是可是，我用的还是所有都是2005呀。

 

1. 在Form上添加一个Toolstrip控件

2. 动态添加菜单的代码。

 A.前提：因为，我做的工具栏的菜单项都只有图标和文字，而且，只有两类，一类是按钮，即ToolStripButton，一类是分隔栏，即ToolStripSeparator

 B. 为了让按钮有图标，还要先给Form添加一个ImageList控件，并把所有用到的图标放里面。并用代码将其作为ToolStrip的图标列表。

  代码：             oToolStrip.ImageList = ilImageList

 

 C. 为了让程序能处理动态添加的按钮的选择操作，即Click事件，还要先添加一个过程，因为Click事件有两个参数，你在添加这个过程时，也要包含一样的参数，因为，你的工具栏通常不可能只有一个按钮，所以，可以使用CallByName进行调用不同的过程来完成对应的功能，用CallByName时，被调用的过程或者函数，要设置成Public属性。直接用Select Case进行分支也行，看具体情况，此时就只要设置成Private。

   代码：

     Private Sub DoToolstripClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim oTSItem As ToolStripItem = sender
        CallByName(Me, "Do" & oTSItem.Name, CallType.Method, Nothing)
    End Sub

 D.添加按钮的代码，要注意的是，ImageKey指定ImageList里面的图标时，要用图标的全名，即包含扩展名：

            Dim oTSButton As ToolStripButton
            oTSButton = New ToolStripButton
            With oTSButton
                .Name = "First"
                .ImageKey = "First.BMP"
                .Text = "First"
                .DisplayStyle = ToolStripItemDisplayStyle.ImageAndText
            End With
            AddHandler oTSButton.Click, AddressOf TestIt
            oToolStrip.Items.Add(oTSButton)

  E.添加分隔栏的代码：

            Dim oTSSeperator As ToolStripSeparator
            oTSSeperator = New ToolStripSeparator
            oToolStrip.Items.Add(oTSSeperator)