Results 1 to 2 of 2
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Tabstrip select (2000 sr-1)

    how to activate the 3th tab in this event (in this case LUST10A)?
    Private Sub UserForm_Activate()

    TabStrip1.Tabs.Item(0).Caption = "LUSTSTP"
    TabStrip1.Tabs.Item(1).Caption = "LUST10C"
    TabStrip1.Tabs.Item(2).Caption = "LUST10A"
    TabStrip1.Tabs.Item(3).Caption = "LUST023"
    TabStrip1.Tabs.Item(4).Caption = "LUST091"
    TabStrip1.Tabs.Item(5).Caption = "L0646INTER"

    QUALE_FOGLIO = TabStrip1.Value

    FOGLIO = TabStrip1.Tabs(QUALE_FOGLIO).Caption

    ScrollBar1.Min = 2

    For M = 1 To 4
    Me.Controls.Item("Label" & M) = Sheets(FOGLIO).Cells(1, M)
    Me.Controls.Item("Textbox" & M) = Sheets(FOGLIO).Cells(ScrollBar1.Min, M)
    Next

    End Sub

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Tabstrip select (2000 sr-1)

    You select a tab by setting the Value of the tabstrip to 1 less than the number of the tab. So to select the 3rd tab, set the Value to 3-1 = 2.

    TabStrip1.Value = 2

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •