PropSheet Sample (VB6)

This sample illustrates implementing a property sheet.

The source code is located at C:\Program Files (x86)\Softelvdm\SftTabs OCX 6.5\Samples\PropSheet\Form1.frm or C:\Program Files\Softelvdm\SftTabs OCX 6.5\Samples\PropSheet\Form1.frm (on 32-bit Windows versions).

Option Explicit

Private Sub OK_Click()
    End
End Sub

Private Sub Cancel_Click()
    End
End Sub

Private Sub Help_Click()
    MsgBox ("Sorry, there is no help for this example")
End Sub

Private Sub Form_Load()
    ' Pretend user switched to first tab page
    Call SftTabs1_Switched
End Sub

Private Sub SftTabs1_Switched()
    With SftTabs1
        ' The tab page is now active
        ' Replace the tab picture with the image that shows that
        ' the page has now been visited
        Set .Tab(.Tabs.Current).Image.Picture = Image1(.Tabs.Current)
        ' Update the form's title
        Form1.Caption = .Tab(.Tabs.Current).Text & " Options"
    End With
End Sub

Private Sub TabPos_Click()
    With SftTabs1.Tab(SftTabs1.Tabs.Current)
        If .Align = alignSftTabsRight Then
            .Align = alignSftTabsDefault
        Else
            .Align = alignSftTabsRight
        End If
    End With
End Sub

Private Sub TabStyle_Click()
    With SftTabs1
        If .Style = styleSftTabsModernBottom Then
            .Style = styleSftTabsModernTop
        Else
            .Style = styleSftTabsModernBottom
        End If
    End With
End Sub