
10/01/2003, 14:26
|
| | Fecha de Ingreso: julio-2002
Mensajes: 209
Antigüedad: 22 años, 8 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 |