VB 2010 Timer

[Roadrocker]

Hallo allemaal.

Mijn naam is Roadrocker66
Ik ben zins kort aan het programmeren geslagen en heb vele vragen, waarvan ik de oplossing niet ken.
Ik ben een applicatie aan het maken voor op mijn device met VB 2010
Het ontwerpen gaat fantastisch maar codes schrijven das punt 2

Ik gebruik meerdere formulieren maar hoe kan ik het eerste formulier (form1) na een aantal seconden automatisch laten afsluiten om zo het 2e formulier (Form2) te openen.
Had zelf gedacht aan een timer die dat moet gaan regelen.
Hoe ik deze code hier zou moeten aan geven weet ik niet. Zie geen VB code optie.
Kan natuurlijk ook aan mij liggen.

Mvg. Roadrocker66

 

[mrHenkie]

Hier is wat code waarmee je het huidige form (Form1) kan sluiten en het nieuwe form kan openen. Over die timer had je gelijk:

Private Sub timer1.tick()
Me.Close()
Form2.Show
End sub

 

[The Mighty Atom]

Wat je daar post is oude Visual Basic 5 code. Roadrocker maakt gebruik van VB.NET 2010 (wat jij ook zou moeten doen, zie je andere thread).

 

[CaptainBri]

Let op deze setting:

Kijk hier naar het kleine projectje:

http://www.mijnbestand.nl/Bestand-OGJZJUSIAKSW.rar

Succes :thumb:

 

[JoZ1]

Zorg er inderdaad voor dat je CaptainBri's tip volgt.

Daarna dit:

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Form2.Show()
        Form1.Close()
    End Sub

Ik ga er even vanuit dat je timer 'Timer1' heet.

Je kunt de interval van de timer in zijn properties veranderen. LET OP: in milliseconden! Dus 2 seconden zijn 2000 milliseconden.

 

[CaptainBri]

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Form2.Show()
        Form1.Close()
    End Sub

Ik had dit al in het projectje gepropt

Dat staat er in het projectje, + alle opties goed gezet.

 

[JoZ1]

Ik had dit al in het projectje gepropt

Sorry , ik had niet de tijd genomen om je project te bekijken.

Zal ik de volgende keer wél eerst doen

 

[Roadrocker]

Erg bedankt.

Dacht al zo iets.
Toch gebruik ik op Form1 geen Button.
Hij zou dus na zeg maar die 5 sec zelf moeten overspringen naar form2
Moet ik de button1_click code dan gewoon in form1_Load zetten?

Mvg. Roadrocker66

 

[CaptainBri]

Moet ik de button1_click code dan gewoon in form1_Load zetten?

Dat klopt, alles erin zetten

 

[Roadrocker]

In Form_Load de code zetten gaat niet.
Dan sluit ie na 5 seconden heel mijn programma af.
Enige suggesties?

Mvg. Roadrocker66

 

[CaptainBri]

In Form_Load de code zetten gaat niet.
Dan sluit ie na 5 seconden heel mijn programma af.
Enige suggesties?

Mvg. Roadrocker66

Heb je de tip toegepast, dat je applicatie pas sluit nadat de laatste form is gesloten?

 

[Roadrocker]

Kun je me vertellen waar ik die kan instellen. Kom daar niet echt uit.
Sorry ben nog lange bij na niet op dreef.
Kleine cursus programmeren zou voor mij misschien ook wel goed zijn.

Mvg. Roadrocker66

 

[Roadrocker]

Gevonden bedankt.
Is het dan ook mogelijk om Form1 langzaam te laten verdwijnen?
Ik bedoel geleidelijk.

Mvg. Roadrocker66

 

[CaptainBri]

Gevonden bedankt.
Is het dan ook mogelijk om Form1 langzaam te laten verdwijnen?
Ik bedoel geleidelijk.

Mvg. Roadrocker66

Als het goed is is dat mogelijk, zoiets zou moeten werken:

    Private Sub Fade(ByVal Snelheid As Integer)
        For Brian As Double = 1 To 0 Step -0.01
            Me.Opacity = Brian
            System.Threading.Thread.Sleep(Snelheid)
        Next Brian
    End Sub

Dit roep je zo aan:

Fade(20)

Volledige code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 5000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Fade(10)
        Form2.Show()
        Me.Close()
        Timer1.Stop()
    End Sub

    Private Sub Fade(ByVal Snelheid As Integer)
        For Brian As Double = 1 To 0 Step -0.01
            Me.Opacity = Brian
            System.Threading.Thread.Sleep(Snelheid)
        Next Brian
    End Sub

Plaatje:

Succes :thumb:

En mocht je nog meer vragen hebben, kan je me altijd op msn aanspreken (pm me als je dat wilt )

 

[Roadrocker]

Helemaal ongelooflijk goed zeg. Ik kon heel die fade mogelijkheid niet in VB 2010.
Is goed ik kom wel even op MSN.
Stuur je wel ff een privé bericht.

Mvg.Roadrocker66

 

[Roadrocker]

Krijg de melding: Alleen verenigingsleden en donateurs kunnen privé-berichten sturen.
Wat moet ik doen?

Mvg. Roadrocker66

 

[Roadrocker]

Daarnaast zou ik na het verkrijgen van een oplossing de status op ok moeten kunnen zetten toch.
Waar vind ik die?

Mvg.Roadrocker66

 

[CaptainBri]

Krijg de melding: Alleen verenigingsleden en donateurs kunnen privé-berichten sturen.
Wat moet ik doen?

Mvg. Roadrocker66

Ik heb je een emailtje verstuurd :thumb:

Om de status op opgelost te zetten ga je naar boven, en druk je op de tekst ''Zet vraag op opgelost'' (ofzoiets)