TextBox (FORMATANDO)


	Fórum
	Visual Basic

Responder

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")

Elieser Topassi

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
_____________________________________________________
"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