Enkelt program

[Calle-]

Just det, jag behöver hjälp med ett program som jag tänkt att göra...

Jag vill att när man startar programet så ska det vara öppet i 5sek och efter 5sek ska programet stängas och öppna c:\windows\hej.exe

någon som kan göra det eller förklara hur man gör??

Tack på förhand!

Calle

[Tjorw]

tja...

 

Du kan använda en timerkontroll för att hålla koll på tiden. Denna är inte riktigt exakt men om du skall vänta i cirka fem sekunder, så fungerar den utmärkt.

Timerkontrollen har en egenskap som heter 'interval' och denna talar om vilket intervall kontrollen skall höja eventet 'Timer', mätt i millisekunder. För att underlätta kan du sätta den till 1000, så att du får sekunder.

 

Koden borde sedan vara något sånt här:

 

Private Const ANTAL_SEKUNDER_ATT_VÄNTA=5

 

Private SUb Form_Load()

Timer1.Interval=1000

Timer1.Enabled=True

End Sub

 

Private Sub Timer1_Timer()

Static iSekunder as Integer

iSekunder=iSekunder + 1

If iSekunder>=ANTAL_SEKUNDER_ATT_VÄNTA Then

Shell("c:\windows\hej.exe")

Timer1.Enabled = False

unload me

End If

End Sub

 

[Calle-]

 

Tackar

 

MVH

Calle