Reload form en vb 2008

Version imprimable

28/04/2010, 11h45
walid kh

Reload form en vb 2008

bonjour à tous, je suis un débutant en vb 2008 voilà je veux faire un reload à ma form sans la fermer et la ré-executer; je vous explique mieu j'ai un treeview dans une form qui est alimenté pare une base de données et une autreform qui contient une listbox qui ajoute des éléments dans la base de données pour ensuite alimenté le treeview le problème que l'ajout de ses éléments ne parait pas tout de suite il faut que j'arrete l'exécution et puis le redémarrer pour apparaitre l'ajout dans le treeview :(
ANY HELP !
28/04/2010, 13h11
methylene

Essaies peut-être à la fin de l'éxécution de ton sub

Code:

maform.Refresh()

Ou

Code:

moncontrol.Refresh()
28/04/2010, 14h13
cougarg

Bonjour,

Si j'ai bien compris, je penses que pour rafraîchir, il te faut une méthode rafraîchissement de ton TreeView.

Grosso modo, lors d'une modification de la base, tu appelles une méthode de rafraîchissement.
Cette dernière va vider le TreeView, exécuter la requête et reconstruire ta TreeView. Cela doit être simple à mettre en place, car tu dois déjà surement faire ce travail au chargement de ta form.
03/05/2010, 11h48
walid kh

Bonjour les amis j'ai réussi à le faire grâce à Timer mais le problème c que j'ai une requete qu'il faut executer pour remplir un TreeView dans ma form mais la requete execute 2 fois vraiment je ne sais pas pourquoi 8O

Voilà le code que j'ai essayé :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TrViContact.Nodes.Clear()
        conn = New MySqlConnection
        conn.ConnectionString = hote
        req = "select nom_util ,groupe.nom from personnel,groupe where personnel.id_p = groupe.id_p"
 
        pfl = New MySqlCommand(req, conn)
 
        Try
            conn.Open()
            lire = pfl.ExecuteReader
            Do While lire.Read()
                LstNomgroup.Items.Add(lire.GetValue(1).ToString())
                LstResp.Items.Add(lire.GetValue(0).ToString())
            Loop
            lire.Close()
            cpt = LstNomgroup.Items.Count
            TrViContact.ShowPlusMinus = False
            TrViContact.ShowRootLines = False
            req = "select id_g from groupe,personnel where groupe.id_p = personnel.id_p "
            pfl = New MySqlCommand(req, conn)
            lire = pfl.ExecuteReader
 
            While lire.Read
                LstIdgroup.Items.Add(lire.GetValue(0).ToString())
            End While
            lire.Close()
            Dim group As New TreeNode
 
            For Me.i = 0 To cpt - 1
                Resp = TrViContact.Nodes.Add("", LstNomgroup.Items(i).ToString(), 1)
                Resp.ForeColor = Color.DarkOrchid
                req = "select nom_util from personnel,appartenir,groupe where personnel.id_p=appartenir.id_p and groupe.id_g=appartenir.id_g and appartenir.id_g =' " & LstIdgroup.Items(i) & "'"
                pfl = New MySqlCommand(req, conn)
                lire = pfl.ExecuteReader
                group = Resp.Nodes.Add("", LstResp.Items(i), 0)
                While lire.Read()
                    group.Nodes.Add("", lire.GetValue(0), 0)
                End While
                lire.Close()
            Next i
            TrViContact.ExpandAll()
 
            'If p = 1 Then
            'FrmContactenLigne.Show()
            'Me.Dispose()
            'Me.Hide()
            'End If
        Catch ex As Exception
            MessageBox.Show("Connexion non établit", "Erreur connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Timer1.Enabled = False
    End Sub

et pour Form_Load c'est le même code.
SVP aider moi j'en ai bien besoin :calim2:

03/05/2010, 13h41
Meoskay

Question "con" : tu peux ajouter un

Code:

MsgBox ("Test fonction Timer1_Tick")

à la première ligne de ta fonction "Private Sub Timer1_Tick" ? Juste pour vérifier que c'est bien cette fonction qui s'execute deux fois ?

(sinon juste comme ça parce que ça peut toujours t'être reproché plus tard : "connexion non établie")
03/05/2010, 13h50
walid kh

Oui il entre evidament dans la Timer mais je ne sais pas pourquoi il execute la requete 2 fois vraiment je ne comprend pas pourquoi ? :mur:
03/05/2010, 15h59
walid kh

Allez Allez pour tous ceux qui cherche de faire un reload à leur form sans la fermer et la réexecuter j'ai trouvé la solution en faite mon erreur se résume que je n'avais pas fait un clear() pour mes listbox, je parle de mon cas :mrgreen:, donc une solution pour ce problème utiliser le Timer c vraiment efficace ;)

bon chance les amis :ccool: