Programación General > Visual Basic 6.0 e inferiores
Unir 2 Textbox
(1/1)
stein:
Bueno antes que nada, disculparme si me expreso mal o demas, pues empeze con VB hace 2 dias.
Lo q deseo hacer es codificar lo siguiente:
En un textbox introduzco un valor 220000
Pues necesito q en otro text box me salga lo siguiente:
1ra cifra<<<< 2
2 da cifra<<<2
cantidad de 0<4
Por lo q 220000 quedaria algo asi como 224
Yo lo hice de la siguiente manera:
con un textbox en el cual solo me pèrmitia poner 2 caracteres (primeras 2 cifras) y en otro la cantidad de numeros despues de las 2 primeras cifras.(las cuales conte con el comando Len)
con lo q me quedaba algo asi: fede.Text = pico.Text & Len(pico2.Text)
En sintesis, en vez d usar 2 cuadros de texto para las 2 primeras cifras y los 0's, hacerlo todo en uno solo y me lo codifique.
Espero q me puedan ayudar. Muchas Gracias
ArKaNtOs:
no te entendí nada amigo, lo siento :P deberías ser un poco más claro pero creo que te puedo ayudar en algo creo que lo que deseas es dividir las cadenas en pedazos no?, pues para eso en un solo txt puedes meter toda la cadena completa y puedes saber como se constituyen ciertas parte de la cadena con las funciones mid(), left() y right() investigalas y veras de lo que hablo :D
stein:
Gracias por la respuesta, me ha servido ^^
Edito:
Bueno pues use solamente el Mid, pues para left y right pedia cosas q no entendia, algo de declarar y demas. el programa anduvo bien:
--- Código: Text --- Public Class Form1 Private Sub pico_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pico.TextChanged Label4.Text = 0 Label3.Text = 0 Label2.Text = 1 End Sub Private Sub nano_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nano.TextChanged Label4.Text = 0 Label3.Text = 1 Label2.Text = 0 End Sub Private Sub micro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles micro.TextChanged Label4.Text = 1 Label3.Text = 0 Label2.Text = 0 End Sub Private Sub dale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dale.Click If Label2.Text = 1 Then nano.Text = pico.Text / 1000 micro.Text = pico.Text / 1000000 Else If Label3.Text = 1 Then pico.Text = nano.Text * 1000 micro.Text = nano.Text / 1000 Else If Label4.Text = 1 Then pico.Text = micro.Text * 1000000 nano.Text = micro.Text * 1000 Else End If End If End If codigo.Text = Mid(pico.Text, 1, 2) & Len(Mid(pico.Text, 3, 10)) End Sub End Class
Lo que ahora necesitaria es lo siguiente. En el cuadro de codigo.text ingreso un valor 123, y que me lo decodifique en el cuadro pico.text.
Por lo q si pongo 123, en pico.text aparezca 12(000)<3. las primeras 2 cifras tengo una idea de como hacer para q salgan en el otro cuadro, pero como hago para que al poner un numero, me lo reemplaze por tantos 0 como el numero dice, o sea si pongo 3, q aparezcan tres 0 (3=000) y asi sucesivamente.
Como dije antes, perdon si me expreso mal
Toph:
--- Cita de: "stein" ---pero como hago para que al poner un numero, me lo reemplaze por tantos 0 como el numero dice, o sea si pongo 3, q aparezcan tres 0 (3=000) y asi sucesivamente.
--- Fin de la cita ---
puedes hacer algo asi:
--- Código: Text --- B = Text1.Text ' aqui iria el numero de ceros que necesitasC = 0Text2.Text = "" 'limpias el texto donde vas a poner los cerosFor A = 1 To B ' con un ciclo for que termina en el numero de ceros que necesitasText2.Text = Text2.Text & C 'aqui agregas los ceros al textboxNext
saludos :hola:
stein:
Gracias por la ayuda, ya lo logre, usando un select case. Como dije mis conocimientos son demasiado basicos asi q... xD
Navegación
Ir a la versión completa