Ayuda con adjuntar 0 en texbox con tamaño predefinido

[Josefran]

Hola buenas tardes espero esten bien, tengo dos dudas
1.- Uso un texbox el cual lo ingreso con un formulario el cual puedo ingresar un CHAR de numeros de 1 a 6 caracteres.
Ocupo que el si...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Te dejo una función que vale para alinear un texto con una carácter a la izquierda.

Ejemplo de llamada a la función:

Private Sub TextBox1_Change()
   TextBox1 =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[a18327]

Es muy sencillo solo con la siguiente instrucción

Format(1,"000000")'El resultado es 000001

Si te das cuenta el numero de ceros que pongas es el numero de digitos que te apareceran y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Es muy sencillo solo con la siguiente instrucción

Format(1,"000000")'El resultado es 000001

Si te das cuenta el numero de ceros que pongas es el numero de dígitos que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! José (Amigo Antoni y a18327).
¿Y qué tal así?...

Private Sub TextBox1_Change()
TextBox1 = Format(Val(TextBox1), "000000")
End Sub

Saludos para todos.
Cacho R.

 

[Macro Antonio]

¡ Dios mío ! Mi deterioro cerebral es mas grave de lo que yo creía.

Voy a tener que dejar el whisky por el zumo de naranja,..jajaja

Un abrazo

 

[Cacho R]

... Voy a tener que dejar el whisky por el zumo de naranja ...

---

Traducción automática del Pequeño Antoni Ilustrado:

Voy a tener que dejar el whisky por el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Josefran]

https://www.dropbox.com/s/k1x0rqd4ipa15az/descripcion.zip


https://imageshack.com/a/img856/4748/cgr4.png

 

[Josefran]

Gracias chicos el primero lo resolvi asi, y me resulto bien, pero probando sus codigo se me hizo mas corto y util, gracias aun tengo problemas con el segundo a ver si me pueden ayudar se los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Josefran]

Gracias resolvi mi segunda duda con esto

txtDescripcionLarga.Text = Space(120 - Len(txtDescripcionLarga.Text)) & txtDescripcionLarga.Text