para yuval chapter2
Hola , acabo de mirar la listbox (estoy en visual basic 6.0) no tiene propiedad text, además la comprobacion que pones( la de si esta vacio) la pones en los dos botones? ¿como harías en el boton arriba para saber si estas arriba del todo y en el de abajo viceversa?
Nota: he probado a poner ".list" en vez de ".text".
Gracias por todo al final te voy a tener que indemnizar.
Nota: he probado a poner ".list" en vez de ".text".
Gracias por todo al final te voy a tener que indemnizar.
hola!!!
Yo tb trabajo en VB6
Si esiste pero solo en tiempo de ejecucion, es la propiedad que nos devuelve el que esta marcado"azul" en tiempo de ejecucion:
PRUEBA esto de todas formas:
Para bajar:
a = List1.ListIndex
List1.ListIndex = (a + 1)
Para subir:
a = List1.ListIndex
List1.ListIndex = (a - 1)
Para saber si esta en el primero:
if list1.listindex=0 then
msgbox("principio")
else
.....
end if
Para saber si esta en el primero:
if list1.listindex=(list1.listcount-1) then
msgbox("ultimo")
else
.....
end if
La comprobacion la pondria donde quieras puede ser en cada boton si tiene datos le dejas que se mueva sino le sacas un mensaje.
SUERTE!!!!
Yo tb trabajo en VB6
Si esiste pero solo en tiempo de ejecucion, es la propiedad que nos devuelve el que esta marcado"azul" en tiempo de ejecucion:
PRUEBA esto de todas formas:
Para bajar:
a = List1.ListIndex
List1.ListIndex = (a + 1)
Para subir:
a = List1.ListIndex
List1.ListIndex = (a - 1)
Para saber si esta en el primero:
if list1.listindex=0 then
msgbox("principio")
else
.....
end if
Para saber si esta en el primero:
if list1.listindex=(list1.listcount-1) then
msgbox("ultimo")
else
.....
end if
La comprobacion la pondria donde quieras puede ser en cada boton si tiene datos le dejas que se mueva sino le sacas un mensaje.
SUERTE!!!!