Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 28 Julio 2005, 04:49 am



Título: Problemas con la Option
Publicado por: kakinets en 28 Julio 2005, 04:49 am
holass a todoss

Tengo una duda yo tengo 4Option y un boton cada Option hase una funsion distinta lo q yo quisiera sava si se puede q cuando yo presiones el boton y no tenga nigun Option selecsionado me de un Error es decir q aparezca un MsgBox


gracias

PD:lo se hacer en los text pero esto es la primera ves q los uso....


Título: Re: Problemas con la Option
Publicado por: APOKALYPSE en 28 Julio 2005, 05:26 am
pues con select case

Código:
Select Case Option1(i).Value
Case Option1(0).Value = True
sentencias
Case Option1(1).Value = True
sentencias
Case Option1(2).Value = True
sentencias
Case Option1(3).Value = True
sentencias
Case Else
MsgBox "error"
End Select

un saludo.


Título: Re: Problemas con la Option
Publicado por: Slasher-K en 28 Julio 2005, 08:44 am
Select Case no se usa así. Lo mejor es crear una matriz de controles OptionButton y luego cuando se hace click en el botón se usaría un código como el siguiente:

Código:
Private Sub CommandBtn_Click()
         Dim i%

  For i = 0 To OptionBtn.Count -1
    If OptionBtn(i).Value = True Then Exit Sub
  Next

  Call MsgBox("No hay ninguna opción seleccionada", vbCritical)
End Sub

Saludos.


Título: Re: Problemas con la Option
Publicado por: APOKALYPSE en 28 Julio 2005, 09:12 am
Edito: tienes razon Anhur me he ekivocado en el selecta case  :-[ gracias por el aviso

un saludo.