Banalan problem, ali gledam i gledam i gledam.
Dakle tip_vodica je jedan combobox, a naprezanje drugi. Kada se u tip_vodica odabere prvi izbor, u naprezanje comboboxu se ponudi 5 daN i varijabli napr se pridruži vrijednost 5. Kada se u tip_vodiča odabere drugi izbor, u naprezanje comboboxu se ponude dvije odluke i ovisno o odabranoj varijabli napr se pridružuje vrijednost 4 ili 8.
Problem je što mi varijabla napr uvijek bude jednaka nuli.
Public napr As Double
Private Sub Tip_vodica_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tip_vodica.SelectedIndexChanged
If Tip_vodica.SelectedIndex = 0 Then
naprezanje.Items.Clear()
naprezanje.Items.Add("5 daN/mm2")
If naprezanje.SelectedIndex = 0 Then
napr = 5
End If
End If
If Tip_vodica.SelectedIndex = 1 Then
naprezanje.Items.Clear()
naprezanje.Items.Add("4 daN/mm2")
naprezanje.Items.Add("8 daN/mm2")
If naprezanje.SelectedIndex = 0 Then
napr = 4
ElseIf naprezanje.SelectedIndex = 1 Then
napr = 8
End If
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Izracun.Click
MessageBox.Show(napr)
End Sub
