 Autor
|
Tema: [DUDA] en List1.AddItem (Leído 5,527 veces)
|
NsTeam
 Desconectado
Mensajes: 127
|
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:
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]
|
|
|
|
|
En línea
|
|
|
|
SONIC88
Desconectado
Mensajes: 100
|
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
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Sonic time sin verte por acá. Ve si retomas VB y haces algo bueno!
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
NsTeam
Desconectado
Mensajes: 127
|
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
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 =)
|
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Luego de
List1.Selected(List1.ListCount - 1) = True
Enfoca en otro control. Ejm: TxtCadena.SetFocus
|
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
NsTeam
Desconectado
Mensajes: 127
|
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 =(
|
|
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
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... |
|
|
|
|
En línea
|
|
|
|
NsTeam
Desconectado
Mensajes: 127
|
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...
si claro me olvide de eso
gracias xD!
|
|
|
|
|
En línea
|
|
|
|
|
MCKSys Argentina
|
Asi tambien funciona... Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.TopIndex = List1.ListCount - 1
End Sub
Saludos! |
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
MCKSys tienes razón, esa es la manera correcta, pero es que la verdad no entiendo la finalidad de hacer tal cosa.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
vb modificar datos list1 a archivo random txt
Programación Visual Basic
|
corlo
|
2
|
2,402
|
8 Septiembre 2015, 21:04 pm
por corlo
|
|
|
|
sumar datos list1
Programación Visual Basic
|
corlo
|
6
|
2,877
|
17 Enero 2016, 16:38 pm
por corlo
|
|
|
|
pasar informacion de list1 a list2
Programación Visual Basic
|
corlo
|
2
|
3,300
|
27 Febrero 2019, 20:27 pm
por corlo
|
|
|
|
modificar list1
Programación Visual Basic
|
corlo
|
2
|
1,852
|
9 Marzo 2020, 20:30 pm
por corlo
|
|
|
|
descontar valor en list1 de la columna 3
Programación Visual Basic
|
corlo
|
0
|
1,754
|
24 Febrero 2021, 00:42 am
por corlo
|
 |
