Ocultar en un formulario Label insertando modulo clase

Tengo 10 TextBox nombrados Recomendacion1... Hasta Recomendacion10 de los cuales se debe ocultar Label llamado Rec

Recomendacion1 ocultar Rec1

Recomendacion2 ocultar Rec2...

Recomendacion10 ocultar Rec10

1 respuesta

Respuesta
2

Te anexo el código

Private Sub UserForm_Initialize()
'Act.Por.Dante Amor
    Dim ctlLoop As MSForms.Control
    Dim clsObject As Clase1
    Dim clsObject2 As Clase2
    '
    Set colCombo = New Collection
    Set colRecomendacion = New Collection
    For Each ctlLoop In Me.Controls
        If TypeOf ctlLoop Is MSForms.ComboBox Then
            Set clsObject = New Clase1
            Set clsObject.tbxCustom1 = ctlLoop
            colCombo.Add clsObject
        End If
        If TypeOf ctlLoop Is MSForms.TextBox Then
            Set clsObject2 = New Clase2
            Set clsObject2.tbxCustom2 = ctlLoop
            colRecomendacion.Add clsObject2
        End If
    Next ctlLoop
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas