Dim ts As new Windows.Forms.ToolStrip
Dim tsi As new Windows.Forms.ToolStripDropDownButton("页面集合")
Dim tsi1 As new Windows.Forms.ToolStripButton("页面1")
Dim tsi2 As new Windows.Forms.ToolStripButton("页面2")
Dim tsi3 As new Windows.Forms.ToolStripButton("页面3")
Dim tsb As new Windows.Forms.ToolStrip
Dim tsib As new Windows.Forms.ToolStripDropDownButton("商品管理")
Dim tsib1 As new Windows.Forms.ToolStripButton("销售")
Dim tsib2 As new Windows.Forms.ToolStripButton("入库")
Dim tsib3 As new Windows.Forms.ToolStripButton("退货")
AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click
AddHandler tsib1.Click, AddressOf Button_Click
AddHandler tsib2 .Click, AddressOf Button_Click
AddHandler tsib3 .Click, AddressOf Button_Click
tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
tsib.DropDownItems.Add(tsib1)
tsib.DropDownItems.Add(tsib2)
tsib.DropDownItems.Add(tsib3)
ts.Items.Add(tsi)
tsb.Items.Add(tsib)
e.Form.baseform.Controls.Add(ts)
e.Form.baseform.Controls.Add(tsb)
函数代码doclick、
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
Select Case args(0).Text
Case "页面1"
tab.SelectedIndex=0
Case "页面2"
tab.SelectedIndex=1
Case "页面3"
tab.SelectedIndex=2
Case "销售"
tab.SelectedIndex=3
Case "入库"
tab.SelectedIndex=4
Case "退货"
tab.SelectedIndex=5
End Select
Functions.Execute("AddPanel",args(0).Text,tab.SelectedIndex)
红色字体部分是我增加的 可是下来菜单按钮怎么变成上下的排列,如何变成左右排列?请教大师