Raga ho 3 optionbutton che aspettano(in una di loro)il segno di spunta , se questo non viene dato succede quanto segue :
Private Sub cmdConferma_Click()
Dim TC As Variant
If Option1(0).Value = True Or Option1(1).Value = True Or Option1(2).Value = True Then
GoTo 30
Else
MsgBox "Manca il tipo di alimentazione", vbInformation + vbOKOnly, "A L I M E N T A Z I O N E"
20
TC = InputBox("Digita 1 per GAS , 2 per elettriche , 3 Ibridei", "A L I M E N T A Z I O N E", " ")
If TC = 1 Then
Option1(0).Value = True
ElseIf TC = 2 Then
Option1(1).Value = True
ElseIf TC = 3 Then
Option1(2).Value = True
Else: GoTo 20
End If
30
End If
'
La mia 1^ domanda è : mi sembra troppo macchinoso questo codice , come posso fare a programmarlo meglio ?
2^ domanda : come posso fare a tirare via dalla Msgbox l'iconcina in alto a sx (quella che permette l'uscita dalla msgBox) ?
|