[DUDA] en List1.AddItem

[NsTeam]

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



- Quisiera que Este De Esta Manera



QUe La Barra Este Hacia Abajo.. Y que mUestre el Ultimo Item Agregado...

El COde Q tengo es Simple:

Código [Seleccionar] Expandir

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]

[SONIC88]

Así funca loquito:

Código [Seleccionar] Expandir


Private Sub Command1_Click()

For x = 1 To 50

List1.AddItem x

Next

List1.Selected(List1.ListCount - 1) = True

End Sub


SALUDOS

[ssccaann43 ©]

Sonic time sin verte por acá. Ve si retomas VB y haces algo bueno!

[NsTeam]

Así funca loquito:

Código [Seleccionar] Expandir


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 =)

[ssccaann43 ©]

Luego de

List1.Selected(List1.ListCount - 1) = True

Enfoca en otro control. Ejm: TxtCadena.SetFocus

[NsTeam]

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 =(

[h0oke]

Será?:

Código (vb) [Seleccionar] Expandir

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...

[NsTeam]

Será?:

Código (vb) [Seleccionar] Expandir

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! 

[MCKSys Argentina]

Asi tambien funciona...

Código [Seleccionar] Expandir


Private Sub Command1_Click()

For x = 1 To 50

List1.AddItem x

Next

List1.TopIndex = List1.ListCount - 1

End Sub


Saludos!

[h0oke]

MCKSys tienes razón, esa es la manera correcta, pero es que la verdad no entiendo la finalidad de hacer tal cosa.