INSERIR UM DADO DO BANCO NA MASKEDOX

GAMISTIK 09/04/2007 09:44:24
#210779
seguinte galera...

eu tenho um dado...do tipo ip
ele esta no banco assim...
192.25.3.2
minha maskedbox esta com a mascara assim..
###.###.###.###
quando eu jogo na maskedbox
ele fica assim
192.253.2__.___
ele soh obedece corretamente se meu ip preencher todos os digitos..
tipo ...200.244.158.105 ai ele joga certinho...!!!

como concerto esse problema??

agradeço...
USUARIO.EXCLUIDOS 09/04/2007 09:57:58
#210782
crie uma função para formatar seu IP.

Tipo assim:
Public Function FormataIP(IP As String) As String
    Dim splIP As Variant
    splIP = Split(IP, ".")
    
    For i = 0 To UBound(splIP)
        FormataIP = FormataIP & String(3 - Len(splIP(i)), " ") & splIP(i) & "."
    Next
    FormataIP = Mid(FormataIP, 1, Len(FormataIP) - 1)
End Function



ai depois só colocar no mask

Mask1.text = FormataIP ("192.25.3.2")
GAMISTIK 09/04/2007 10:31:42
#210787
cara ele pega os espaços sim...mas ele naum obedece...ele junta tudo novamente...

ficando

192.253.2__.___
USUARIO.EXCLUIDOS 09/04/2007 11:17:12
#210800
Soluções alternativas então! hehe

coloca 0 onde é pra ficar sem nada... ou "_" (underline)


tenta conforme abaixo:
Public Function FormataIP(IP As String) As String
    Dim splIP As Variant
    splIP = Split(IP, ".")
    
    For i = 0 To UBound(splIP)
        FormataIP = FormataIP & String(3 - Len(splIP(i)), "0") & splIP(i) & "."
    Next
    FormataIP = Mid(FormataIP, 1, Len(FormataIP) - 1)
End Function



ou


Public Function FormataIP(IP As String) As String
    Dim splIP As Variant
    splIP = Split(IP, ".")
    
    For i = 0 To UBound(splIP)
        FormataIP = FormataIP & String(3 - Len(splIP(i)), "_") & splIP(i) & "."
    Next
    FormataIP = Mid(FormataIP, 1, Len(FormataIP) - 1)
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar