Scrivi così:2° domanda.
su un form ho 7 optionbutton alla pressione su un optionbutton voglio che il carattere diventi bold, però non riesco ad ottenere l'inverso.
Mi spiego meglio il codice sotto,
Private Sub Opt1_Click(Index As Integer)
If Opt1(Index) = True Then
Opt1(Index).FontBold = True
End If
End Sub
quando selezione un opt il carattere diventa bold quando passo ad un'altro opt dovrebbe diventare normale l'opt precedente e diventare bold quello selezionato.
l'evento click viene richiamato solo se l'option button che clikki ha value=False, quindi per farlo tornare normale devi prima cliccare su un altro option che diventerà a sua volta bold. e così via per gli altri.codice:Private Sub Opt1_Click(Index As Integer) If Opt1(Index) = True Then Opt1(Index).FontBold = Not Opt1(Index).FontBold End If End Sub
non so se era questo quello che volevi, cmq vedi se ti va bene.
![]()