Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ScrollContainer
Message
De
24/12/2015 17:44:03
 
 
À
17/12/2015 06:09:42
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01629050
Message ID:
01629286
Vues:
99
Hi Koen
in the scrolling container properties there is hScrollSmallChange,vScrollSmallChane,Scrollby(x,y)...
there is 3 pageframes with SBC scrolling container in each one.
Add 2 buttons "up" and "down" to the example form given by Alex...frmsbcsample.scx
and bind with these codes:

1*up button
do case
case thisform.pageframe1.activePage=1
thisform.pageframe1.page1.SBC.hScrollSmallChange=1
thisform.pageframe1.page1.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page1.sbc.scrollby(20,0)
inkey(0.2)
endfor

case thisform.pageframe1.activePage=2
thisform.pageframe1.page2.SBC.hScrollSmallChange=1
thisform.pageframe1.page2.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page2.sbc.scrollby(0,-20)
inkey(0.2)
endfor

case thisform.pageframe1.activePage=3
thisform.pageframe1.page3.SBC.hScrollSmallChange=1
thisform.pageframe1.page3.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page3.sbc.scrollby(0,20)
inkey(0.1)
endfor
for i=1 to 10
thisform.pageframe1.page3.sbc.scrollby(20,0)
inkey(0.2)
endfor
endcase


2*down button

do case
case thisform.pageframe1.activePage=1
thisform.pageframe1.page1.SBC.hScrollSmallChange=1
thisform.pageframe1.page1.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page1.sbc.scrollby(-20,0)
inkey(0.1)
endfor

case thisform.pageframe1.activePage=2
thisform.pageframe1.page2.SBC.hScrollSmallChange=1
thisform.pageframe1.page2.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page2.sbc.scrollby(0,20)
inkey(0.2)
endfor

case thisform.pageframe1.activePage=3
thisform.pageframe1.page3.SBC.hScrollSmallChange=1
thisform.pageframe1.page3.SBC.vScrollSmallChange=1
for i=1 to 10
thisform.pageframe1.page3.sbc.scrollby(0,-20)
inke(0.1)
endfor
for i=1 to 10
thisform.pageframe1.page3.sbc.scrollby(-20,0)
inke(0.1)
endfor
endcase

*can adapt the scrollBy (x,y) values to your taste.
*can replace inkey() with sleep api (its better precision)

Regards
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform