Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)

[TuT] textstyler

Hallo,
Ich wollte ein TuT machen zu einem Textstyler.

Was man dazu braucht:
- Visual Basic Express Edition
- etwas Ahnung von Visual Basic

Es ist eigentlich ganz einfach und simpel, wie man einen Textstyler erstellt.
hab den Code ja schon da

^^

Wir benötigen:
2 Textboxen

Mehr nicht

Und dann doppeltklick auf die Textbox 1 und das Einfügen

Code:

Dim str As String = Me.TextBox1.Text.Replace("A", "A").Replace("B", "B").Replace("C", "C").Replace("D", "D").Replace("E", "E").Replace("F", "F").Replace("G",  "G").Replace("H", "H").Replace("I", "I").Replace("J", "J").Replace("K", "K").Replace("L", "L").Replace("M", "M").Replace("N", "N").Replace("O", "O").Replace("P",  "P").Replace("Q", "Q").Replace("R", "R").Replace("S", "S").Replace("T", "T").Replace("U", "U").Replace("V", "V").Replace("W", "W").Replace("X",  "X").Replace("Y", "Y").Replace("Z", "Z").Replace("a", "α").Replace("b", "в").Replace("c", "¢").Replace("d", "∂").Replace("e", "є").Replace("f", "ƒ").Replace("g",  "g").Replace("h", "н").Replace("i", "ι").Replace("j", "j").Replace("k", "к").Replace("l", "ℓ").Replace("m", "м").Replace("n", "η").Replace("o", "σ").Replace("p",  "ρ").Replace("q", "q").Replace("r", "я").Replace("s", "ѕ").Replace("t", "т").Replace("u", "υ").Replace("v", "ν").Replace("w", "ω").Replace("x", "χ").Replace("y",  "y").Replace("z", "z")
Me.TextBox2.Text = str

Ihr könnt jeweils den zweiten Buchstaben änder so ungefähr

aus:

Code:

("A", "A")

wird:

Code:

("A", "4")

Mfg,
Killa x3