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)

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...