以下是引用yacity在2013-8-9 9:28:00的发言:
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 tsi3 As new Windows.Forms.ToolStripButton("页面4")
AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click
tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
tsi.DropDownItems.Add(tsi4)
ts.Items.Add(tsi)
e.Form.baseform.Controls.Add(ts)
这样可以增加菜单“页面4” 可是点击“页面4” 以后怎么打开表4呢?
增加一个标签页4,并且在点击代码中设置好对应选中页面.