未必非要这样，这只是别人的一个想法而已。有很多的软件有更好的界面。
我之前做了一个案例，你可以参考一下
主界面_TabControl_人事管理_DoubleClick
'''
Dim 人事管理 As
WinForm.TabControl = e.Form.Controls("TabControl_人事管理")
Select Case
e.Sender.SelectedPage.text '返回页面标题
Case "人事管理"
Return
Case Else
e.Sender.SelectedPage.Visible = False '隐藏本页面
e.Sender.SelectedPage = e.Sender.TabPages("人事管理") '选中页面
End Select
主界面_TabControl1_DoubleClick
Dim 人事管理 As
WinForm.TabControl = e.Form.Controls("TabControl_人事管理")
Select Case
e.Sender.SelectedPage.text '返回页面标题
Case "人事管理"
Return
Case Else
e.Sender.SelectedPage.Visible = False '隐藏本页面
e.Sender.SelectedPage = e.Sender.TabPages("人事管理") '选中页面
End Select
加好友 
发短信
Post By：2012/7/22 12:29:00 [显示全部帖子]
