MARTA
06 de Mayo del 2004

¿COmo hago para cambiar el elemento seleccionado en un combo desde el codigo?

al
06 de Mayo del 2004

sería algo así pero en vez de con una listbox con un combo : ej; combo1.textPrivate Sub cmdarriba_Click()
a = lst1.ListIndex

If lst1.ListIndex < 1 Then
MsgBox ("principio")
Else
lst1.ListIndex = (a - 1)

End If



End Sub

Private Sub cmdabajo_Click()
a = lst1.ListIndex


If lst1.ListIndex = (lst1.ListCount - 1) Then
MsgBox ("ultimo")
Else
lst1.ListIndex = (a + 1)
End If


espero que te ayude, mira si quieres los mensajes que me mando yuval ayer donde me lo explica.

sdemingo
06 de Mayo del 2004

parece fácil y .... lo es ;-)

mira este ejemplo, necesitas un combo llamado Combo1 y un botón llamado Command1

Private Sub Command1_Click()

Dim respuesta As String

respuesta = InputBox("selecciona el índice del elemento que quieres ver", ";-)")

If IsNumeric(respuesta) Then
If CInt(respuesta) >= 0 Or CInt(respuesta) <= 4 Then
cargarCombo (CInt(respuesta))
End If
End If

End Sub

Private Sub Form_Load()

cargarCombo (0)

End Sub

Sub cargarCombo(elemento As Integer)

Me.Combo1.Clear

Me.Combo1.AddItem "1"
Me.Combo1.AddItem "2"
Me.Combo1.AddItem "3"
Me.Combo1.AddItem "4"
Me.Combo1.AddItem "5"

Me.Combo1.Text = Me.Combo1.List(elemento)

End Sub

salu2
sdemingo
http://boards.melodysoft.com/sdemingo
http://boards.melodysoft.com/capoeira-madrid