VB-[Tutorial]Criando um Gerador de Nick

['Lenneth 486]

Adicione no seu **** um TextBox e um botão

 

No código do evento OnClick do botão adicione;

TextBox1.Text = TextBox1.Text.Replace("a", "a")

TextBox1.Text = TextBox1.Text.Replace("b", "b")

TextBox1.Text = TextBox1.Text.Replace("c", "c")

TextBox1.Text = TextBox1.Text.Replace("d", "d")

TextBox1.Text = TextBox1.Text.Replace("e", "e")

TextBox1.Text = TextBox1.Text.Replace("f", "f")

TextBox1.Text = TextBox1.Text.Replace("g", "g")

TextBox1.Text = TextBox1.Text.Replace("h", "h")

TextBox1.Text = TextBox1.Text.Replace("i", "i")

TextBox1.Text = TextBox1.Text.Replace("j", "j")

TextBox1.Text = TextBox1.Text.Replace("k", "k")

TextBox1.Text = TextBox1.Text.Replace("l", "l")

TextBox1.Text = TextBox1.Text.Replace("m", "m")

TextBox1.Text = TextBox1.Text.Replace("n", "n")

TextBox1.Text = TextBox1.Text.Replace("o", "o")

TextBox1.Text = TextBox1.Text.Replace("p", "p")

TextBox1.Text = TextBox1.Text.Replace("q", "q")

TextBox1.Text = TextBox1.Text.Replace("r", "r")

TextBox1.Text = TextBox1.Text.Replace("s", "s")

TextBox1.Text = TextBox1.Text.Replace("t", "t")

TextBox1.Text = TextBox1.Text.Replace("u", "u")

TextBox1.Text = TextBox1.Text.Replace("v", "v")

TextBox1.Text = TextBox1.Text.Replace("x", "x")

TextBox1.Text = TextBox1.Text.Replace("w", "w")

TextBox1.Text = TextBox1.Text.Replace("y", "y")

TextBox1.Text = TextBox1.Text.Replace("z", "z")

 

Caso você deseja adicionar letras maiúsculas é só da continuidade ao codigo.

Exemplo: Termina na letra z

Em baixo pode adicionar

TextBox1.Text = TextBox1.Text.Replace("Z", "Z")

 

e assim sucessivamente.

 

Créditos:

 

Touch.

[ronaldo.massa 2]

Problem?

 

[mikhail 99]

Tópico ressuscitado.

 

Fechado