Affichage d'une fenetre pendant qq secondes

salut a tous
je suis un débutant en vb, et ce serait sympa que qq'un m'envoie le code qui permette d'aficher une fenetre au démarrage d'une appli durant qq seconde puis se referme toute seule.
Merci d'avance
@+

Dans un module (et non une Form), crée une fonction "Sub Main" laquelle contient:

Splashscreen.Show vbModal
MainForm.Show vbModeless


où Splashscreen est le nom de la forme à montrer durant qque secondes et MainForm, celle de l'application principale.

Sur ton Splashscreen ajoute un contrôle Timer et modifie sa propriété Interval pour 5000 (soit 5 secondes).
Sous le menu "Project->(nom du projet) properties" change "Startup Object" pour "Sub Main"

Enfin, sous Splashscreen.Timer1_Timer ajoute:

Timer1.Enabled = False
Unload Me


-------------------------------
Réponse au message :
-------------------------------

salut a tous
je suis un débutant en vb, et ce serait sympa que qq'un m'envoie le code qui permette d'aficher une fenetre au démarrage d'une appli durant qq seconde puis se referme toute seule.
Merci d'avance
@+

Salut :-)
Est-ce que vous pourriez me traduire ceci en VB.NET ?
J'ai essayé, mais ça marche pô. Il m'ouvre et referme instentanément les deux fenêtres....

Sylvie

J'ai fait du progrès.
La fenêtre de démarrage s'affiche et disparaît après 5 seconde. La fenêtre principale s'ouvre ensuite, mais le problème c'est qu'elle se referme directement.

J'ai le code suivant. Est-ce que qqn pourrait corriger mon erreur ?


frmDemar
-----------

Public Class FrmDemar
'Code généré par le Concepteur Windows Form
.....
Me.timer1.enabled = True
Me.Timer.Interval = 5000

....

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.tick
Me.Timer1.Enabled = False
Me.Close()
End Sub
End Class


formPrincip
------------

Public Class formPrincip
Inherits System.Windows.Forms.Form

' Code généré par le Comcepteur Windows Form
....


Private Sub btnAffichMsg_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAffichMsg_click
System.Windows.Forms.MessageBox.Show("hello", "bonjour tout le monde", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

End Class


principal.vb
-------------

Module principal
Sub main()
Dim splashscreen as New frmDemar
Dim MainForm as New FormPrincip

splashscreen.showDialog()
MainForm.Show()
End Sub
End Module

Sylvie

bonjour, je viens de faire un projet avec 2 feuilles (form1 et form2).

dans form1, j'ai mis un timer avec un intervall de 1000 et un label
voici la source de form1 :
 
Private Sub Form_Load()
   Label1.Caption = 5             'compte à rebour de 5 sec
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1  'toute les secondes, on eleve un a la valeur de label1
If Label1.Caption = 0 Then      'si le décompte est terminé alors
    Unload Me         'on décharge form1
    Form2.Show            'et on montre form2
End If
End Sub



ca c'est en vb6, je connais pas le .net

j'espere que ca pourra t'aider.

cdt

castor

>lianoos
Je te conseille de faire comme ca :
Public Class formPrincip
Inherits System.Windows.Forms.Form

' Code généré par le Comcepteur Windows Form
....


Private Sub formprincip_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dim Splashcreen as new frmDemar
splashscreen.showdialog(me)
application.doevents
end sub


frmDemar
-----------

Public Class FrmDemar
'Code généré par le Concepteur Windows Form
.....
Me.timer1.enabled = True
Me.Timer.Interval = 5000

....

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.tick
Me.Timer1.Enabled = False
Me.Close()
me.dispose()
End Sub
End Class

voici un petit code que j'ai trouvé je ne sais plus ou (mes excuses à l'auteur)


CreateObject("WScript.Shell").Popup "Veuillez patienter, merci...", 3, "  Ce message ce fermera dans 3 seconds", 64