General information
Category:
Forms & Form designer
>Could I see how you implemented horizontal and vertical scroll bars?
>
>thanks,
>
>ray humphrys
Try this generic class code:
DEFINE CLASS MSFORMS2_SCROLLBAR AS OLECONTROL
* use of Microsoft Forms 2.0 Scrollbar, in FM20.dll (RegSrv32 first!)
OleClass = "Forms.ScrollBar.1"
Width = xx
Height = xx
Min = SCROLL_LOW
Max = SCROLL_HIGH
SmallChange = SMALL_CHANGE
LargeChange = LARGE_CHANGE
* vertical
Orientation = 0 && or 1 horizontal
PROCEDURE Change
* OLE event
* ---- do something
ENDPROC
PROCEDURE Scroll
* OLE event
* ---- do something
ENDPROC
PROCEDURE Init
WITH THIS
* set to minimum value
.Object.Value = .Min
ENDWITH
ENDPROC
PROCEDURE MoveToHome
* user proc
WITH THIS
.Object.Value = .Min
ENDWITH
ENDPROC
PROCEDURE MoveToEnd
* user proc
WITH THIS
.Object.Value = .Max
ENDWITH
ENDPROC
... etc etc
ENDDEFINE
John Burton
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only