Visual Basic.NET - Rellenar con Ceros

 
Vista:
Imágen de perfil de Emiliano

Rellenar con Ceros

Publicado por Emiliano (1 intervención) el 03/05/2017 00:32:47
Hola que tal estoy haciendo un Sistema de almacen, y mi fuerte no es VB.Net asi que quede truncado en esto.

Esto es lo requerido por el cliente:

En el cuadro de captura de código de empleado, enlazar una función que tome el valor numérico de los datos introducidos y los convierta a string de 6 dígitos, rellenando los faltantes con ceros, y después hacer la consulta, ejemplo: Si se introduce 9100, el sistema deberá detectar 009100.

Espero me puedan ayudar, se los agredeceria mucho :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 196
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Rellenar con Ceros

Publicado por arbol (166 intervenciones) el 03/05/2017 04:49:12
saludos
en el textbox

debes checar
if texnumero.text.length=4 then

00 & textboxnumero.text

se agregaran dos ceros

if texnumero.text.length=3 then

000 & textboxnumero.text

se agregaran tres ceros

if texnumero.text.length=5 then

0 & textboxnumero.text

se agregaran un ceros

de esta forma lo resuelves

espero puedas realizarlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Diego
Val: 605
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Rellenar con Ceros

Publicado por Diego (190 intervenciones) el 03/05/2017 22:17:33
Hola Emiliano, te paso un codigo que funciona con cualquier numero.


1
2
Dim numero as long = cLng(texbox1.text) 'Conviertes a numérico la entrada de tu texbox
Dim codigo as string = format(numero, "000000") 'Le das el formato de 6 digitos rellenando con 0, tantos ceros 

Utilicé variables para que facilitar la comprensión, pero podés hacerlo directamente asi....

Msgbox (format(clng(textbox1.text), "000000"))

Espero haber sido claro.
Saludos y +Bytes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Rellenar con Ceros

Publicado por pedro mercado (1 intervención) el 04/05/2017 00:05:03
si es un textbox

textbox1.tex = textbox1.tex.padleft(6,"0")

eso lo rellena con ceros a la izquierda sin hacer mas codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar