Ayuda con código en vb 2008

Hola! Lo que yo quiero e que al pulsar un botón vayan apareciendo unos label uno a uno y no todos a la vez, no se si me explico bien.
Gracias!
1

1 respuesta

Respuesta
1
Yo trabajo con VB6 pero no creo que varíe mucho.
Lo que yo haría es tener todos los Label como no visibles y los iría presentando según pulsen el botón 'btnPresentaNuevoLabel'. El código sería:
Private Sub btnPresentaNuevoLabel_Click()
    If Not Me.Label1.Visible Then
        Me.Label1.Visible = True
    ElseIf Not Me.Label2.Visible Then
        Me.Label2.Visible = True
    ElseIf Not Me.Label3.Visible Then
        Me.Label3.Visible = True
    ElseIf Not Me.Label4.Visible Then
        Me.Label4.Visible = True
    ElseIf Not Me.Label5.Visible Then
        Me.Label5.Visible = True
    End If
End Sub
Esta bien pero me van apareciendo los label según vaya pulsando un botón, lo que yo quiero es que al pulsar el botón vayan apareciendo uno detrás de otro, es decir:
Pulso el botón y aparece el primer label, una vez aya aparecido el label1 que aparezca el label2, una vez aya aparecido el label2 que aparezca el label3, y así con todos.
Espero que me puedas ayudar. Gracias!
Entonces te interesa poner un retardo entre la presentación de un label y el siguiente.
En este caso el código que yo pondría sería algo así como este:
Private Sub btnPresentaNuevoLabel_Click()
    PresentaEtiqueta Me. Label1
    PresentaEtiqueta Me. Label2
    PresentaEtiqueta Me. Label3
    PresentaEtiqueta Me. Label4
    PresentaEtiqueta Me. Label5
End Sub
Sub presentaEtiqueta(ByVal etiqueta As Label)
    etiqueta.Visible = True
    esperaSegundos 0.5
End Sub
Sub esperaSegundos(ByVal nSeg As Double)
    Dim t1 As Double
    Dim t2 As Double
    t1 = Timer
    Do
        DoEvents
        t2 = Timer
        If t2 < t1 Then t2 = t2 + 86400#
    Loop Until (t2 - t1) > nSeg
End Sub
Por cierto, no lo he probado pero creo que funcionará.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas