Bruge form som forside?

When the form opens, start the timer, then in the timer event close the form and open the program form!

terry>> formen er ikke placeret som den første form men som den sidste hvordan får jeg den til at være den første (Så den bliver forside). og hvad skriver jeg i timeren

You choose this in th eproject properties (start up object)

You can show another form with

FormName.Show

when the form starts then you can set a timer in the form_load event

Timer1.interval = 1000 'Milliseconds

then when the event fires (Timer1_Timer)

you can close the form and open the new form with

Unload Me
FormName.Show

terry>> thanks - nu mangler jeg bare at få timeren til at virke

Du gå op i menuen og under project og  opener ”project properties”. Inde i ”project properties” er der en ”startup object” her kan du bestemme hvilken form du vil ha’ til at starte når programmet kører.

Og så til selve koden i den form du vil ha til at starte

Dim counter As Integer
Private Sub Timer1_Timer()
counter = counter + 1

If counter = 5 Then 'hvor mange sek. denne form skal være frame
form2.Show 'den form du vil ha'
End If
End Sub

terry>> jeg kan ikke helt få det til at virke.

jeg kan godt få den til at vise formen (forside) men den men den lukker ikke formen igen (efter 1000 'Milliseconds) og åbner programmet. Det virker som om at timeren ikke bliver aktiveret.

har du Tjekket timers properties

Gå ind i timers properties under interval og sæt den til 1000

the master>> jeg har prøvet at indtaste dit kode foreslag men!!! der sker ikke ande end at den åbner min form (forside) og så sker der ellers ikke mere den lukker ikke formen og åbner den første form i mit program ØV!

har rettet i din kode så det skulle passe til mit program.

In the "forside" Form Load event you should have something like this


Timer1.interval = 6000 '6 seconds

The enabled property should be set to true already

the_master>13/12-2003 15:38:00

"when the form starts then you can set a timer in the form_load event Timer1.interval = 1000 'Milliseconds"

Okey sæt en testbox ind i den form hvor din timer er og ind sæt denne kode

Dim counter As Integer
Private Sub Timer1_Timer()
counter = counter + 1
Text1.Text = counter
End Sub

nu skul der gerne ske noget...

nå så fik jeg det endelig til at virke, jeg havde glemt
Unload Me
FormName.Show