Problème treeview

cs_ebende Messages postés 18 Date d'inscription vendredi 10 septembre 2010 Statut Membre Dernière intervention 10 octobre 2011 - 6 déc. 2010 à 10:52
cs_ebende Messages postés 18 Date d'inscription vendredi 10 septembre 2010 Statut Membre Dernière intervention 10 octobre 2011 - 7 déc. 2010 à 17:52
slt j'ai le problème suivant.j'utilise un contrôle treeview avec lequel j'ai créé une hiérarchie.chaque objet ayant un objet fils.sauf que je veux rendre invisible les objets fils.voici le code que j'ai utilisé
Private Sub O1_Click()
On Error Resume Next
D1.Visible = False
'd1 est un datagrid
Tv1.Visible = True
O2.Value = False
TV2.Visible = False
Dim i As Integer
i = 0
A2.ConnectionString = vchaine
A2.CommandType = adCmdTable
A2.RecordSource = "service"
Tv1.Nodes.Add , , "C", "SERVICE"
A2.Refresh
Do While Not A2.Recordset.EOF
Tv1.Nodes.Add "C", tvwChild, "C" & CStr(i), A2.Recordset.Fields(1)
Tv1.Nodes.Add "C" & CStr(i), tvwChild, "CL" & CStr(i), A2.Recordset.Fields(0)
i = i + 1
A2.Recordset.MoveNext
Loop
Tv1.Nodes(1).Expanded = True
end sub
table service(numser,libser)
MERCI D'AVANCE

2 réponses

cs_subaqua Messages postés 69 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 20 juin 2011
6 déc. 2010 à 22:20
bonjour,

Par défaut, les fils ne se voient pas c'est pour cela qu'on utilise la méthode ".ensure visible".
Cependant, essaye ce code :

Tv1.Nodes.Add "C" & CStr(i), tvwChild, "CL" & CStr(i), A2.Recordset.Fields(0)
Tv1.Nodes("CL" & CStr(i)).Visible = False

Tiens-moi au courant.

Cordialement,

Subaqua.
0
cs_ebende Messages postés 18 Date d'inscription vendredi 10 septembre 2010 Statut Membre Dernière intervention 10 octobre 2011
7 déc. 2010 à 17:52
j'ai essayé ton code mais il marche pas.m6 kan mm on continue la recherche
0
Rejoignez-nous