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)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!