SftTabs/OCX 6.5 - Tab Control for VB6

SftTabsScrolling.PictureDisabled Property

Defines the scroll button graphic for a disabled button.

Syntax

object

A SftTabsScrolling object.

refPictureObj

A reference to a Picture object. Only bitmaps are supported.

Comments

The PictureDisabled property defines the scroll button graphic for a disabled button.

The Scrolling.Picture2Disabled property defines the Close button, Minimize button and the Restore button graphic for a disabled button.

The PictureDisabled property can be used to override the default scroll buttons provided by a tab control. The refPictureObj object must represent a bitmap and cannot represent an icon or a metafile. The PictureDisabled property only takes effect if the Scrolling.Picture property also defines a valid image.

The bitmap represented by the refPictureObj object must contain two equal-sized images of the scroll buttons. The first image is used for the left/up scroll button and the second image for the right/down scroll button.

Sample left/right scroll button image

The buttons are arranged horizontally in the bitmap, so the height of the bitmap is the height of one button and the width of the bitmap is two times the width of one button. The top, left pixel of each button image must contain the background color. This color will be replaced by the button's actual background color when the bitmap is displayed. The above sample contains 2 images (6 x 9 pixels).

If the scroll button is enabled, the image defied using the Scrolling.Picture property is used instead of this property.

The PictureDisabled property can be set to the value Nothing, which restores the tab control's default, built-in scroll button bitmap.

The height of the scroll buttons and tabs is adjusted if necessary so the complete button graphic can be displayed vertically and horizontally. If the Scrolling.FullSize property is set to True, the scroll buttons are made as large as possible.

Sample button bitmaps can be found in the product directory \Program Files\Softelvdm\SftTabs OCX 6.5\Images.

Example

Private Sub Form_Load()
    Dim PicObject As StdPicture, PicObjectDisabled As StdPicture
    Set PicObject = LoadPicture("..... yourpath ....\SftTabs OCX 6.5\Samples\Images\LeftRightNew.bmp")
    Set PicObjectDisabled = LoadPicture("..... yourpath ....\SftTabs OCX 6.5\Images\LeftRightNewD.bmp")
    With SftTabs1
        .Style = styleSftTabsSquareLightTop
        .Scrolling.Style = scrollSftTabsAlwaysLeft
        .Scrolling.ButtonStyle = scrollSftTabsButtonHover
        .Scrolling.FullSize = True
        .ClientArea = False
        .MakeNaturalSize
        .Width = 2000
        Set .Scrolling.Picture = PicObject
        Set .Scrolling.PictureDisabled = PicObjectDisabled
    End With
End Sub

See Also SftTabsScrolling Object | Object Hierarchy