hjælp til kodning i VB 2008

Her kan du få hjælp og stille spørgsmål til andre programmeringssprog!
Besvar
kewin
Begynder
Indlæg:1
Tilmeldt:26. mar 2015, 20:21
hjælp til kodning i VB 2008

Indlæg af kewin » 26. mar 2015, 20:28

hey jeg står og er ved at lave et program som er lidt ligesom den her http://www.daekberegner.dk/daektabel/ hvor den kommer op med forskellig størelser alt efter hvad du vælger men kan ikke helt for den til at fungere
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 

Besvar