Impossible de faire un formulaire de presentationRésolu

Question

Salut à toi,

dans mon projet j'ai deux forms, la page d'accueil "Nag.vb" et l'unique page principale "Main.vb". Après un laps de temps, je tente d'ouvrir Main.vb et fermer Nag.vb.

C'est bête et certainement simple à faire mais je n'y arrive pas !? 

Le ME.CLOSE du Nag ferme tout !

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Dim newForm As New Projet1.Main
        newForm.Show()
        Me.Close()
    End Sub

ou

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Projet1.Main.Show()
        Me.Close()
    End Sub


Comment faire comprendre a mon application que ma page principale est Main.vb après l'affichage de Nag.vb ?

cs_ShayW · Accepted Answer

Salut duke49

de retour ?

"Nag.vb" c'est ta form d'ouverture du projet

dans les propriété du projet 
application -> shutdown mode modifie à 
when the last form close

acive · Answer

Salut à toi aussi..

C'est parce que ton Nag c'est la Form principale.
Essaye me.hide ça devrait marcher..


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Duke49 · Answer

Merci pour ta réponse Acive, cependant je ne souhaite pas que Nag.vb reste en mémoire 

Existe t'il un moyen de l'ajouter avec MyBase ou comment faire un CreateInstance ?

Sous VB6, avec un show et un unloade me le tour était bouclé

Utilisateur anonyme · Answer

Bonjour,

Ma réponse précédente semble s'être évanouie à cause de Bell Canada. Mille excuses en cas de doublon.

Je pense que VB.net a tendance à se mélanger avec les me. Des fois, il décide tout bonnement que me désigne l'application elle même. Peut-être avec quelque chose comme cela:

Ton code dans nag sans me.close

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Dim newForm As New Projet1.Main
        newForm.Show()
 End Sub

Puis, ajoute dans le main_load

 Private Sub main_Load(sender As Object, e As System.EventArgs) Handles Me.Load
     nag.close
End Sub

Duke49 · Answer

Le début d'un échec ?
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Dim oCar As New Form
        oCar = Assembly.GetAssembly(Me.GetType).CreateInstance("PatchFusion.Main")
        oCar.Activate()
        Me.Close()
    End Sub

Duke49 · Answer

ShayW 

Merci beaucoup pour l'astuce, tu as répondus à ma question, cependant, une question autre restera... 

Comment faire lorsque l'infrastructure de l'application est désactivé ?

Duke49 · Answer

Merci cmarcotte pour ton support !

ShayW; vi de retour 

Pour savoir combien de temps, moins évident, il me faudrait prédire l'avenir 

Logiquement jusqu'après les élections présidentielles. Déraisonnablement jusqu'a ma mort en comptant chaque minutes ^^

acive · Answer

Désolé pour le retard,
Au fait la Form qui ferme le tout c'est celle de démarrage, qu'on peux aussi modifier.
Mais dans ton cas la réponse de Shay est plus adaptée, je pense.



Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Duke49 · Answer

Merci acive.

La réponse de ShayW est bonne mais tu pointe du doigt une question toi aussi ^^

Comment changer son formulaire de démarrage lorsque la case "infrastructure de l'application" est désactivé ?

Impossible de faire un formulaire de presentation

9 réponses

Votre réponse

Discussions similaires