Ayuda con If

Question

tengo un label con un 3 y quiero que si llega a 1 se cierre todo

 

entonces le hago dobleclick en el label

y pongo

 

If label2.caption = 1 then

End

 

pero no hace nada :S

 

 

es Visual basic  6

Answer 1

¿Cómo se actualiza la etiqueta? ¿un Timer? ¿un proceso? Allí es donde debes comparar el valor de caption de la etiqueta.

Answer 2

 

 

tienes que colocarlo en el evento del timer de tu formulario

 Select Case Label1.caption

            Case Is >= 1
                Label1.caption = Val(Label1.caption) - 1

            Case Is <= 0
                End
        End Select

 

ademas tienes que colocarle un timer a tu formulario

y ponerle en propiedades al timer enabled true y  intervalo de 1000

Answer 3

Hola, no tengo idea de como haces que cambie el label, pero sea como sea, puedes probar en el evento change del label 2

Private sub label2_change()

if  label2.caption=2 then end

end sub

Un saludo y espero que te sirva.

 

 

Answer 4

Hola. presumo que lo que quieres hacer es que en tu label muestre un conteo regresino asi ?

3

2

1

al llegar a cero cierre la ventana.

Primero que nada en el General Declaraciones creas una variable Integer

Dim num1%

en el load del formulario:

num1=3

ahora en el momento que deseas que inicie el conteo regresivo osea 3, 2, 1..

en el evento de un timer colocas:

num1=num1-1

al siguiente Tick sera 2 y asi

solo tienes que poner cada vez que se actualiza la variable num1 en la propiedad Caption del label asi:

Label1.Caption=cstr(num1)

in en una linea colocas:

if num1=0 then end

Espero haber ayudado..

Suerte...