Ciao a tutti,
Devo creare una combobox con all'interno degli Items e assegnare un valore ad ognuno di essi, ed ogni volta che ne seleziono uno il valore del risultato cambia in base alle somme date dai vari elementi nelle combobox.Il codice è questo:
codice:
Public Class Form 3
Dim Item1 as integer = 1
Dim item2 As Integer = 1
Dim result As Integer = 0
Dim proga As String
Dim grafica3d As String
Public Enum combolist
ciao = 1
End Enum
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
proga = ComboBox1.Items.Add(combolist.ciao)
If ComboBox1.SelectedIndex = proga Then
MsgBox("Funziona?")
End If
end sub
''' il pulsante che controlla il risultato
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If result = 1 Then
TextBox1.Text = "orrendo"
End If
If result = 2 Then
TextBox1.Text = "discreto"
End If
If result = 3 Then
TextBox1.Text = "carino"
End If
End Sub
End class
sono ore che mi scervello per questo problema banale...
EDIT: SCUSATE HO RISOLTO!! bastava spostare il codice nella formload del MsgBox nel campo della combobox!