Ciao a tutti, sono una studentessa delle superiori e ho alcune difficoltà su un esercizio su una combobox e vi scrivo per capire dove sbaglio.
L'esercizio consiste nel calcolare un preventivo inserendo in una textbox la lunghezza della ringhiera, selezionare il materiale in tre radiobutton e in una combobox il tipo di verniciatura.
Il codice mi da il seguente errore nella combobox:
errore1.jpg
Vi allego la parte iniziale del codice
codice:
Dim l As Integer
l = TB_lunghezza.Text
Dim materiale, vernice As Double
Dim ris As String
ris = ""
RB_alluminio.Checked = False
RB_ferro.Checked = False
RB_pvc.Checked = False
If RB_ferro.Checked = True Then
materiale = 15 * l
ris &= " materiale: ferro" & vbCrLf
ElseIf RB_alluminio.Checked = True Then
materiale = 22.5 * l
ris &= "materiale: alluminio" & vbCrLf
Else RB_pvc.Checked = True
materiale = 17.99 * l
ris &= "materiale: PVC" & vbCrLf
End If
If CB_verniciatura.Items("Semplice").checked = True Then
vernice = l * 2.5
ris &= " verniciatura: semplice" & vbCrLf
ElseIf CB_verniciatura.Items("Metallizzata").checked = True Then
vernice = l * 3.99
ris &= " verniciatura: metallizzata" & vbCrLf
Else
vernice = 0
ris &= " verniciatura: nessuna" & vbCrLf
End If
Grazie per l'aiuto, a presto