Desaparecer [Labels] con sentencia IF y ElSE en [VB] Ayuda
Publicado: 19 Sep 2014 07:46
Hola amigos de amsspecialis.
Tengo un pequeño problema y no se cual es el motivo
Estoy haciendo una prueba con las sentencias de IF y ELSE en Visual Basic
Lo que quiero hacer es que al dar cada click se vaya desapreciando cada Label son 5 Label, entonces en 5 click se tendrian que desaparecer los 5 label, esto lo tengo que hacer con sentencias IF y ELSE.
Ya he echo el codigo, pero me surge un error, al dar el 3er click, ya que no desaparece el label 3
Aqui el codigo
Espero y me puedan ayudar!
Gracias de antemano
Tengo un pequeño problema y no se cual es el motivo
Estoy haciendo una prueba con las sentencias de IF y ELSE en Visual Basic
Lo que quiero hacer es que al dar cada click se vaya desapreciando cada Label son 5 Label, entonces en 5 click se tendrian que desaparecer los 5 label, esto lo tengo que hacer con sentencias IF y ELSE.
Ya he echo el codigo, pero me surge un error, al dar el 3er click, ya que no desaparece el label 3
Aqui el codigo
Private Sub Command5_Click()
If (Label1.Visible = True) Then
Label1.Visible = False
Else
' -- Si el label 1 esta desactivado entonces -- '
If (Label1.Visible = False) Then
Label2.Visible = False
Else
' -- Si el label 2 esta desactivado entonces -- '
If (Label2.Visible = False) Then
Label3.Visible = False
Else
' -- Si el label 3 esta desactivado entonces -- '
If (Label3.Visible = False) Then
Label4.Visible = False
Else
' -- Si el label 4 esta desactivado entonces -- '
If (Label4.Visible = False) Then
MsgBox "La etiqueta Blanca esta desactivada"
Label5.Visible = False
Else
End If
End If
End If
End If
End If
End Sub
Espero y me puedan ayudar!
Gracias de antemano