Hide

SftTabs/OCX 6.5 - Tab Control for VB6

Display
Print

SftPictureObject.Appearance Property

Defines the image object using a built-in, special purpose image.

Syntax

Get
VBStyle = object.Appearance As SftPictureImageConstants
Put
VBobject.Appearance = Style As SftPictureImageConstants

object

A SftPictureObject object.

Style

Defines the image object using a built-in, special purpose image.

NameValueDescription
sftImageNone-1None
sftImageCheckboxNo0Checkbox - No
sftImageCheckboxYes1Checkbox - Yes
sftImageCheckboxUnknown2Checkbox - Unknown
sftImageCheckboxNoDisabled3Checkbox - No, Disabled
sftImageCheckboxYesDisabled4Checkbox - Yes, Disabled
sftImageCheckboxUnknownDisabled5Checkbox - Unknown, Disabled
sftImageRadioButtonNo6RadioButton - No
sftImageRadioButtonYes7RadioButton - Yes
sftImageRadioButtonNoDisabled8RadioButton - No, Disabled
sftImageRadioButtonYesDisabled9RadioButton - Yes, Disabled
sftImageUp10Up
sftImageUpDisabled11Up, Disabled
sftImageDown12Down
sftImageDownDisabled13Down, Disabled
sftImageSortAsc14Sort Ascending
sftImageSortAscDisabled15Sort Ascending, Disabled
sftImageSortDesc16Sort Descending
sftImageSortDescDisabled17Sort Descending, Disabled

Comments

The Appearance property defines the image object using a built-in, special purpose image.

The SftPictureObject.Type property is set to sftTypeBuiltin.

The SftPictureObject.Height and SftPictureObject.Width properties should be used to define the requested image size. The SftPictureObject.ActualHeight and SftPictureObject.ActualWidth properties reflect the image dimensions.

Example

This example adds a checkbox to the second tab. Clicking on the checkbox doesn't change the active tab (because of the call to CancelMode), but toggles the checkbox instead.

Private Sub Form_Load()
     With SftTabs1.Direct
         .Style = styleSftTabsModernTop
         .Tab(1).Image.Appearance = sftImageCheckboxNo
     End With
End Sub

Private Sub SftTabs1_TabClicked(ByVal DblClick As Boolean, ByVal TabClicked As Integer, ByVal TabArea As SftTabsLib.SftTabsTabAreaConstants)
    With SftTabs1.Direct
        If TabArea = tabareaSftTabsImage Then
            If .Tab(TabClicked).Image.Appearance = sftImageCheckboxNo Then
                .Tab(TabClicked).Image.Appearance = sftImageCheckboxYes
                .CancelMode
            ElseIf .Tab(TabClicked).Image.Appearance = sftImageCheckboxYes Then
                .Tab(TabClicked).Image.Appearance = sftImageCheckboxNo
                .CancelMode
            End If
        End If
    End With
End Sub

See Also SftPictureObject Object | Object Hierarchy


Last Updated 08/13/2020 - (email)
© 2024 Softel vdm, Inc.