Programación General > Visual Basic 6.0 e inferiores

 Select Case Y Optionbutton

(1/3) > >>

abelsql3000:
Como puedo usar el select case para evaluar que boton se encuentra activado de una serie de botones, por favor mandeme un codigo ejemplo que lo necesito.
Deseo tambien usar un Select case que me evalue que elemento de la lista he seleccionado.
Plz deseo ejemplos , atte, Abel

F_Tanori:
Que extraña forma de solicitar ayuda :P

bien supongo que esto te es suficiente...



--- Código: Text ---Option ExplicitPrivate Sub Option1_Click(Index As Integer)  Select Case Index     Case 0        'Proceso     Case 1        'Proceso     Case 2        'Proceso     Case 3        'Proceso  End SelectEnd Sub  
Listo ahi esta el ejemplo con codigo  :comp:  





Saludos

abelsql3000:
Muchas gracia por la respuesta, disculpa si no he sido cortes con mi solicitud. Te quiero  complicar un poco las cosas. Tu sugerencia en le codigo es buena solo que la evaluacion se dara cada vez que haces click en los botones, pero yo deseo evaluar a los botones desde un COMMAND, mas no a la hora de hacer click sobre los botones, espero me comprendas. El objetivo es evaluar el boton que se activo desde un boton de comando, esto lo he realizado en VFP sin problemas mas en VB ya las cosas se complicaron
Aqui esta el codigo en VFP
Cmdevaluar      Click
Do case
case thisform.optgrupo.value=1
        proceso1
case thisform.optgrupo.value=2
       proceso2
       .
       .
       .
       .
otherwise
      proceso n
endcase
Ahora como lo logro con VB, Gracias, Abel

ArKaNtOs:
yo lo haría de la siguiente manera, crearía una matriz de controles de option button, y en base a eso haría algo así:

<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->Dim flag As Byte
Private Sub Command1_Click()
For i = 0 To Option1.Count - 1
    If Option1(i) = True Then flag = i: Exit For
Next
Select Case flag
    Case 0:
        MsgBox "soy " & flag
    Case 1:
        MsgBox "soy " & flag
    Case 2:
        MsgBox "soy " & flag
End Select
End Sub<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

abelsql3000:
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)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente