Non mi funziona la Splash

[dops]

Ciao.. stò cercando di fare uno spash screen, ma non funziona.. allora:
ho creato un nuovo modulo e gli ho scritto questo all'interno:
Sub Main()
frmSplash.Show
frmSplash.Refresh
Set Form1 = New frmMain
Load Form1
Unload frmSplash
Form1.Show
End Sub
faccio partire il prog. ma non vedo lo splash
perchè? forse è troppo veloce e non riesco a vederlo?

[ladyBlu]

prova ad aprirla modale:
frmSplash.Show 1

[dops]

Sub Main()
frmSplash.Show 1
frmSplash.Refresh
Set Form1 = New frmMain
Load Form1
Unload frmSplash
Form1.Show
End Sub

niente manco mi funziona..

[xegallo]

sulla splash metti un controllo timer
o metti una sleep tra form splash e form main

[dops]

è quello che vorrei fare per vedere appunto se la splash viene visualizzata..ma non sò come settare questi controlli.. mi fai un esempio?

[xegallo]

Originariamente inviato da dops
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Sub Main()
frmSplash.Show
frmSplash.Refresh
sleep 5000
Set Form1 = New frmMain
Load Form1
Unload frmSplash
Form1.Show
End Sub

niente manco mi funziona..

[dops]

no.. neanche così la vedo
senti ho provato a settare nelle proprietà progetto alla voce "Oggetto di avvio" la form che fà da splash.. e funziona.. solo come faccio a settare il tempo che deve rimanere visibile, per poi scomparire e caricare la form principale?

[xegallo]

Originariamente inviato da dops
no.. neanche così la vedo
senti ho provato a settare nelle proprietà progetto alla voce "Oggetto di avvio" la form che fà da splash.. e funziona.. solo come faccio a settare il tempo che deve rimanere visibile, per poi scomparire e caricare la form principale?

se come oggetto di avvio hai la sum main così ti assicuro che funziona

[dops]

Errore di compilazione:

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

Sub Main()
frmSplash.Show 1
frmSplash.Refresh
Sleep 5000
Set Form1 = New frmMain
Load Form1
Unload frmSplash
Form1.Show
End Sub

[ladyBlu]

non hai dichiarato Form1; scrivi così:

Sub Main() 
   frmSplash.Show 1 
   frmSplash.Refresh 
   Sleep 5000 
   Dim Form1 As frmMain   
   Set Form1 = New frmMain 
   Load Form1 
   Unload frmSplash 
   Form1.Show 
End Sub

e usa i tag [*code][*/code] x scrivere il codice... è più leggibile...