DETECTANDO LETRAS EM TEXTBOX

DANLEONHART 08/01/2011 14:20:14
#361613
Gente, duvida simples mas me pegou...
como faço para detectar se em uma TextBox há determinados caractéres ?

Tipo assim:
Se na TextBox contiver [Ô]a[Ô], [Ô]b[Ô] ou [Ô]c[Ô] acione um alerta.

Fiz assim, mas tou apanhando para colocar mais de uma [Ô]letra[Ô]

Private Sub cmd3_Click()
If InStr(txt3.Text, [Ô]a[Ô]) Then
lbl3.BackColor = &HC000&
Else
lbl3.BackColor = &HFF&
End If
End Sub


Então, se na TextBox [Ô]txt3[Ô] contiver a letra [Ô]a[Ô], a Label [Ô]lbl3[Ô] fica [txt-color=#007100]Verde[/txt-color], senão fica [txt-color=#e80000]Vermelha[/txt-color].

Tentei colocar mais de uma letra assim:

Private Sub cmd3_Click()
If InStr(txt3.Text, [Ô]a[Ô] Or [Ô]b[Ô] Or [Ô]c[Ô]) Then
lbl3.BackColor = &HC000&
Else
lbl3.BackColor = &HFF&
End If
End Sub


Mas deu Erro Runtime 13...
SNNIFFER 08/01/2011 15:05:54
#361618
Ve se serve assim:


Private Sub cmd3_Click()
If InStr(txt3.Text, [Ô]a[Ô]) Or InStr(txt3.Text, [Ô]b[Ô]) Or InStr(txt3.Text, [Ô]c[Ô]) Then
lbl3.BackColor = &HC000&
Else
lbl3.BackColor = &HFF&
End If
End Sub
DANLEONHART 08/01/2011 16:06:16
#361624
@ SNNIFFER

Funcionar funciona...
mas dependendo do que quero verificar o script deve ficar enorme !

Valeu pela dica
MARCELO.TREZE 08/01/2011 17:22:32
#361630
Você deseja fazer uma varredura em um arquivo texto e ao se encontrar uma determinada palavra, o label fica vermelho ou verde, certo?

lembrando que mesmo que seja encontrada esta palavra você terá dificuldade para saber onde ela se encontra. se o texto for extenso.

o ideal seria vc colocar este texto em um richtextbox e verificar e destacar.
FININHO 08/01/2011 23:46:14
#361651 Resposta escolhida
Private Sub cmd3_Click()

Dim vLetra As String
Dim encontrado As Boolean

For i = 1 To Len(Txt3)
vLetra = Mid(Txt3, i, 1)
Select Case vLetra
Case [Ô]a[Ô], [Ô]b[Ô], [Ô]c[Ô], [Ô]d[Ô], [Ô]e[Ô], [Ô]f[Ô]
encontrado = True
Exit For
End Select
Next i
If encontrado = True Then
Lbl3.BackColor = &HC000&
Else
Lbl3.BackColor = &HFF&
End If
End Sub
DANLEONHART 09/01/2011 00:30:41
#361655
@ FININHO

Valeu cara ! funcionou 100%

Olha, sinceramente a condição [Ô]For[Ô] não é meu forte...
eu até estava adaptando com o [Ô]Mid[Ô] também mas iria ficar bem complexo
Tenho que praticar mais o [Ô]For[Ô]

Valeu FININHO !
Obrigado aos demais também !
Tópico encerrado , respostas não são mais permitidas
Voltar