Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ScrollContainer
Message
From
24/12/2015 17:44:03
 
 
To
17/12/2015 06:09:42
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01629050
Message ID:
01629286
Views:
98
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform