USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Teste para Caracteres Alpha (IsAlpha)
Postada em 14/9/2001 por Luciana      Clique aqui para enviar email para o autor  luciana@louisiana.com
Aplica-se ao VB4, VB5, VB6.

Apesar do VB ter a Funcao IsNumeric, nao ha uma funcao IsAlpha.
Use essa rotina quando voce precisar determinar quando um caracter ou string eh alfabetica (A-Z ou a-z). No Case adicione outras condicoes para caracteres que voce quer permitir.


Public Function IsAlpha(By Val MyString as String) as Boolean
   Dim i as Long
   ' em caso se sucesso
   IsAlpha = True
   'Check
   For i = 1 to Len(MyString)
     Select Case Asc(Mid$(MyString, i,1))
        Case vbKeyA to vbKeyZ
        Case (vbKeyA + 32) to (vbKeyZ + 32)
        Case vbKeySpace
        Case Else
           IsAlpha = False
           Exit For
     End Select
    Next i
End Function
    
ou
==

Public Function IsAlpha(ByVal MyString as String) as Boolean
   If not MyString Like "*[!A-Za-z]*" _
     then IsAlpha = true
End Function

Adicione os caracteres que voce quer permitir - space, virgula, ponto - entre os braceletes.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página