Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ScrollContainer
Message
De
25/12/2015 06:39:02
 
 
À
24/12/2015 17:44:03
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:
01629290
Vues:
88
>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

Hi Yousfi,

The problem with this approach is that if you scroll down with the buttons you cannot use the scrollbars anymore to scroll up to the top, only way to go back to the top is to use the buttons again, I dont like that UI.

Maybe I should explain what I am looking for:
On my form I add - programmaticaly - to the clientarea a (new)container. Right now, the only way to get / see this newly added container is to use the scrollbars to go down - or in your case use the buttons.
What I am after is an UI where the newly added container on the bottom will become visible after adding, without the use of the scrollbar.

Regards,

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

Click here to load this message in the networking platform