no meu Conversor

[fetish 3]

Bom minha duvida é o seguinte, eu criei um programa que converte palavras em outras, exemplo: eu digito "A", ai ele converte para "B", mais ele só converte se eu digitar "A", se eu digitar "A" e mais algo na frente ele nao converte alguem pode me ajuda arruma isso?

 

Código:

 

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		
		If TextBox1.Text = "A" Or TextBox1.Text = "a" Then
			TextBox1.Text = "B"
		ElseIf TextBox1.Text = "A" Then
		End If
	End Sub

[scorpio 7]

Usa a função Replace

<var> = Replace("Seu texto Aqui","A","B")

'retorna "Seu texto Bqui"

Vai trocar TODAs as ocorrencias de 'A' por 'B'

 

Entendeu?

 

Vê se funciona ai, porque o Replace eu peguei do VB6 e você ta usando algum VB .Net.... mas acho que funciona.

[fetish 3]

Deu erro '>' expected

[scorpio 7]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		MsgBox(Replace(TextBox1.Text, "a", "b"))
	End Sub

Testei no VB2008, não deu erro nenhum.

 

Posta o código.