property G2antt.ScrollPartCaption(ScrollBar as ScrollBarEnum, Part as ScrollPartEnum) as String
Specifies the caption being displayed on the specified scroll part.

 TypeDescription 
   ScrollBar as ScrollBarEnum A ScrollBar expression that indicates the scrollbar where the caption is displayed.  
   Part as ScrollPartEnum A ScrollPartEnum expression that specifies the parts of the scroll where the text is displayed  
   String A String expression that specifies the caption being displayed on the part of the scroll bar.   
Use the ScrolPartCaption property to specify the caption of the scroll's part. Use the ScrollPartVisible property to add or remove buttons/parts in the control's scrollbar. By default, when a part becomes visible, the ScrollPartEnable property is automatically called, so the parts becomes enabled. Use the ScrollPartEnable property to specify enable or disable parts in the control's scrollbar. Use the ScrollBars property to specify the visible scrollbars in the control. Use the OffsetChanged event to notify your application that the scroll position is changed. Use the OversizeChanged event to notify your application whether the range for a specified scroll bar is changed. Use the ScrollPos property to specify the position for the control's scroll bar. The control fires the ScrollButtonClick event when the user clicks a part of the scroll bar. Use the ScrollFont property to specify the font in the control's scroll bar. Use the ScrollOrderParts property to customize the order of the buttons in the scroll bar. The ScrollPartCaptionAlignment property specifies the alignment of the caption in the part of the scroll bar.

By default, the following parts are shown:

The following VB sample adds up and down additional buttons to the control's vertical scroll bar :

With G2antt1
    .BeginUpdate
        .ScrollBars = exDisableBoth
        .ScrollPartVisible(exVScroll, exLeftB1Part Or exRightB1Part) = True
        .ScrollPartCaption(exVScroll, exLeftB1Part) = "<img></img>1"
        .ScrollPartCaption(exVScroll, exRightB1Part) = "<img></img>2"
    .EndUpdate
End With

The following VB.NET sample adds up and down additional buttons to the control's vertical scroll bar :

With AxG2antt1
    .BeginUpdate()
    .ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
    .set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exLeftB1Part Or EXG2ANTTLib.ScrollPartEnum.exRightB1Part, True)
    .set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exLeftB1Part, "<img></img>1")
    .set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exRightB1Part, "<img></img>2")
    .EndUpdate()
End With

The following C# sample adds up and down additional buttons to the control's vertical scroll bar :

axG2antt1.BeginUpdate();
axG2antt1.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth;
axG2antt1.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exLeftB1Part | EXG2ANTTLib.ScrollPartEnum.exRightB1Part, true);
axG2antt1.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exLeftB1Part , "<img></img>1");
axG2antt1.set_ScrollPartCaption(EXG2ANTTLib.ScrollBarEnum.exVScroll, EXG2ANTTLib.ScrollPartEnum.exRightB1Part, "<img></img>2");
axG2antt1.EndUpdate();

The following C++ sample adds up and down additional buttons to the control's vertical scroll bar :

m_g2antt.BeginUpdate();
m_g2antt.SetScrollBars( 15 /*exDisableBoth*/ );
m_g2antt.SetScrollPartVisible( 0 /*exVScroll*/, 32768  /*exLeftB1Part*/ | 32 /*exRightB1Part*/, TRUE );
m_g2antt.SetScrollPartCaption( 0 /*exVScroll*/, 32768  /*exLeftB1Part*/ , _T("<img></img>1") );
m_g2antt.SetScrollPartCaption( 0 /*exVScroll*/, 32 /*exRightB1Part*/ , _T("<img></img>2") );
m_g2antt.EndUpdate();

The following VFP sample adds up and down additional buttons to the control's vertical scroll bar :

With thisform.G2antt1
    .BeginUpdate
        .ScrollBars = 15
        .ScrollPartVisible(0, bitor(32768,32)) = .t.
        .ScrollPartCaption(0,32768) = "<img></img>1"
        .ScrollPartCaption(0, 32) = "<img></img>2"
    .EndUpdate
EndWith
*** ActiveX Control Event ***
LPARAMETERS scrollpart

wait window nowait ltrim(str(scrollpart))
 


Send comments on this topic.
1999-2017 Exontrol.COM, Software. All rights reserved.