Hacer scroll en un Listbox desde otro boton

[gusgusl]

Partiendo que tengo un listbox que contiene muchos elementos y necesito desplazarme por el mismo, mi pregunta es si no quiero hacer uso de la barra lateral del Listbox para hacer scroll cual seria alguna otra manera de poder moverme arriba y abajo por los elementos.

Ejemplo apretando botones en pantalla mas grandes que pueda ir hacia abajo o arriba

LO necesito ya que es una aplicacion para una pantalla tactil a lo cual resulta poco comodo las flechitas que tiene el listbox para hacer scroll

[Neosoft Support]

Take a look at this sample pub:

http://neosoftwarecom.ipower.com/neoboo ... =10&lid=94

[virger]

Y si intentas esto? Hazle los ajustes que creas necesarios.

Code: Select all

{NeoBook 5 Objects}
NeoBookVer=5.80
ObjectType=10
Name=Ls
X=63
Y=104
W=156
H=300
Anchor=0
Text=[ls]
VarName=[dt]
VarType=0
XPTheme=Yes
ObjAction=ListBoxFindItem "Ls" "[dt]" "[ps]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15198183
FillPattern=0
Font=Arial
FontSize=14
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=3
ObjectType=5
Name=Barra
X=198
Y=105
W=20
H=300
Anchor=0
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=6
ObjectType=3
Name=BtSube
X=198
Y=105
W=20
H=20
Anchor=0
Text=-
Align=2
Key=109
ImageStyle=0
BevelWidth=0
ObjAction=math "[ps]-1" "" "[ps]"¶if "[ps]" "=" "0"¶    ListBoxSize "Ls" "[len]"¶    setvar "[ps]" "[len]"¶endif¶ListBoxGetItem "Ls" "[ps]" "[DT]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=57440
FillPattern=0
Font=Arial
FontSize=11
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=5
ObjectType=3
Name=BtBaja
X=199
Y=383
W=20
H=20
Anchor=0
Text=+
Align=2
Key=107
ImageStyle=0
BevelWidth=0
ObjAction=math "[PS]+1" "" "[ps]"¶ListBoxSize "Ls" "[len]"¶if "[ps]" ">" "[len]"¶    setvar "[ps]" "1"¶endif¶ListBoxGetItem "Ls" "[ps]" "[DT]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=57440
FillPattern=0
Font=Arial
FontSize=11
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=4