Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Einlesen ListBoxen(0)
Autor: Geo
Datum: 05.04.03 07:38
Hallo alle im Forum Ich komme nicht weiter mit dem LisBoxen. Eine Zeile zu Splitten und anzeigen geht. Aber die anderen Zeilen zu Splitten und anzeigen ( untereinander) bekomme ich nicht hin. Kann mir jemand Helfen. Danke Geo List1(0) List1(1) List1(2) List1(3) List1(4) 1.) Text | Text | Text | Text | Text = Ok 2.) Text | Text | Text | Text | Text = nicht Ok Option Explicit Private myArray() As String Form1 Private Sub List2_DblClick() Dim a As Long Dim sInput As String Dim iCounter As Integer ReDim myArray(4) Form2.List1(0).Clear Form2.List1(1).Clear Form2.List1(2).Clear Form2.List1(3).Clear Form2.List1(4).Clear a = FreeFile sInput = Text1.Text & ".txt" Open sInput For Input As #a Input #a, Nr Input #a, Nam Input #a, Strasse Input #a, Ort Input #a, Telefon Input #a, Anfahrt Input #a, Bemerkung Input #a, melden Input #a, Größe Input #a, Erste Line Input #a, sInput Form2.Text8.Text = Nr Form2.Text1.Text = Nam Form2.Text2.Text = Strasse Form2.Text3.Text = Ort Form2.Text4.Text = Telefon Form2.Text5.Text = Anfahrt Form2.Text14.Text = Bemerkung Form2.Text6.Text = melden Form2.Text7.Text = Größe Form2.Text17.Text = Erste Close #a myArray = Split(sInput, "|") For iCounter = LBound(myArray) To UBound(myArray) Form2.List1(iCounter).AddItem myArray(iCounter) Next Form2.Visible = True End Sub

Einlesen ListBoxen(0)	354	Geo	05.04.03 07:38
Re: Einlesen ListBoxen(0)	218	stefan220273	05.04.03 08:46
Re: Einlesen ListBoxen(0)	230	Geo	05.04.03 09:13
Re: Einlesen ListBoxen(0)	224	stefan220273	05.04.03 10:22
Re: Einlesen ListBoxen(0)	219	Geo	05.04.03 10:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen