decharger une form

Version imprimable

05/04/2010, 12h26
draman212

decharger une form

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
05/04/2010, 12h42
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".
05/04/2010, 13h03
draman212

nn elle n'a pas marché :(
05/04/2010, 13h23
blade159

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

Merci

Code:

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

tu as fait du VB6, non?

Code:

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

06/04/2010, 16h33
draman212

non je travaille avec le vb.net 2008
06/04/2010, 18h51
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?