FUNCAO ISNUMERIC
Bom dia pessoal,
To precisando de uma ajuda. Utilizo a função isnumeric para validar se uma caixa de texto tem o endereço IP digitado.
Esta funciona se as opções regionais (painel de controle) estiver definido com Portugues (brasil).
O problema ocorre quando altero para Ingles o . (ponto) do endereço deixar de ser reconhecido e comeca a dar erro.
Tentei resolver utilizando o ASCII porem nao consegui colocar esta função dentro de keyascii do vb.
Alguma ideia? Só preciso que seja reconhecido o ponto em ambos padroes de idioma.
Obrigado,
GUNS
To precisando de uma ajuda. Utilizo a função isnumeric para validar se uma caixa de texto tem o endereço IP digitado.
Esta funciona se as opções regionais (painel de controle) estiver definido com Portugues (brasil).
O problema ocorre quando altero para Ingles o . (ponto) do endereço deixar de ser reconhecido e comeca a dar erro.
Tentei resolver utilizando o ASCII porem nao consegui colocar esta função dentro de keyascii do vb.
Alguma ideia? Só preciso que seja reconhecido o ponto em ambos padroes de idioma.
Obrigado,
GUNS
Outra informação que esqueci de dizer é que não posso colocar dentro do evento Private Sub Text1_KeyPress(KeyAscii As Integer).
if ISNUMERIC(REPLACE(text1.txt, [Ô].[Ô], [Ô][Ô])) THEN
Obrigado pelo retorno.
Consegui resolver utilizando a função abaixo:
Private Sub Command1_Click()
Dim a As Variant
a = [Ô]181D59[Ô]
For i = 1 To Len(a)
If Asc(Mid$(a, i, 1)) < 46 Or Asc(Mid$(a, i, 1)) > 57 Then
MsgBox [Ô]Not A Number[Ô]
Exit Sub
End If
Next i
MsgBox [Ô]Yes It Is A Number[Ô]
End Sub
Consegui resolver utilizando a função abaixo:
Private Sub Command1_Click()
Dim a As Variant
a = [Ô]181D59[Ô]
For i = 1 To Len(a)
If Asc(Mid$(a, i, 1)) < 46 Or Asc(Mid$(a, i, 1)) > 57 Then
MsgBox [Ô]Not A Number[Ô]
Exit Sub
End If
Next i
MsgBox [Ô]Yes It Is A Number[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas