Visual Basic 6.0 Control ListBox

[onepowers]

necesito una ayudita con este control que me la tiene montada. Necesito seleccionar un elemento de la listBox sin dar click con el mouse o con alguna tecla, es decir, a través del código.

El asunto es así, borro un elemento de la ListBox y de una quiero que quede seleccionado el elemento que lo precede....eso es todo.....cualquier ayuda me sería de mucha utilidad

GRACIAS

[nassiul]

Hola,

La respuesta es diferente dependiedo de si conoces o no el contenido completo del list. Supongamos que si.
le asignas el valor que tu quieras al list.
nombre_del_list.Text ="lo que tu desees"
y ahora haces un click sobre el list pero desde codigo con esto
nombre_del_list_click
esto te lleva a rutina

private sub nombre_del_list_click ()
"tienes que definir lo que tiene que hacer aqui..."
end sub

Espero te sirva SAludos.

[IngenieroJB]

necesito una ayudita con este control que me la tiene montada. Necesito seleccionar un elemento de la listBox sin dar click con el mouse o con alguna tecla, es decir, a través del código.

Código: Seleccionar todo

'Aqui el 4 representa el quinto elemento del control List (No el cuarto, ya que el control
'toma como primero elemento el Cero )
'osea
'El primer elemento es el List1.Index = 0
'El segundo es el List1.Index = 1
'etc...

'Asi que para seleccionar el quinto elemento es :
List1.ListIndex = 4

El asunto es así, borro un elemento de la ListBox y de una quiero que quede seleccionado el elemento que lo precede....eso es todo.....cualquier ayuda me sería de mucha utilidad
GRACIAS

Coloca en el formulario un control List llamado List1
Coloca dos botones de comando llamados Command1 y Command2
Agrega el siguiente codigo:

Código: Seleccionar todo

Private Sub Command1_Click()

'Aqui el 4 representa el quinto elemento del control List (No el cuarto, ya que el control
'toma como primero elemento el Cero )
'osea
'El primer elemento es el List1.Index = 0
'El segundo es el List1.Index = 1
'etc...

'Asi que para seleccionar el quinto elemento es :
List1.ListIndex = 4


End Sub

Private Sub Command2_Click()
List1.RemoveItem (7)
List1.ListIndex = 7 - 1
End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 10
    List1.AddItem "Numero " & i
Next i

End Sub

Saludos desde Colombia....