1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Limitar um form por tempo [VB6]

Discussão em 'Programação' iniciada por EmptyxD, 21 de Maio de 2009. (Respostas: 5; Visualizações: 1916)

  1. EmptyxD

    EmptyxD Power Member

    Bom dia,

    Estou a trabalhar em VB6 e gostaria de por um form limitado por tempo ou seja:


    • Um form que ao fim de 90 segundos aberto, encerra e abre-se outro form
    Alguma ideia?

    Cumpz,
    EmptyxD
     
  2. Armadillo

    Armadillo Folding Member

    colocas um controlo "timer" com o intervalo de 1000ms, crias uma variável contadora, em que a cada tick do timer, incrementa um.
    Quando esta variável for 90, fazes um as instruções necessárias para chamar o novo form e a para fechar o actual.

    cumps
     
  3. EmptyxD

    EmptyxD Power Member

    O que tenho é isto:
    Código:
    Private Sub Form_Load()
      lbltime.Caption = " 0"
      tmrWatch.Enabled = True
    If tmrWatch.Interval = 9# Then
        Unload Me
        Nivel1.Show
    Else
    
    End If
    End Sub
    
    Private Sub tmrWatch_Timer()
      lbltime.Caption = Str(Val(lbltime.Caption) + 0.1)
    End Sub
     
  4. alexmgarcia

    alexmgarcia Power Member

    Código:
    Dim contador as Integer
    contador = 0
    Private Sub Form_Load()
      lbltime.Caption = " 0"
      tmrWatch.Interval = 1000
      tmrWatch.Enabled = True
    End Sub
    
    Private Sub tmrWatch_Timer()
      lbltime.Caption = Str(Val(lbltime.Caption) + 0.1)
      contador = contador + 1
      if contador = 90 then
       Nivel1.show 
       Unload Me
      end if
    end sub
    Penso que seja assim. Não tenho aqui VB para testar, mas é mais ou menos isso. ;)
     
  5. Armadillo

    Armadillo Folding Member

    tenta assim
    Código:
    dim tempo as integer
    
    Private Sub form_load()
    tempo = 0
    end sub
    
    Private Sub tmrWatch_Timer()
    tempo = tempo + 1
    
    if tempo=90 then
       unload me
       nivel1.show 'isto se calhar devia estar antes do unload me
    end if
    
    end sub
    
    atenção que nao testei nada e pode ter aqui qq bug

    cumps
     
  6. EmptyxD

    EmptyxD Power Member

    Obrigadão já está a funcionar : )
     

Partilhar esta Página