** memakai FlatScrollBar, mztolo 2006
TEXT
Asumsi saya data/item di form anda itu tdk muat di dlm 1 layar form....yg lebarnya = lebar _screen.
Jadi diperlukan form yg luas sekali melebihi luas area _screen/layar utama....shg anda ingin di program utama ada scrollbar.

Nah ternyata scrollbars tsb menurut help vfp itu "tdk" berlaku di _screen.

Sehingga knp kita tdk main2 aja dg "container" di form anda.... ?

Jadi ada sekelompok data/item yg anda letakkan di sebuah kontainer yg memilik "ole" scrollbar.

Nah di ole scrollbar tsb ("MSComCtl2.FlatScrollBar.2" ) anda letakkan koding spt ini :

    code: 

    ** change event 

    This.Parent.labelTandaJadi.top=11 - thisform.container1.VScroll1.Value * 25 

    this.Parent.txtTandaJadi.top=6 -thisform.container1.VScroll1.Value * 25 

    ...dst -nya sesuai item2 yg ada. 

     

    ** scroll event 

    This.Parent.labelTandaJadi.top=11 - thisform.container1.VScroll1.Value * 25 

    this.Parent.txtTandaJadi.top=6 -thisform.container1.VScroll1.Value * 25 

    ...dst -nya sesuai item2 yg ada. 


Note :
** angka 11, 6 adalah menyangkut top dari masing2 item.
** 25 ini mengatur pergerakan "smooth" masing2 item.
** container1 menyangkut nama kontainernya
** vscroll1 nama dari "ole" vertical scrollbar nya.
ENDTEXT