extraer caracteres de una cadena con función mid Visual Basic!

[minombreeslucas]

Hola a todos! Mi nombre es Lucas, tengo una duda existencial y no se como resolverla, talvez sea una tontería, igual la ayuda va a ser altamente agradecida, es la siguiente:

Lo que yo quiero hacer:

Yo quiero escribir dos números en un cuadro de texto común, y que el programa ponga cada cifra en un label. Por ejemplo: escribo 10, y pone el 1 en un label y en otro pone el 0.

El Problema:

No se cómo hacerlo, y no se si es posible hacer eso. 

Bueno desde ya les agradezco cualquier ayuda! Saludos!

[Mario R. Rancel]

Hola Lucas, puedes hacerlo con la función mid que requiere tres parámetros: cadena de la que se extraen los caracteres, posición de inicio, longitud de caracteres a extraer.

Por ejemplo mid ("farmacia", 1, 2) devuelve fa

mid ("farmacia", 4, 3) devuelve mac

mid ("farmacia", 7, 2) devuelve ia

Para lo que tu indicas usando un TextBox1, un Label1, un Label2 y un CommandButton1 el código sería este (aunque puede variar según la versión de Visual Basic que uses):

Código: [Seleccionar]

Private Sub Form_Load()
Text1.Text = ""
Label1 = "Escriba un número de dos dígitos en el textBox"
Label2 = ""
Command1.Caption = "Aceptar"
End Sub


Private Sub Command1_Click()
Label1 = "Primer dígito es " & Mid(Text1.Text, 1, 1)
Label2 = "Segundo dígito es " & Mid(Text1.Text, 2, 1)
End Sub
Saludos

[minombreeslucas]

Buenisimo!!! Lo probe y funciono perfecto!! Muchas gracias!