>>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
You couldn't be more specific, especially with your procedures? I'm not sure what you mean with "Ole event"? or with the 3 procedures.
ray
Some days it's not worth chewing through the leather straps ...