Hide

SftTabs/OCX 6.5 - Tab Control for VB6

Display
Print

SftTabsScrolling.Picture Property

Defines the scroll button graphic.

Syntax

Get
VBSet refPictureObj = object.Picture As IPictureDisp
Put
VBobject.Picture = refPictureObj As IPictureDisp
PutRef
VBSet object.Picture = refPictureObj As IPictureDisp

object

A SftTabsScrolling object.

refPictureObj

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

Comments

The Picture property defines the scroll button graphic.

The Scrolling.Picture2 property defines the Close button, Minimize button and the Restore button graphic.

The Picture 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 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 disabled, the image defined using the Scrolling.PictureDisabled property is used instead of this property. If PictureDisabled does not define an image, the image defined using this property is painted in a "grayed" fashion".

The Picture 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\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


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