COMO INSERIR NUMERO CPF FORMATADO..???

USUARIO.EXCLUIDOS 09/01/2005 18:09:53
#59612
Ola, sou mais um iniciante na linguagem d programacao VB e estou estudando a mesma com grande vontade d aprender!
Estava eu em meu pc tentando bolar algum programinha na cabeca p aprender programar em vb ae pensei em fazer tipo... uma ficha pequena d cadastro d um funcionario por exemplo, ae veio na cabeca a ideia d colocar tipo... um txt q onde vai inserir o CPF do funcionario soh q dai lembrei como fazer com q o numero saia formatado tipo xx.xxx.xxx.xx-xx tipo assim... alguem poderia me dar alguma ajuda...????

Agradeco desde ja...!!!
um abraco!
FELIPEA 09/01/2005 18:19:34
#59615
Resposta escolhida
Use esse codigo do MaskEdBox no Form_Load

Private Sub Form_Load()
MaskEdBox1.Mask = "##.###.###.##-##"
End Sub
JACKASS 09/01/2005 18:36:59
#59622
A merlhor ferramenta a ser usada no seu caso seria o Maskedbox fazendo como nosso amigo Felipea te explicou se vc não souber como faz para ativar ele vou te explicar:

1º Aperte a tecla Ctrl+t ou no menu Project entre em components

2º Vai abrir uma tele de componentes ai vc vai em Microsoft Masked Edit Control

3º Ativa ela e aperte a tecla Aplicar e depois de Ok

4º Só ultilizar a maskedbox vai estar na sua toolbox no lado esquerdo da tela

qualquer dúvidas só falar abraços
USUARIO.EXCLUIDOS 10/01/2005 00:40:04
#59707
Olá, valeu pela ajuda espero contar com essa mao sempre blz..!!

Resolvi meu problema facilmente muito obrigado mesmo...!!!!

um grande abraco..!!!!


K3|\|3|_P@nIc

CLEVERTON 10/01/2005 00:44:13
#59709
ou pelo textbox

no evento keypress

if len(txtcpf) = 3 then sendkeys ("{.}")
if len(txtcpf) = 7 then sendkeys ("{.}")
if len(txtcpf) = 11 then sendkeys ("{-}")

tem esta forma

já tentou tambem o seltart do textbox

if txtcpf.selstart = 2 then if sendkeys ("{.}")

USUARIO.EXCLUIDOS 10/01/2005 01:33:28
#59715
Valeu tbm pela ajuda obrigado...!!! um grande abraco...!!!

k3r|\|3|_P@nIc
RO.DRIGOSG 10/01/2005 12:28:14
#59766
Resposta válida???

Encerre o tópico!
Tópico encerrado , respostas não são mais permitidas