[VB.NET] Errore InvalidCastException in lettura Item di una ComboBox

[alphazero]

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

 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

[Misterxxx]

... è abbastanza evidente, se ti legge il Prof ti fa nera
come fai ad assegnare del testo ad una variabile Integer?
VB tenta il casting che ovviamente non riesce

[alphazero]

Grazie, effettivamente ho fatto una prova, ho sostituito le tre parole con i valori numerici 0 1 e 2 e il programma funziona, ma ho bisogno che ci sia un testo nella combobox e non dei numeri. Come posso risolvere il problema?
Ti ringrazio per la pazienza, ma come avrai capito, sono ancora alle prime armi

[Misterxxx]

Ho letto il codice, vado a memoria, CB_verniciature.Items() restituisce il valore by index
Quindi devi usare un valore numerico che rappresenta l'indice del valore nell'oggetto
Prova con:

If CB_verniciatura.SelectedItem.ToString="Semplice" Then

[alphazero]

provo domani che sta sera sono un po'stanca, grazie