SOMENTE LETRAS EM UMA STRING

KIKO.WIZZ 17/09/2010 08:47:46
#353192 Resposta escolhida

Eu usaria uma função como esta:

Function Str_Replace(vText)
vText = Replace(vText, 0, [Ô][Ô])
vText = Replace(vText, 1, [Ô][Ô])
vText = Replace(vText, 2, [Ô][Ô])
vText = Replace(vText, 3, [Ô][Ô])
vText = Replace(vText, 4, [Ô][Ô])
vText = Replace(vText, 5, [Ô][Ô])
vText = Replace(vText, 6, [Ô][Ô])
vText = Replace(vText, 7, [Ô][Ô])
vText = Replace(vText, 8, [Ô][Ô])
vText = Replace(vText, 9, [Ô][Ô])
Str_Replace = vText
End Function

Para chamar o Evento:

Private Sub Command1_Click()
Text1 = Str_Replace(Text1)
End Sub

FEDERHEN 17/09/2010 15:23:31
#353240

[ô]esta sub recebe somente o alfabeto e espaço em branco

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If InStr([Ô]ABCDEFGHIJKLMNOPQRSTUVWXYZÇ [Ô], UCase(Chr(KeyAscii))) = 0 Then
KeyAscii = 0
End If
End If
End Sub

DRHOUSE 17/09/2010 23:18:15
#353279

Obrigado KIKO_WIZZ, deu certinho.