CODEque es el uso basico del select Case, lo que ibas a hacer en cada caso ya era de voz.
Option Explicit
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
'Proceso
Case 1
'Proceso
Case 2
'Proceso
Case 3
'Proceso
End Select
End Sub
Quisiera compartir un interezante codigo que me andaron y es lo que andaba buscando:
SELECT CASE True
CASE opt(0).Value
call mirutina(params...)
CASE opt(1).Value
call mirutina(params...)
CASE opt(2).Value
call mirutina(params...)
CASE opt(3).Value
call mirutina(params...)
CASE opt(4).Value
call mirutina(params...)
CASE Else
call mirutina(params...)
END CASE
Este de aqui es muy eficiente, (Y)
CODEla unica diferencia es que abelsql3000 evalua un valor booleano y Francisco evalua un valor entero
Option Explicit
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
'Proceso
Case 1
'Proceso
Case 2
'Proceso
Case 3
'Proceso
End Select
End Sub
El select se finaliza con END SELECT
no END CASE tongue.gif
No es lo mismo es parecido tongue.gif
Saludos