Matrice di OptionButton

[Stefanik]

Ciao.
Dovrei fare un controllo su una serie di option button.
Quando l'utente preme il pulsante OK, deve verificare quale optButton è checkato e in base a questo fare diverse operazioni.

Avendo una matrice con 3 optbutton, ho implementato questo codice:

Private Sub Command2_Click()
Select Case opt1(x).Value
 Case Is = 1
  lblSpiegazione.Caption = "opt 1"
 Case Is = 2
  lblSpiegazione.Caption = "opt 2"
 Case Is = 3
  Principale.Hide
  frmProdotti.Show
End Select

End Sub

ma praticamente funziona solo nel caso in cui viene selezionata la prima opzione.

Why?

[PapaIndia]

E si prchè il Case è riferito al valore che può assumere Option(x).Value cioè 0 o 1. Non so se mi sono spiegato un granchè bene.

saluti

[DeBe99]

dipende da quanto vale x, tu verifichi il vale della x° option button. usa le if

if opt1(0).Value=1 then 'prima option
  lblSpiegazione.Caption = "opt 1"
else if opt1(1).Value=1 then 'seconda option
  lblSpiegazione.Caption = "opt 2"
else 'terza option
  Principale.Hide
  frmProdotti.Show
end if

[GudFella]

Select Case opt1(x).Value

quanto vale la x di:
opt1(x).value ?

se non è specificato vale zero
quindi controlla solo l'elemento 0 della tua matrice di controlli

prova

for i=0 to opt1.count-1
if opt1(i).value = 0 then
...
else
...
end if
next i

[Stefanik]

Ok ho capito il perchè dell'errore.
Ho provato i codici che mi avete postato.Il codice di GudFella non funziona. Non riconosce nessuna delle opzioni.

Un'altra domanda...ma c'è un'effettiva convenienza ad utilizzare una matrice di optButton? L'avevo usato perchè pensavo che il controllo tra più opt veniva fatto solo se esse erano della stessa matrice, ma non è così.

[ladyBlu]

per sapere quale OptionButton ha cliccato l'utente puoi fare un ciclo For:

Private Sub Command2_Click()

   Dim i As Integer

   For i = 0 To opt.UBound
       if opt(i).Value = 1 Then Exit For
   Next i
   
   If i = 3 Then
         Principale.Hide
         frmProdotti.Show
     Else
         lblSpiegazione.Caption = "opt " & i
   End If

End Sub

spero sia ciò che ti serve

[Genius7115]

Non devi cercare la soluzione altrove quando è sotto gli occhi

esiste un evento Option1_Click che restituisce un parametro di quale option della matrice è stato selezionato più facile di così!!


Private Sub Option1_Click(Index as Integer)
Me.Caption = "Selezionato option " & Index + 1 (parte da 0)
End Sub.

[Stefanik]

Originariamente inviato da ladyBlu
per sapere quale OptionButton ha cliccato l'utente puoi fare un ciclo For:

Private Sub Command2_Click()

   Dim i As Integer

   For i = 0 To opt.UBound
       if opt(i).Value = 1 Then Exit For
   Next i
   
   If i = 3 Then
         Principale.Hide
         frmProdotti.Show
     Else
         lblSpiegazione.Caption = "opt " & i
   End If

End Sub

spero sia ciò che ti serve

Grazie.
A cosa serve l'opzione .UBound?

[Stefanik]

Originariamente inviato da Genius7115
Non devi cercare la soluzione altrove quando è sotto gli occhi

esiste un evento Option1_Click che restituisce un parametro di quale option della matrice è stato selezionato più facile di così!!


Private Sub Option1_Click(Index as Integer)
Me.Caption = "Selezionato option " & Index + 1 (parte da 0)
End Sub.

Non mi funziona

[ladyBlu]

Originariamente inviato da Stefanik
Grazie.
A cosa serve l'opzione .UBound?

.Ubound ti restituisce l'indice più alto dell'array.

Private Sub Option1_Click(Index as Integer) 
   Me.Caption = "Selezionato option " & Index + 1 (parte da 0) 
End Sub.

hai sostituito Option1 col nome del tuo controllo OptionButton?