Hey,
Ich habe ein kleines Programm geschrieben das erkennen soll ob die Ware vorrätig ist.
Wenn ich aber auf den Button klicke zeigt er wenn ich im Lager 10x die Ware habe und ich diese 5x haben möchte trotzdem die MessageBox an.
auch wenn ich < zu > ändere.
Listbox6 = Name der Ware
Listbox8 = Menge die ich haben möchte
Listbox9 = Menge im Lager
Ich habe ein kleines Programm geschrieben das erkennen soll ob die Ware vorrätig ist.
Wenn ich aber auf den Button klicke zeigt er wenn ich im Lager 10x die Ware habe und ich diese 5x haben möchte trotzdem die MessageBox an.
auch wenn ich < zu > ändere.
Listbox6 = Name der Ware
Listbox8 = Menge die ich haben möchte
Listbox9 = Menge im Lager
VB.NET-Quellcode
- Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
- ListBox2.SelectedItem = ListBox6.SelectedItem
- ListBox8.SelectedIndex = ListBox6.SelectedIndex
- ' MsgBox(ListBox8.SelectedItem & ListBox9.SelectedItem)
- For i = 0 To ListBox6.Items.Count - 1
- If ListBox8.SelectedItem < ListBox9.SelectedItem Then
- Select Case MessageBox.Show("Die gewünschte Menge ist leider nicht verfügbar." & vbCrLf & "Verfügbar: " & ListBox9.SelectedItem & vbCrLf & "Deine Auswahl: " & ListBox8.SelectedItem & vbCrLf & vbCrLf & "Trotzdem zum Warenkorb hinzufügen?", "", MessageBoxButtons.YesNo)
- Case Windows.Forms.DialogResult.Yes
- ListBox8.Items(ListBox8.SelectedIndex) = ListBox9.SelectedItem
- Case Windows.Forms.DialogResult.No
- ListBox6.Items.RemoveAt(ListBox6.SelectedIndex)
- ListBox8.Items.RemoveAt(ListBox8.SelectedIndex)
- End Select
- Else
- End If
- Next
- End Sub