Keskustelu: Ohjelmointikysymykset: VB6: Lomakkeen näyttäminen kun ProgressBar menee loppuun

Miten saan tehtyä että kun progressbar on mennyt loppuun form1.show?

If ProgressBar1.Value > 10 Then
Form1.Show
End If

Yksi kysymysmerkki muuten riittää topkin nimeen.

Mulla on tällänen koodi ja siinä on joku vika:

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value > 1000 Then
Unload Me
End If
End Sub

Mod. edit: laitoinpas kooditagin

Latska kirjoitti:

Yksi kysymysmerkki muuten riittää topkin nimeen.

Ja muutenki vois sen verran vaivautua kattomaan, että edes otsikossa ei ole kirjotusvirheitä.

Edit: No muutinpas sen. Näyttää vähemmän peelolta.

Nunk kirjoitti:

Mulla on tällänen koodi ja siinä on joku vika:

Aha.

Jos nyt jotain pitää arvata, niin tuon ProgressBarin Value on rajotettu johonki välille niin, ettei se koskaan pääse tuohon tonniin.
Tai sitten tuo sun Timer ei oo päällä.

Blaze kirjoitti:

Tai sitten tuo sun Timer ei oo päällä.

Jolloin vika ei olekaan koodissa. :)

Voisit kokeilla aluksi vaikka jotain:

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value > 10 Then End
End Sub

Ja sano loppuuko ohjelma missään vaiheessa. Voisit myös tarkistaa sen Timerin intervallin.

Nunk kirjoitti:

Mulla on tällänen koodi ja siinä on joku vika:

Niin yrittääkö se koodi siis edelleen sitä Form1.Show:ta?
Ehkä kannattaisi sitten pistää se siihen Unload Me:n tilalle.

Jos se formi pitää näyttää miks sun koodissa on vain unload me eikä form1.show?