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!
Gracias!
1 Respuesta
Respuesta de santiagomf
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
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!
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á.
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á.
