Use the ScrollButtonClick event to notify your application that the user clicks a button in the control's scrollbar. The ScrollButtonClick event is fired when the user clicks and releases the mouse over an enabled part of the scroll bar. Use the ScrollBars property to specify the visible scrollbars in the control. Use the ScrollPartVisible property to add or remove buttons/parts in the control's scrollbar. Use the ScrollPartEnable property to specify enable or disable parts in the control's scrollbar. Use the ScrolPartCaption property to specify the caption of the scroll's part. 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. Use the Background property to change the visual appearance for any part in the control's scroll bar.

The following VB sample displays the identifier of the scroll's button being clicked:

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

Private Sub G2antt1_ScrollButtonClick(ByVal ScrollPart As EXG2ANTTLibCtl.ScrollPartEnum)
    MsgBox (ScrollPart)
End Sub

The following VB.NET sample displays the identifier of the scroll's button being clicked:

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

Private Sub AxG2antt1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ScrollButtonClickEvent) Handles AxG2antt1.ScrollButtonClick
        MessageBox.Show( e.scrollPart.ToString())
End Sub

The following C# sample displays the identifier of the scroll's button being clicked:

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();

private void axG2antt1_ScrollButtonClick(object sender, AxEXG2ANTTLib._IG2anttEvents_ScrollButtonClickEvent e)
{
    MessageBox.Show(e.scrollPart.ToString());
}

The following C++ sample displays the identifier of the scroll's button being clicked:

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();

void OnScrollButtonClickG2antt1(long ScrollPart) 
{
	CString strFormat;
	strFormat.Format( _T("%i"), ScrollPart );
	MessageBox( strFormat );
}

The following VFP sample displays the identifier of the scroll's button being clicked:

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-2008 Exontrol Inc, Software. All rights reserved.