Limitar um form por tempo [VB6]

[EmptyxD]

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

 

[Armadillo]

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

 

[EmptyxD]

O que tenho é isto:

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

 

[alexmgarcia]

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.

 

[Armadillo]

tenta assim

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

 

[EmptyxD]

Obrigadão já está a funcionar : )