[SOLUCIONADO] Desglosar caption label

[truskyvb]

Buenas noches, necesito desglosar el valor del caption de una label y no sé como hacerlo. Agradezco de antemano vuestra ayuda.

Ejemplo:

Labeladesglosar.caption = "120"


Desglosar "120" en:

label1.caption = "1"
label2.caption = "2"
label3.caption = "0"

Feliz año!
Un saludo

[truskyvb]

Creo que he dado con ello. Lo pongo aquí por si le sirve a alguien.
Un saludo

Label1.Caption = Mid(LabelADesglosar.Caption, 1, 1) 'Primer dígito
Label2.Caption = Mid(LabelADesglosar.Caption, 2, 1) 'Segundo dígito
Label3.Caption = Mid(LabelADesglosar.Caption, 3, 1) 'Tercer dígito

[acopantepuy]

Puedes también hacer de un conteo de la cadena para saber cuántos dígitos tiene y luego hacer un FOR o WHILE para colocar los dígitos

[truskyvb]

Hola acopantepuy, gracias por la ayuda.

Lo del contador creo que es algo así, pero lo del For o While, no sé hacerlo.

Código:

Dim contador As Integer

Private Sub Command1_Click()

contador = contador + 1
If contador > Len(LabelADesglosar) Then Exit Sub
Label1 = Mid(LabelbelADesglosar contador, 1)

contador = 0

contador = contador + 2
If contador > Len(LabelADesglosar) Then Exit Sub
Label2 = Mid(LabelADesglosar, contador, 1)

contador = 0

contador = contador + 3
If contador > Len(LabelADesglosar) Then Exit Sub
Label3 = Mid(LabelADesglosar, contador, 1)

[acopantepuy]

Me referia a esto:

Código vb:

Option Explicit
 
Private Sub Command1_Click()
    Dim cantidad As String
    Dim largoCantidad As Integer
    Dim i As Integer
    
    cantidad = Text1.Text
    
    largoCantidad = Len(cantidad)
    
    If largoCantidad > 3 Or largoCantidad < 3 Then
    
        MsgBox "El numero debe ser de tres dìgitos", vbInformation
    Else
        
        i = 0
        
        For i = 0 To 2 Step 1
                  
            Label1(i).Caption = Mid(cantidad, i + 1, 1)
        
        Next i
        
    End If
    
    
    
End Sub
 

La etiqueta label la manejas como un arreglo de controles

[truskyvb]

Gracias por el código, acopantepuy, me ha sito muy útil.

Un saludo