高手，打扰一下，VB中的 windows common controls-3 6.0 控件 也就是设置工具栏的？
VB中的 windows common controls-3 6.0 控件 也就是设置快捷工具栏的怎么用啊。。。。 谢谢
怎样在里面添加 各种按钮啊，，，。， 也就是添加一些快捷工具．．．
VB中的 windows common controls-3 6.0 控件 也就是设置工具栏的
怎么用啊。。。。 谢谢
怎样在里面添加 各种按钮啊，，，。， 也就是添加一些快捷工具．．．
最新回答
天生萌货
2024-09-04 10:13:54
在过程中，创建工具栏按钮，方法是将这些按钮添加到 System.Windows.Forms.ToolBar.Buttons 集合中。
通过 Buttons 属性传递按钮的索引来指定单个按钮的属性设置。
下面的示例假定一个已添加了 ToolBar 控件的窗体。
注意
System.Windows.Forms.ToolBar.Buttons 集合是一个从零开始的集合，因此，编写代码时应使用相应的初始值。
Visual Basic 复制代码
Public Sub CreateToolBarButtons()
' Create buttons and set text property.
ToolBar1.Buttons.Add("One")
ToolBar1.Buttons.Add("Two")
ToolBar1.Buttons.Add("Three")
ToolBar1.Buttons.Add("Four")
' Set properties of StatusBar panels.
' Set Style property.
ToolBar1.Buttons(0).Style = ToolBarButtonStyle.PushButton
ToolBar1.Buttons(1).Style = ToolBarButtonStyle.Separator
ToolBar1.Buttons(2).Style = ToolBarButtonStyle.ToggleButton
ToolBar1.Buttons(3).Style = ToolBarButtonStyle.DropDownButton
' Set the ToggleButton's PartialPush property.
ToolBar1.Buttons(2).PartialPush = True
' Instantiate a ContextMenu component and menu items.
' Set the DropDownButton's DropDownMenu property to the context menu.
Dim cm As New ContextMenu()
Dim miOne As New MenuItem("One")
Dim miTwo As New MenuItem("Two")
Dim miThree As New MenuItem("Three")
cm.MenuItems.Add(miOne)
cm.MenuItems.Add(miTwo)
cm.MenuItems.Add(miThree)
ToolBar1.Buttons(3).DropDownMenu = cm
' Set the PushButton's Pushed property.
ToolBar1.Buttons(0).Pushed = True
' Set the ToolTipText property of one of the buttons.
ToolBar1.Buttons(1).ToolTipText = "Button 2"
End Sub
热门标签
