Type | Description | |||
ScrollBar as ScrollBarEnum | A ScrollBar expression that indicates the scrollbar where the part is visible or hidden. | |||
Part as ScrollPartEnum | A ScrollPartEnum expression that specifies the parts of the scroll bar being visible | |||
Boolean | A Boolean expression that specifies whether the scrollbar's part is visible or hidden. |
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 Edit1 .ScrollPartVisible(exVScroll, exLeftB1Part Or exRightB1Part) = True .ScrollPartCaption(exVScroll, exLeftB1Part) = "1" .ScrollPartCaption(exVScroll, exRightB1Part) = "2" End With
The following VB.NET sample adds up and down additional buttons to the control's vertical scroll bar :
With AxEdit1 .set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exLeftB1Part Or EXEDITLib.ScrollPartEnum.exRightB1Part, True) .set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exLeftB1Part, "1") .set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exRightB1Part, "2") End With
The following C# sample adds up and down additional buttons to the control's vertical scroll bar :
axEdit1.set_ScrollPartVisible(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exLeftB1Part | EXEDITLib.ScrollPartEnum.exRightB1Part, true); axEdit1.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exLeftB1Part , "1"); axEdit1.set_ScrollPartCaption(EXEDITLib.ScrollBarEnum.exVScroll, EXEDITLib.ScrollPartEnum.exRightB1Part, "2");
The following C++ sample adds up and down additional buttons to the control's vertical scroll bar :
m_edit.SetScrollPartVisible( 0 /*exVScroll*/, 32768 /*exLeftB1Part*/ | 32 /*exRightB1Part*/, TRUE ); m_edit.SetScrollPartCaption( 0 /*exVScroll*/, 32768 /*exLeftB1Part*/ , _T("1") ); m_edit.SetScrollPartCaption( 0 /*exVScroll*/, 32 /*exRightB1Part*/ , _T("2") );
The following VFP sample adds up and down additional buttons to the control's vertical scroll bar :
With thisform.Edit1 .ScrollPartVisible(0, bitor(32768,32)) = .t. .ScrollPartCaption(0,32768) = "1" .ScrollPartCaption(0, 32) = "2" EndWith
*** ActiveX Control Event *** LPARAMETERS scrollpart wait window nowait ltrim(str(scrollpart))