Keskustelu: Ohjelmointikysymykset: VB6: Alkukuva (VB)

Eli tei ohjelamaani alkukuvaa, mutta ei oikein toiminut. Mikä tässä koodissa on vikana, kun tuolla se kuva ensin odottaa 3 sekuttia ja sitten tulee näkyviin ja sen jälkeen ei tapahdu mitaan. Yritin tehdä sitä niin että kuva tulee heti ja odottaa 3sekunttia ja sen jälkeen itse ohjelma käynnistyy.Tuo form1 on se kuva ja form2 itse ohjelma.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_load()
    form1.visible = true
    form2.visible = false
    DoEvents
    Sleep 2000
    form1.visible = false
    form2.visible = true
End Sub

Kannattaisi käyttää Timeriä ja Unload käskyä esim:

Private Sub Form_Load()
Timer1.Interval = 3000 'Säädetään timer 3 sekuntiin
End Sub

Private Sub Timer1_Timer() 'kun 3 sekkaa on kulunut niin
Unload Form1
Form2.Show
End Sub

vaikka kyllä tuonkin koodin saa toimimaan muuttamalla tuon

    form1.visible = true
    form2.visible = false
    DoEvents
    Sleep 2000
    form1.visible = false
    form2.visible = true

kohdan muotoon:

    form2.show
    DoEvents
    Sleep 2000
    unload form1
    form2.show

Eli siis visible ei voi käyttää jos formia ei ole ensin ladattu muistiin käskyllä Form2.show

Ok unohdin kokonaan tuo show käskyn
Kiitos!!!!!!!!!!

Hyvä että auttoi =)