Hallo!
ich bin komplett neu hier und lerne auch erst seit einigen Wochen das Programmieren mit VB in der Schule.
Zur Zeit erstellen wir einen kleinen Verkaufspreis-Kalkulator, indem das Ergebnis verschiedener Rechnungen in einer Listbox ausgegeben werden müssen und mein Lehrer hat sich meinen Code angeschaut und möchte jetzt noch gerne als Zusatz, dass ich den Inhalt der Listbox rechtsbündig formatiere. Allerdings nicht den gesamten Inhalt, sonder mehr oder weniger nur die zweite Spalte.
Hier ist der Code, den ich bisher habe:
"Bar-VKP", "+Skonto ... %", "Ziel-VKP", "+ Rabatt ...%" und "Listen-VKP" sollen also linksbündig bleiben, wohin gegen das Ergebnis dahinter rechtsbündig an € ausgerichtet sein soll.
Ich habe keine Ahnung, wie es gehen soll. Kommentar meines Lehrers war nur, dass ich das bestimmt bis zur nächsten Stunde hinkriege Jetzt hab ich natürlich auch den Ehrgeiz, zu verstehen wie es geht. Leider hat weder Recherche im Buch, noch im Internet was gebracht. Das kann auch daran liegen, dass ich durch fehlendes Fachwissen mit falschem Suchtext gesucht habe. Auf jeden Fall fand ich nur Themen, bei denen als Antwort gesagt wurde, dass das mit Listbox nicht funktionieren würde. Ich muss aber explizit Listbox verwenden.
Ich wäre über jede Hilfe dankbar!
ich bin komplett neu hier und lerne auch erst seit einigen Wochen das Programmieren mit VB in der Schule.
Zur Zeit erstellen wir einen kleinen Verkaufspreis-Kalkulator, indem das Ergebnis verschiedener Rechnungen in einer Listbox ausgegeben werden müssen und mein Lehrer hat sich meinen Code angeschaut und möchte jetzt noch gerne als Zusatz, dass ich den Inhalt der Listbox rechtsbündig formatiere. Allerdings nicht den gesamten Inhalt, sonder mehr oder weniger nur die zweite Spalte.
Hier ist der Code, den ich bisher habe:
Quellcode
- Option Strict On
- Option Explicit On
- Public Class Form1
- Dim vBarVKP As Double
- Dim vSkontosatz As Double
- Dim vRabattsatz As Double
- Dim vListenVKP As Double
- Dim vZielVKP As Double
- Dim vSkontosatzAusgabe As Double
- Dim vRabattsatzAusgabe As Double
- Private Sub btnKalkulation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKalkulation.Click
- If txtBarVKP.Text = "" Or txtRabattsatz.Text = "" Or txtSkontosatz.Text = "" Then
- MessageBox.Show("Bitte füllen sie alle Felder aus!")
- Else
- 'Eingabe
- vBarVKP = Convert.ToDouble(txtBarVKP.Text)
- vSkontosatz = Convert.ToDouble(txtSkontosatz.Text)
- vRabattsatz = Convert.ToDouble(txtRabattsatz.Text)
- 'Verarbeitung
- vSkontosatzAusgabe = (vBarVKP / (100 - vSkontosatz)) * vSkontosatz
- ' ? Math.Round(vSkontosatzAusgabe, 2)
- vZielVKP = vBarVKP + vSkontosatzAusgabe
- ' ? Math.Round(vZielVKP, 2)
- vRabattsatzAusgabe = (vZielVKP / (100 - vRabattsatz)) * vRabattsatz
- ' ? Math.Round(vRabattsatzAusgabe, 2)
- vListenVKP = vZielVKP + vRabattsatzAusgabe
- 'Ausgabe
- lbxAusgabe.Items.Add("Bar-VKP" & ControlChars.Tab & ControlChars.Tab & vBarVKP.ToString("c"))
- lbxAusgabe.Items.Add("+ Skonto " & vSkontosatz & "%" & ControlChars.Tab & vSkontosatzAusgabe.ToString("c"))
- lbxAusgabe.Items.Add("Ziel-VKP" & ControlChars.Tab & ControlChars.Tab & vZielVKP.ToString("c"))
- lbxAusgabe.Items.Add("+ Rabatt " & vRabattsatz & "%" & ControlChars.Tab & vRabattsatzAusgabe.ToString("c"))
- lbxAusgabe.Items.Add("Listen-VKP" & ControlChars.Tab & vListenVKP.ToString("c"))
- lblAusgabeListenVKP.Text = vListenVKP.ToString("c")
- End If
- End Sub
- Private Sub btnBeenden_Click(sender As System.Object, e As System.EventArgs) Handles btnBeenden.Click
- Me.Close()
- End Sub
- Private Sub txtRabattsatz_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtRabattsatz.TextChanged
- AcceptButton = btnKalkulation
- End Sub
- End Class
"Bar-VKP", "+Skonto ... %", "Ziel-VKP", "+ Rabatt ...%" und "Listen-VKP" sollen also linksbündig bleiben, wohin gegen das Ergebnis dahinter rechtsbündig an € ausgerichtet sein soll.
Ich habe keine Ahnung, wie es gehen soll. Kommentar meines Lehrers war nur, dass ich das bestimmt bis zur nächsten Stunde hinkriege Jetzt hab ich natürlich auch den Ehrgeiz, zu verstehen wie es geht. Leider hat weder Recherche im Buch, noch im Internet was gebracht. Das kann auch daran liegen, dass ich durch fehlendes Fachwissen mit falschem Suchtext gesucht habe. Auf jeden Fall fand ich nur Themen, bei denen als Antwort gesagt wurde, dass das mit Listbox nicht funktionieren würde. Ich muss aber explizit Listbox verwenden.
Ich wäre über jede Hilfe dankbar!