Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textumwandler
Autor: xmexPC2
Datum: 28.06.03 19:13
Hier mein Code: Private Sub Command1_Click() Text2.Enabled = True A$ = "ABCDEFG" B$ = "HJKLMNO" TXT = Text1.Text NeuText = Text2.Text For i = 1 To Len(TXT) T = Mid(TXT, i, 1) Fund = False For j = 1 To Len(A$) If Mid(A, i, 1) = T Then NeuText = NeuText + Mid(B, i, 1) Fund = True Exit For End If Next If Fund = False Then NeuText = NeuText + T Text2.Text = "" Text2.Text = NeuText End If Next Aber wenn ich auf style klicke kommt der umgewandelte Text und der Text der in Text2.Text drin steht.

Textumwandler	148	xmexPC2	28.06.03 18:45
Re: Textumwandler	538	dbayer	28.06.03 18:53
Re: Textumwandler	82	xmexPC2	28.06.03 19:13
Re: Textumwandler	447	dbayer	28.06.03 19:24
Re: Textumwandler	66	xmexPC2	28.06.03 19:31
Re: Textumwandler	490	dbayer	28.06.03 19:54
Re: Textumwandler	72	Paulo	29.06.03 10:05

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