使用Tabstrip和Frame控件数组,把窗口分成多个标签页。 利用Tabstrip的Click事件切换Frame控件的Visible属性,达到切换可见控件的目的。 Private Sub TabStrip1_Click() If TabStrip1.SelectedItem.Index - 1 = mintCurFrame _ Then Exit Sub ' No need to change frame. ' Otherwise, hide old frame, show new. Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True Frame1(mintCurFrame).Visible = False ' Set mintCurFrame to new value. mintCurFrame = TabStrip1.SelectedItem.Index - 1 End Sub Frame控件中还可以嵌套Tabstrip和Frame控件。
利用Tabstrip的Click事件切换Frame控件的Visible属性,达到切换可见控件的目的。
Private Sub TabStrip1_Click()
If TabStrip1.SelectedItem.Index - 1 = mintCurFrame _
Then Exit Sub ' No need to change frame.
' Otherwise, hide old frame, show new.
Frame1(TabStrip1.SelectedItem.Index - 1).Visible = True
Frame1(mintCurFrame).Visible = False ' Set mintCurFrame to new value.
mintCurFrame = TabStrip1.SelectedItem.Index - 1
End Sub
Frame控件中还可以嵌套Tabstrip和Frame控件。