Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mehrere Textboxen öffnen
Autor: D.S.
Datum: 19.01.03 15:18
Hallo, In mehrere Textboxen sollen Texte aus jeweils dazugehörenden Dateien einlesen werden. Gibt es eine Möglichkeit, die Bezeichnungen Text1.Text, Text2.Text usw in Variablen auszudrücken, um die IF- Elseif -Passage zu vermeiden ? Siehe nachfolgenden Code: Private Sub open() Dim x As Integer x = 1 Do Until x = 5 nfile = "name" + LTrim(Str(x)) + ".txt" '''' name1.txt, name2.txt usw. Open nfile For Input As #1 Do Until EOF(1) Line Input #1, temp$ If x = 1 Then Text1.Text = temp$ ElseIf x = 2 Then Text2.Text = temp$ ElseIf x = 3 Then Text3.Text = temp$ ElseIf x = 4 Then Text4.Text = temp$ ElseIf x = 5 Then Text5.Text = temp$ End If Loop Close #1 x = x + 1 Loop End Sub

Mehrere Textboxen öffnen	69	D.S.	19.01.03 15:18
???	224	unbekannt	19.01.03 15:48

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