none
Ayuda con If RRS feed

  • Pregunta

  • 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
    sábado, 6 de agosto de 2011 18:03

Todas las respuestas

  • ¿Cómo se actualiza la etiqueta? ¿un Timer? ¿un proceso? Allí es donde debes comparar el valor de caption de la etiqueta.
    domingo, 7 de agosto de 2011 14:56
  •  

     

    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

    lunes, 8 de agosto de 2011 20:54
  • 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.

     

     

    lunes, 7 de noviembre de 2011 18:27
  • 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...

     

     

     

     

    martes, 8 de noviembre de 2011 5:28