Filehost.ro - gazduire fisiere
§Þîrî'][' §qÚåÐ FoRuM 2oo7
Numele forumului cat si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI 		Nou pe simpatie:
barbyDana la Simpatie.ro
Femeie
25 ani
Bacau
cauta Barbat
28 - 46 ani
§Þîrî'][' §qÚåÐ FoRuM 2oo7InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
§Þîrî'][' §qÚåÐ FoRuM 2oo7 / Visual Basic /

Ascii Name Maker

 Pagini: 1  
#1
Lord_DaZuRa
Administrator
Postari: 29
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", "a"
txtAscii.Text = Replace(txtAscii.Text, "A", "A"
txtAscii.Text = Replace(txtAscii.Text, "b", "b"
txtAscii.Text = Replace(txtAscii.Text, "B", "ß"
txtAscii.Text = Replace(txtAscii.Text, "c", "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", "€"
txtAscii.Text = Replace(txtAscii.Text, "E", "E"
txtAscii.Text = Replace(txtAscii.Text, "f", "f"
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", "‡"
txtAscii.Text = Replace(txtAscii.Text, "l", "l"
txtAscii.Text = Replace(txtAscii.Text, "L", "L"
txtAscii.Text = Replace(txtAscii.Text, "m", "m"
txtAscii.Text = Replace(txtAscii.Text, "M", "M"
txtAscii.Text = Replace(txtAscii.Text, "n", "n"
txtAscii.Text = Replace(txtAscii.Text, "N", "N"
txtAscii.Text = Replace(txtAscii.Text, "o", "o"
txtAscii.Text = Replace(txtAscii.Text, "O", "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", "†"
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", "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, "<", "«"
txtAscii.Text = Replace(txtAscii.Text, ">", "»"

End Sub



Si IN BUTONU "cmdClear" puneti Urmatorul Cod:


Private Sub cmdClear_Click()
txtAscii.Text = ""
txtNick.Text = ""
End Sub
 
   
Pagini: 1  
Mergi la