Private Sub FacileToolStrip_Click(sender As Object, e As EventArgs) Handles FacileToolStrip.Click
Call Diff_Checked(sender.text)
If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then Return
Livello_Diff = Difficoltà.Facile
End Sub
Private Sub MediaToolStrip_Click(sender As Object, e As EventArgs) Handles MediaToolStrip.Click
Call Diff_Checked(sender.text)
If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then Return
Livello_Diff = Difficoltà.Media
End Sub
Private Sub DifficileToolStrip_Click(sender As Object, e As EventArgs) Handles DifficileToolStrip.Click
Call Diff_Checked(sender.text)
If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then Return
Livello_Diff = Difficoltà.Difficile
End Sub
Private Sub MoltoDifficileToolStrip_Click(sender As Object, e As EventArgs) Handles MoltoDifficileToolStrip.Click
Call Diff_Checked(sender.text)
If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then Return
Livello_Diff = Difficoltà.Molto_Difficile
End Sub
Public Sub Diff_Checked(ByVal nomdiff As String)
If Stato_eventi = Stato.Avviato Or Stato_eventi = Stato.Rivedi Then
FacileToolStrip.Checked = False
MediaToolStrip.Checked = False
DifficileToolStrip.Checked = False
MoltoDifficileToolStrip.Checked = False
Return
End If
If Not FacileToolStrip.Text.Trim = nomdiff.Trim Then FacileToolStrip.Checked = False
If Not MediaToolStrip.Text.Trim = nomdiff.Trim Then MediaToolStrip.Checked = False
If Not DifficileToolStrip.Text.Trim = nomdiff.Trim Then DifficileToolStrip.Checked = False
If Not MoltoDifficileToolStrip.Text.Trim = nomdiff.Trim Then MoltoDifficileToolStrip.Checked = False
'imposta le difficoltà
Call Gestione_Difficolta_Livello()
End Sub
:k: