her er min koder og kan man lave det anderledes med at den visser resultaterne i en stor boks i stedet for at have en masse labels?
Kode: Vælg alt
Public Class dæk & fælge beregner
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Beregner_knp.Click
If Brede_box.Text.selctedindex = 0 Then
ElseIf profil_box.SelectedIndex = 0 Then
ElseIf Flg_str_box.SelectedIndex = 0 Then
resultat_tkt.Text = "14"
End If
End Sub
Private Sub dækberegner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Daek_tkt.Click
End Sub
Private Sub Brede_box_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brede_box.SelectedIndexChanged
End Sub
Private Sub profil_box_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles profil_box.SelectedIndexChanged
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Brede_tkt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brede_tkt.Click
End Sub
Private Sub profil_tkt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles profil_tkt.Click
End Sub
Private Sub Flg_Str_tkt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Flg_Str_tkt.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resultat_tkt.Click
End Sub
End Class