Dieser Code schrieb ermöglicht diese Deklarationen in die ListBox zu gehen, aber leider, wenn es ausgeführt wird, zeigt es nur die Kontonummer und nichts anderes. Ich versuche herauszufinden, was ich falsch gemacht habe, kann es aber nicht herausfinden.Erstellen eines Display-Codes für einen Geldautomaten
Dim Loan As Decimal
Dim Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited As String
If OneAccount.LoanTaken Then
Loan = OneAccount.CustomerLoan
Account_Number = TextBox1.Text
CustomerName = TextBox2.Text
OpeningBalance = Val(TextBox3.Text)
CurrentBalance = Val(TextBox3.Text) - Val(TextBox5.Text)
Label8.Text = CurrentBalance
If CheckBox1.Checked = True Then
Loan_Taken = "Yes"
Else
Loan_Taken = "No"
End If
Amount_of_Loan = Format(Loan, "Currency")
Amount_Deposited = Label8.Text
Amount_Deposited = Amount_Deposited
Amount_Deposited = Format(Amount_Deposited, "Currency")
ListBox2.Items.Add(String.Format(Account_Number, CustomerName, OpeningBalance, CurrentBalance, Loan_Taken, Amount_of_Loan, Amount_Deposited))
End If
https://ericlippert.com/2014/03/05/how-to-debug-small-programs/ – Jens