Visual Basic Forum

treY.de · Newbie Anmeldedatum: 07.05.2008 Beiträge: 8

Hey Leute...

Habe bisher folgenden Code:

Visual Basic: [code]Imports System
Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim pc As System.Diagnostics.Process
For Each pc In System.Diagnostics.Process.GetProcesses()
ListBox1.Items.Add(pc.ProcessName)
Next

Dim csvFile As FileStream
Dim oWriter As StreamWriter
Dim ExportName As String = "Ausgabefile.txt"
Dim ImportZeilen As Decimal
Dim W As Decimal

ImportZeilen = ListBox1.Items.Count

csvFile = New FileStream(ExportName, FileMode.OpenOrCreate, FileAccess.Write)

oWriter = New StreamWriter(csvFile)

For W = 0 To ImportZeilen
oWriter.WriteLine(ListBox1.Items(W))
Next

oWriter.Close()
oWriter = Nothing
csvFile = Nothing
End Sub
End Class[/code]

In der Zeile: "oWriter.WriteLine(ListBox1.Items(W))" gibt er den folgenden Fehler aus: InvalidArgument=Value mit dem Wert 42 ist für index ungültig. Parametername: index

Wo ist das Problem?^^
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Auf ein Element in der Listbox greifst du so zu
MsgBox(ListBox1.Items.Item(Index))

Also du hast ein .item vergessen;)

treY.de · Newbie Anmeldedatum: 07.05.2008 Beiträge: 8

Nein der Fehler ist...Count ergibt 42, aber die listbox fängt bei 0 an, also -1 xD Wink

Ach ja, wenn einer zb. nen neuen pc hat und da nur xp drauf hat, kann der das Programm dann eg aufmachen?
_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Achso, das wäre dann Listbox1.items.count -1, da die Anzahl nicht nullbasierend ist, der Index der Items aber schon, deswegen der Fehler