表示选中某页用TabStrip1.Tabs(i).Selected = True
看看一下代码就明白了,明白了以上两个问题就迎刃而解Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
TabStrip1.Tabs(2).Selected = True '启动时选中第二页
End SubPrivate Sub mnu1_Click() '第一页
TabStrip1.Tabs(1).Selected = True
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
End SubPrivate Sub mnu2_Click() '第二页
TabStrip1.Tabs(2).Selected = True
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
End SubPrivate Sub mnu3_Click() '第三页
TabStrip1.Tabs(3).Selected = True
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
End Sub
看看一下代码就明白了,明白了以上两个问题就迎刃而解Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
TabStrip1.Tabs(2).Selected = True '启动时选中第二页
End SubPrivate Sub mnu1_Click() '第一页
TabStrip1.Tabs(1).Selected = True
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
End SubPrivate Sub mnu2_Click() '第二页
TabStrip1.Tabs(2).Selected = True
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
End SubPrivate Sub mnu3_Click() '第三页
TabStrip1.Tabs(3).Selected = True
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货