Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textbox
Autor: m(oo)nwalker
Datum: 02.08.02 12:34
Hallo Hagrid! Ich würde vorschlagen, dass du ein Steuerelementfeld erstellst, da dann die Anzahl der Textboxen beliebig erweitert werden kann, ohne den Code zu verändern. Du müsstest zunächst alle Strings "zusammenkleben". Also dim strMasterstring as String dim TB as TextBox For Each TB in Text strMasterstring = strMasterstring & TB.Text TB.Text = "" next Dann muss die ganze Sache wieder in 35-Zeichen lange Einzelstrings aufgeteilt und in die Textboxen verteilt werden: dim intAnzahl as Integer dim intRest as Integer dim I as Integer intAnzahl = len(strMasterstring) 35 intRest = len(strMasterstring) mod 35 For I = 0 to intAnzahl - 1 Text(i).Text = mid$(strMasterstring, i * 35 + 1, 35) Next I if intRest > 0 then Text(i+1).Text = mid$(strMasterstring, i * 35 + 1) m(oo)nwalker

Textbox	50	hagrid	31.07.02 10:44
Re: Textbox	73	m(oo)nwalker	02.08.02 12:34

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