Discussion :

[draman212]

Salut,
J'essaie de décharger une form avec vb .net (2008) pour minimiser la taille de l'application en terme de memoir, alors j'utilise :
Me.Dispose ()
Mais toute l'application est fermée
Pourriez vous m'aiguiller afin que je puisse réaliser cela ?
Et merci d'avance

[blade159]

bonjour,

le plus simple serait de modifier les propriétés de ton projet :

• dans l'explorateur de solutions, faire un clic droit sur ta solution ;
• choisir "Propriétés" ;
• dans l'onglet "Application", modifier le "Mode d'arrêt" en mettant "A la fermeture du dernier formulaire".

[draman212]

nn elle n'a pas marché

[blade159]

pourrais-je voir un exemple de ton Me.Dispose()

Merci

[draman212]

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
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Mycommand.CommandText = "select login,password from administrateur"
 
        MyConnexion.Open()
 
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        Dim cmpt As Integer = 0
        Do While myReader.Read()
            If (TextBox1.Text = myReader.GetString(0) And TextBox2.Text = myReader.GetString(1)) Then
                cmpt = cmpt + 1
 
            End If
        Loop
        myReader.Close()
 
        MyConnexion.Close()
 
        If (cmpt <> 0) Then
 
            Form2.Show()
            Me.Dispose()
        Else
            MsgBox("veiller verifier vos coordonnéé")
 
        End If
 
    End Sub

[blade159]

tu as fait du VB6, non?

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button1.Click
        Mycommand.CommandText = "select login,password from  administrateur"

        MyConnexion.Open()

        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        Dim cmpt As Integer = 0
        Do While myReader.Read()
            If (TextBox1.Text = myReader.GetString(0) And TextBox2.Text =  myReader.GetString(1)) Then
                cmpt = cmpt + 1

            End If
        Loop
        myReader.Close()

        MyConnexion.Close()

        If (cmpt <> 0) Then

dim f2 as new Form2()
f2.Show()
            Me.Dispose()
        Else
            Messagebox.Show("veiller vérifier vos coordonnés")

        End If             

    End Sub

[draman212]

non je travaille avec le vb.net 2008

[blade159]

c'était de l'humour, désolé

c'est à cause des fonctions Show() et Msgbox() qui sont très utilisées en VB6 mais moins en .Net...

as-tu essayé de modifier ton code en replaçant par celui que je t'ai donné dans le post précédent?