Discussion :

[morgan47]

salut,
j'avais un code qui cacher la form1 si les identifiant n'existe pas et qui montré la form2 pour les insérer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim pseudo As String
        Dim mdp As String
        ''''RECUPERATION DES INFORMATIONS'''
        pseudo = My.Settings.pseudo
        mdp = My.Settings.mdp
        'topform = My.Settings.topform
        ''''FIN RECUPERATION DES INFORMATIONS'''
 
        '''' SI LES IDENTIFIANT NEXISTE PAS''''
        If (pseudo = "" Or mdp = "") Then
            Form2.Show()
            Me.unload()
            'Exit Sub
        End If
        '''' SI LES IDENTIFIANT NEXISTE PAS''''

Ceci est le code contenu dans load.

Mais le probleme c'est que le form1 ne se cache pas.

J'ai donc essayé juste cela et ca ne fonctionne toujours pas je ne comprend pas pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
 
    End Sub

vous savez d'ou viens le problème?
Merci beaucoup

[olsimare]

Bonjour.

Le Load survient avant le Show qui affiche la form donc c'est normal.

A la rigueur tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Me.Hide()
    End Sub

Mais bon, conceptuellement c'est pas terrible ...

Le mieux ça reste de ne pas créer la form du tout si certaines conditions ne sont pas remplies.

Cdt.

[morgan47]

tu parle de passer pas sub main et ensuite d'afficher ou pas les form?

si c'est le cas, c'est ce que j'envisagé.

[olsimare]

Bonjour.

Tout à fait !

Cdt.