Private mintCurFrame As Integer' Current Frame visiblePrivate Sub Tabstrip1_Click() If Tabstrip1.SelectedItem.Index = mintCurFrame _ Then Exit Sub ' No need to change frame. ' Otherwise, hide old frame, show new. Frame1(Tabstrip1.SelectedItem.Index).Visible = True Frame1(mintCurFrame).Visible = False ' Set mintCurFrame to new value. mintCurFrame = Tabstrip1.SelectedItem.Index End Sub用pic或者frame做载体
If Tabstrip1.SelectedItem.Index = mintCurFrame _
Then Exit Sub ' No need to change frame.
' Otherwise, hide old frame, show new.
Frame1(Tabstrip1.SelectedItem.Index).Visible = True
Frame1(mintCurFrame).Visible = False
' Set mintCurFrame to new value.
mintCurFrame = Tabstrip1.SelectedItem.Index
End Sub用pic或者frame做载体