Crystydica
Administrator
Data inscrierii: 20/Mai/2008
Mesaje: 200
|
 Trimis: 21/05/2008 14:59 Titlul subiectului: [VB]ASCII Name Maker |
 |
|
1.) 2 butoane ( copy & clear ) Copy cu numele "cmdCopy" si la clear "cmdClear"
2.) 2 textboxes ( unu "txtNick" si al doilea "txtAscii" )
IN BUTONU "COPY" PUNE URMATORUL COd:
Private Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText txtAscii.Text
End Sub
IN TEXTU "txtNick" PUNE URMATORUL COD:
Private Sub txtNick_Change()
txtAscii.Text = txtNick.Text
txtAscii.Text = Replace(txtAscii.Text, "a", "å")
txtAscii.Text = Replace(txtAscii.Text, "A", "Å")
txtAscii.Text = Replace(txtAscii.Text, "b", "b")
txtAscii.Text = Replace(txtAscii.Text, "B", "?")
txtAscii.Text = Replace(txtAscii.Text, "c", "¢")
txtAscii.Text = Replace(txtAscii.Text, "C", "C")
txtAscii.Text = Replace(txtAscii.Text, "d", "d")
txtAscii.Text = Replace(txtAscii.Text, "D", "Ð")
txtAscii.Text = Replace(txtAscii.Text, "e", "s64;")
txtAscii.Text = Replace(txtAscii.Text, "E", "Ê")
txtAscii.Text = Replace(txtAscii.Text, "f", "(2;")
txtAscii.Text = Replace(txtAscii.Text, "F", "F")
txtAscii.Text = Replace(txtAscii.Text, "g", "g")
txtAscii.Text = Replace(txtAscii.Text, "G", "G")
txtAscii.Text = Replace(txtAscii.Text, "h", "h")
txtAscii.Text = Replace(txtAscii.Text, "H", "H")
txtAscii.Text = Replace(txtAscii.Text, "i", "?")
txtAscii.Text = Replace(txtAscii.Text, "I", "r5;")
txtAscii.Text = Replace(txtAscii.Text, "l", "l")
txtAscii.Text = Replace(txtAscii.Text, "L", "£")
txtAscii.Text = Replace(txtAscii.Text, "m", "m")
txtAscii.Text = Replace(txtAscii.Text, "M", "M")
txtAscii.Text = Replace(txtAscii.Text, "n", "ñ")
txtAscii.Text = Replace(txtAscii.Text, "N", "Ñ")
txtAscii.Text = Replace(txtAscii.Text, "o", "ø")
txtAscii.Text = Replace(txtAscii.Text, "O", "Ø")
txtAscii.Text = Replace(txtAscii.Text, "p", "Þ")
txtAscii.Text = Replace(txtAscii.Text, "P", "¶")
txtAscii.Text = Replace(txtAscii.Text, "q", "q")
txtAscii.Text = Replace(txtAscii.Text, "Q", "Q")
txtAscii.Text = Replace(txtAscii.Text, "r", "®")
txtAscii.Text = Replace(txtAscii.Text, "R", "R")
txtAscii.Text = Replace(txtAscii.Text, "s", "$")
txtAscii.Text = Replace(txtAscii.Text, "S", "?")
txtAscii.Text = Replace(txtAscii.Text, "t", "r4;")
txtAscii.Text = Replace(txtAscii.Text, "T", "T")
txtAscii.Text = Replace(txtAscii.Text, "u", "µ")
txtAscii.Text = Replace(txtAscii.Text, "U", "?")
txtAscii.Text = Replace(txtAscii.Text, "v", "v")
txtAscii.Text = Replace(txtAscii.Text, "V", "V")
txtAscii.Text = Replace(txtAscii.Text, "z", "z")
txtAscii.Text = Replace(txtAscii.Text, "Z", "Z")
txtAscii.Text = Replace(txtAscii.Text, "x", "?")
txtAscii.Text = Replace(txtAscii.Text, "X", "X")
txtAscii.Text = Replace(txtAscii.Text, "w", "w")
txtAscii.Text = Replace(txtAscii.Text, "W", "W")
txtAscii.Text = Replace(txtAscii.Text, "y", "?")
txtAscii.Text = Replace(txtAscii.Text, "Y", "Ÿ")
txtAscii.Text = Replace(txtAscii.Text, "j", "j")
txtAscii.Text = Replace(txtAscii.Text, "J", "J")
txtAscii.Text = Replace(txtAscii.Text, "k", "k")
txtAscii.Text = Replace(txtAscii.Text, "K", "K")
txtAscii.Text = Replace(txtAscii.Text, "<171>", "»")
End Sub
Si IN BUTONU "cmdClear" puneti Urmatorul Cod:
Private Sub cmdClear_Click()
txtAscii.Text = ""
txtNick.Text = ""
End Sub
SI asta e tot !! |
|
FAQ
Cautare
Membri
Grupuri
Inregistrare
Profil
Mesaje private
Autentificare
