HOla Todos.!
Bueno tengo la siguiente Duda
estuve agregando Items a un listbox, Todo me anda bien pero tengo una
duda con la barra
Me Explico Con Imagenes...
- Ahora Lo Tengo de Esta MAnera
(http://www.mundoimg.com/imagenes/otros/200601_mundoimg_1.jpg)
- Quisiera que Este De Esta Manera
(http://www.mundoimg.com/imagenes/otros/200602_mundoimg_2.jpg)
QUe La Barra Este Hacia Abajo.. Y que mUestre el Ultimo Item Agregado...
El COde Q tengo es Simple:
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
End Sub
Bueno BUsque y Busque y no encontre...
prove con sus propiedades y no logre Hacerlo...
Talves alguno tenga alguna Idea =)
Gracias de Antemano
SAlu2[/b]
Así funca loquito:
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.Selected(List1.ListCount - 1) = True
End Sub
SALUDOS
Sonic time sin verte por acá. Ve si retomas VB y haces algo bueno!
Cita de: SONIC88 en 25 Agosto 2009, 19:35 PM
Así funca loquito:
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.Selected(List1.ListCount - 1) = True
End Sub
SALUDOS
Muchisimas Gracias...
PErO yo keria hacerlo como la ventanada del Chat del Msn
Al escribir algo y Presionar ENTER
en el Listbox se agrege Pero Sin q se Seleccione
Solo que la BArra De MUeva =)
Aver Si me expliko BIen =)
Luego de
List1.Selected(List1.ListCount - 1) = True
Enfoca en otro control. Ejm: TxtCadena.SetFocus
Cita de: ssccaann43 en 25 Agosto 2009, 22:32 PM
Luego de
List1.Selected(List1.ListCount - 1) = True
Enfoca en otro control. Ejm: TxtCadena.SetFocus
de esa forma ya lo abia provado
pero el item q se agrego en el listbox
esta seleccionado y sombreado de Azul =(
Será?:
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.Selected(List1.ListCount - 1) = True
List1.Selected(List1.ListCount - 1) = False
End Sub
No entiendo la finalidad... Pero bueno...
Cita de: dynyck en 25 Agosto 2009, 22:47 PM
Será?:
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.Selected(List1.ListCount - 1) = True
List1.Selected(List1.ListCount - 1) = False
End Sub
No entiendo la finalidad... Pero bueno...
jaja!!
si claro me olvide de eso
gracias xD!
Asi tambien funciona...
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.TopIndex = List1.ListCount - 1
End Sub
Saludos!
MCKSys tienes razón, esa es la manera correcta, pero es que la verdad no entiendo la finalidad de hacer tal cosa.
No sé si será la correcta, pero es la mas sencilla que encontré. :)
List1.ListIndex = List1.ListCount - 1
saludos
exacto solo te fijas el ultimo item y lo seleccionas asi quedara como quieres
aunk coincido con lo antes dicho. no entiendo la diferencia de estar arriba o abajo jajaj
Cita de: Tengu en 26 Agosto 2009, 01:48 AM
exacto solo te fijas el ultimo item y lo seleccionas asi quedara como quieres
aunk coincido con lo antes dicho. no entiendo la diferencia de estar arriba o abajo jajaj
como que no es util ? el que dice eso es porque nunca vio la utilidad. fijate cualquier cantidad de programas tienen esa opcion, o en un textbox tambien. por ejemplo cuando te esta llegando informacion de algun modo uno siempre quiere ver la ultima que va llegando no la primera, puede ser muy util, como dijeron ahi en un chat se ve lo ultimo ingresado no lo primero, como ven hay 3 millones de utilidades, no se para que la quiere
NsTeam, pero que es util...si lo es para algunas ocasiones. te dejaria mudo si te digo todas las utilidades que se puede usar algo asi, ya sea en listbox, textbox, grilla ...etc..
Citaraunk coincido con lo antes dicho. no entiendo la diferencia de estar arriba o abajo jajaj
Si lo dices por mi, no he dicho que no le vea utilidad. Sino que no podía apreciar la finalidad de aplicarlo en un programa que solo son 4 líneas.