Easy £lî†ë Text!

I've had a lot of people ask me how to create "Elite" text or "Funky" looking text, so here it is. The coding is extremely simple and it's commented. No votes unless this really helps you or something!

Original Author: SeeD

Inputs

Do this:
1) Start up a new project in VB.
2) Add a command button and a Text Box.
3) Thats all! Insert the below code into the command buttons "Click" event.

Code

Private Sub Command1_Click() Text1.Tag = "" 'clears tag each click For i = 1 To Len(Text1) strnew = Mid(Text1, i, 1) If strnew = "a" Then strnew = "ã" 'converts each letter If strnew = "A" Then strnew = "Ä" 'you can edit these If strnew = "b" Then strnew = "b" If strnew = "B" Then strnew = "ß" If strnew = "c" Then strnew = "ç" If strnew = "C" Then strnew = "Ç" If strnew = "d" Then strnew = "ð" If strnew = "D" Then strnew = "Ð" If strnew = "e" Then strnew = "ë" If strnew = "E" Then strnew = "£" If strnew = "f" Then strnew = "ƒ" If strnew = "F" Then strnew = "F" If strnew = "g" Then strnew = "g" If strnew = "G" Then strnew = "G" If strnew = "h" Then strnew = "h" If strnew = "H" Then strnew = "H" If strnew = "i" Then strnew = "ï" If strnew = "I" Then strnew = "Î" If strnew = "j" Then strnew = "J" If strnew = "J" Then strnew = "¿" If strnew = "k" Then strnew = "l‹" If strnew = "K" Then strnew = "<" If strnew = "l" Then strnew = "|" If strnew = "L" Then strnew = "(_" If strnew = "m" Then strnew = "m" If strnew = "M" Then strnew = "/V" If strnew = "n" Then strnew = "ñ" If strnew = "N" Then strnew = "Ñ" If strnew = "o" Then strnew = "ø" If strnew = "O" Then strnew = "Õ" If strnew = "p" Then strnew = "Þ" If strnew = "P" Then strnew = "þ" If strnew = "q" Then strnew = "q" If strnew = "Q" Then strnew = "Ø" If strnew = "r" Then strnew = "R" If strnew = "R" Then strnew = "r" If strnew = "s" Then strnew = "š" If strnew = "S" Then strnew = "Š" If strnew = "t" Then strnew = "†" If strnew = "T" Then strnew = "t" If strnew = "u" Then strnew = "ú" If strnew = "U" Then strnew = "Ü" If strnew = "v" Then strnew = "V" If strnew = "V" Then strnew = "/" If strnew = "w" Then strnew = "vv" If strnew = "W" Then strnew = "VV " If strnew = "x" Then strnew = "X" If strnew = "X" Then strnew = "><" If strnew = "y" Then strnew = "ÿ" If strnew = "Y" Then strnew = "¥" If strnew = "z" Then strnew = "Z" If strnew = "Z" Then strnew = "z" 'add new character one at a time: Text1.Tag = Text1.Tag + strnew Next i Text1.Text = Text1.Tag End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 90 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.