Die While Schleife ist dort unnötig weil du extra noch ein Feld deklarieren musst.
Msgbox ist veraltet, benutz Messagebox.show
Gibt eine extra Function um den Text eines Listbox items rauszukriegen .GetItemText()
Benutz dafür nur die For each oder For Schleife;
For each:
Quote:
For Each element In ListBox1.Items
MessageBox.Show(ListBox1.GetItemText(element))
Next
|
For:
Quote:
For elements = 0 To ListBox1.Items.Count - 1
MessageBox.Show(ListBox1.GetItemText(ListBox1.Item s.Item(elements)))
Next
|
Ausserdem könntest du über die IDE etwas sagen z.B. über Intellisense, den Objectkatalog, BreakPoints und Einzelschritte & was es sonst noch so gibt.
Sind halt Sachen die einem vieles erleichtern.
Könntest dann auch direkt mit Objektorientierter Programmierung anfangen
Noch was:
Option strict on.
Bei der If-Schleife:
Du kannst ein Object nicht auf Nothing überprüfen, verwende dafür den is-Operator:
Quote:
If Not ListBox1.SelectedItem Is Nothing Then
MessageBox.Show(ListBox1.GetItemText(ListBox1.Sele ctedItem))
End If
|
Du hättest auch noch erwähnen können, dass man wenn man auf booleschen Wert prüft
(z.B. If Button1.enabled = True then ...)
Kann man auch das hier schreiben:
Quote:
Standardmäßig ist das dann True,
wenn man auf False prüfen möchte:
Quote:
If not Button1.enabled Then
|