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

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Verificar se UF digitada está correta
Postada em 13/11/2000 por Adriano      Clique aqui para enviar email para o autor  adriano.faria@bol.com.br
Private Sub txtUF_LostFocus()
   Dim lEstados As String
   If txtUF > "" Then
      txtUF = UCase$(txtUF)
      lEstados = "AC-AL-AM-AP-BA-CE-DF-ES-GO-MA-MG-MS-MT-PA-PB-PE-"
      lEstados = lEstados & "PI-PR-RJ-RN-RO-RR-RS-SC-SE-SP-TO"
      If InStr(1, lEstados, txtUF) = 0 Then
         MsgBox "Estado inválido", vbExclamation, UCase(txtUF)
         txtUF.SetFocus
      End If
   End If
End Sub

 


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