Ver Mensaje Individual
  #3 (permalink)  
Antiguo 10/01/2003, 14:26
Lynx
 
Fecha de Ingreso: julio-2002
Mensajes: 209
Antigüedad: 21 años, 10 meses
Puntos: 0
Haber si te puedo ser de ayuda...

Tienes un combobox, bueno a este para mi ejemplo lo nombrare cboEnlace.

Private Sub Form_OnLoad()
cboEnlace.Clear
cboEnlace.AddItem "Seleccione", 0
cboEnlace.AddItem "Mi enlace 1", 1
cboEnlace.AddItem "Mi enlace 2", 2
cboEnlace.ListIndex = 0
End SUb

Private Sub cboEnlace_Change()
Dim iOpcion as Integer
iOpcion = cboEnlace.ListIndex
If iOpcion > 0 Then
Select Case iOpcion
Case 1:
'Enlace a Mi enlace 1
Case 2:
'Enlace a Mi enlace 2
End Select
End If
End Sub