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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  TextBox (FORMATANDO)
João Paulo
ARCOS
MG - BRASIL
Postada em 06/12/2005 14:00 hs            
Queria saber se tem como eu formatar meu txtCódigo.text para que sempre que eu adicionar um novo registro aparecer da seguinte forma.
Ex.:
 
000001
000002
000003
...
999999
 
sempre completando com zeros a esquerda até o nº 999999.
     
Glaucia Helena
SÃO PAULO
SP - BRASIL
Postada em 06/12/2005 14:20 hs            
Use assim :
 
Text1.Text = Format(Text1.Text, "000000")
 
At
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 06/12/2005 14:23 hs            
Usa um Mask no lugar de um Text, e na propriedade Format dele poe "000000"
Se for usar o text mesmo, faz via codigo, assim: Format(Text1, "000000")
 
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Joseph
SÃO PAULO
SP - BRASIL
Postada em 06/12/2005 14:41 hs            
Olá, João Paulo!
 
Vc utiliza a função 'Format()' do VB para formatar um sem-número de coisas.
 
Por exemplo: 
 
Format(Trim(txtCodigo.Text), "000000")
 
daria a formatação do conteúdo do TextBox do jeito que precisa.
 
Caso esteja trabalhando com outros tipos de dados, converta-os antes de
formatá-los. 
 
O exemplo a seguir usa o tipo de dado 'Long'.
 
Dim lCod As Long
lCod = CDbl(Trim(txtCodigo.Text))
MsgBox Format(lCod, "000000")
 
Agora, para gravar no bd com esta formatação, deverá usar o tipo 'texto'.
 
 
Joseph
Técnico em Informática/Programador
São Paulo/SP
 
 
     
João Paulo
ARCOS
MG - BRASIL
ENUNCIADA !
Postada em 06/12/2005 19:10 hs            
MUITO OBRIGADO PELA AJUDA DE TODOS, CONSEGUI RESOLVER MEU PROBLEMA.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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