Scrollbar "win style" using a pen: down-down

You can use a ScrollView instead of ListView. It will allow you to set the ScrollPosition (with two buttons for example).

Thank you, Erel

vertical seekbar

mmmm now I miss a vertical seekbar... :sign0148:


I don't need a "beautiful graphic" seek bar like the horizontal one, but simply a "working" vertical seekbar.

what is the best way to do it? a simple panel, with a "clicked-here" event?

I did it using a panel as "scrollbar" and a small panel, inside, that I use as the "currenti position" marker

thank you
:sign0188:

hi .. how did you do? do you have some sample code?

vangogh,
Using a ListView you could simply use ListView's FastScroll Property:

e.g.

lv.FastScrollEnabled = True

(Assuming your ListView is decalred as lv)

Douglas

I put a thin panel on the right of my listview, with a small panel that is like a "marker"


- pnlScrollBarProd = the panel
- pnlScrollBarProdPosAttuale = a "marker" that indicate the current position
- grdProdotti = the listview


Sub pnlScrollBarProd_Touch (Action As Int, X As Float, Y As Float)
Dim PosPercento As Int ' % relative position


PosPercento=(pnlScrollBarProdPosAttuale.Top * 100 / (pnlScrollBarProd.Height-pnlScrollBarProdPosAttuale.Height))

pnlScrollBarProdPosAttuale.Top=Y-pnlScrollBarProdPosAttuale.Height/2
If pnlScrollBarProdPosAttuale.Top<0 Then pnlScrollBarProdPosAttuale.Top=0 ' to the top
If pnlScrollBarProdPosAttuale.Top+pnlScrollBarProdPosAttuale.Height>pnlScrollBarProd.Height Then pnlScrollBarProdPosAttuale.Top=pnlScrollBarProd.Height-pnlScrollBarProdPosAttuale.Height ' to the bottom

grdProdotti.SetSelection (PosPercento * (grdProdotti.Size-9) / 100) ' moves the current listview's position

' note: -9 when you have 9 items visible in you screen at the same time...

End Sub