Wacht op verschijnen

[THWIT]

Hoe zorg je ervoor dat een button pas na Bijv. 5 minuten verschijnt?

 

[vanschagen]

met sleep????

 

[The Mighty Atom]

Niet getest, maar dit zou moeten werken:

Application.DoEvents() 'Zorgt ervoor dat het programma verder blijft doordraaien
Threading.Thread.Sleep(300000) 'Wacht 5 minuten (in miliseconden)
NaamVanButton.Visible = True 'Button zichtbaar maken

 

[THWIT]

Waar kan ik dit precies neerzetten?
Ben nog niet zo ervaren met VB...

 

[The Mighty Atom]

Ligt eraan wanneer hij moet beginnen met aftellen.

 

[THWIT]

Oké. Gewoon even simpel dan.
Zodra het programmaatje start.
Oja... Het was eigenlijk ook de bedoeling dat hij zodra er op hem geklikt wordt hij zich weer opnieuw verbergt.

 

[The Mighty Atom]

In dat geval doe je het volgende:

1. Dubbelklik ergen op je form (let er op dat je niet op een control dubbelklikt)
2. Het Form_Load event wordt daarmee klaargezet. Daarin zet je:

ResetButton()

3. Nu maak je een nieuwe zelf gemaakte Private Sub aan:

Private Sub ResetButton()
Application.DoEvents() 'Zorgt ervoor dat het programma verder blijft doordraaien
Threading.Thread.Sleep(300000) 'Wacht 5 minuten (in miliseconden)
NaamVanButton.Visible = True 'Button zichtbaar maken
End Sub

Waar je die neerzet is aan jouw.

4. Als laatste dubbelklik je op de button. Dit zet een Click event voor die button klaar. Daarin zet je hetzelfde als bij Form_Load:

ResetButton()

En dat is het.

 

[THWIT]

Bedankt:thumb:
(maar daar komt hij weer met z'n problemen...)
Bij mij blijft nu ik alles doe het programmaatje bij het opstarten hangen (5 minuten als ik dat instel of 10 sec. als ik dat instel...)

 

[The Mighty Atom]

Draai de eerste twee regels eens om. Dus:

Application.DoEvents() 'Zorgt ervoor dat het programma verder blijft doordraaien
Threading.Thread.Sleep(300000) 'Wacht 5 minuten (in miliseconden)

word:

Threading.Thread.Sleep(300000) 'Wacht 5 minuten (in miliseconden)
Application.DoEvents() 'Zorgt ervoor dat het programma verder blijft doordraaien

 

[THWIT]

Helaas, geen verschil...

 

[The Mighty Atom]

Tijd om VS er effe bij te halen.

Een moment geduld.

Edit: zo werkt het wel:

http://www.themightyatom.nl/stuff/code.rtf

Ik heb de volledige code in RichTextFormat opgeslagen zodat de opmaak behouden blijft.