改成这样，弹出什么？
msgbox(e.StripItem.name)
Select Case e.StripItem.name
Case "首页"
e.Form.Controls("tbx.1").tabpages(0).visible = True
e.Form.Controls("tbx.1").Selectedindex = 0
Case "销量走势"
e.Form.Controls("tbx.1").tabpages(1).visible = True
e.Form.Controls("tbx.1").Selectedindex = 1
Case "警戒库存"
e.Form.Controls("tbx.1").tabpages(2).visible = True
e.Form.Controls("tbx.1").Selectedindex = 2
Case "版权声明"
MessageBox.Show("本人软件开发,拥有所有权利","版权声明")
Case "btn1","btn2"
msgbox(123)
e.Form.Controls("tb1.2.1").Visible = True
End Select
加好友 
发短信
Post By：2019/5/21 17:14:00 [显示全部帖子]
