Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scrolling Panels
Message
De
18/05/1998 14:42:28
Raymond Humphrys
Michigan Department of Community Health
Bath, Michigan, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00095399
Message ID:
00100171
Vues:
60
>>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 ...
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform