ENCAIXAR EM MASCARA

VILANOVA 07/12/2013 16:19:14
#431889
Boa tarde senhores, estou com um probleminha aqui, vejam se podem me ajudar, tenho uma máscara para um plano de contas contabil exemplo.. @.@.@@.@@@ entao preciso encaixar os numeros nessa mascara.. exemplo.. se eu tiver o numero inteiro 43, entao ficaria 4.3, se eu tiver o numero 4526 , entao... 4.5.26, e assim por diante, ou seja, ele ler a mascara da esquerda para a direita e encaixar esses numeros inteiros, de acordo com a mascara, alguma forma de eu fazer isso rapido? abaixo um exemplo de como devera ficar com a mascara completa..

1
1.1
1.1.11
1.1.11.111

Desde ja agradeço a atençao.
GANDA.NICK 07/12/2013 16:35:51
#431892
Olá,

use uma masked textbox (microsoft masked edit control)

na propriedade mask coloque:
#.#.##.###

no evento GotFocus coloque:
Me.MaskEdBox1.SelStart = 0
VILANOVA 07/12/2013 17:18:28
#431893
não posso não, esse numero inteiro que estou a encaixar na estrutura não é digitado, é calculado.
MARCELO.TREZE 07/12/2013 17:31:40
#431896 Resposta escolhida
colega cria a mascara unica

@.@.@@.@@@

le a quantidade da caracteres e pega o mid desta mascara, exemplo

calculo = 1123
MsgBox Format(CStr(calculo), Mid([Ô]@.@.@@.@@@[Ô], 1, Len(CStr(calculo))))


coloque a quantidade de números que quiser em calculo, lógico respeitando o máximo de 7 caracteres
VILANOVA 07/12/2013 19:57:56
#431900
Pequena correçao..
calculo = 1123
estrutura = [Ô]@.@.@@.@@@[Ô]
MsgBox Format(CStr(calculo), Mid(estrutura , 1, Len(CStr(estrutura))))

Obrigado mais uma vez marcelo.
Tópico encerrado , respostas não são mais permitidas
Voltar