Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic treeview

treeview

5 réponses
Avatar
Nolofinwe Melwazul
Bonjour, g un souci

j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais pas comment
remplir le treview...
g cree un objet TreView1 et ImageList1 (pour avoir des icones : )) ) et 2-3
fonctions pour lister l'AD mais voila dans ma form je n'arrive pas lier les
2 :

je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)

mais g des erreurs du type syntaxe incorrect (pourtant niveau argument c
bon) ou alors il me demande ":=" et pis la je suis pomme.

des suggestions ?

A+
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Guy DETIENNE
Salut ;O)

Je suis peut-être stupide, mais c'est quoi l'AD ?

Guy

--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Nolofinwe Melwazul" a écrit dans le message de
news:%
Bonjour, g un souci

j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais pas


comment
remplir le treview...
g cree un objet TreView1 et ImageList1 (pour avoir des icones : )) ) et


2-3
fonctions pour lister l'AD mais voila dans ma form je n'arrive pas lier


les
2 :

je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)

mais g des erreurs du type syntaxe incorrect (pourtant niveau argument c
bon) ou alors il me demande ":=" et pis la je suis pomme.

des suggestions ?

A+





Avatar
Nolofinwe Melwazul
AD = Active Directory


"Guy DETIENNE" a écrit dans le message de news:
#
Salut ;O)

Je suis peut-être stupide, mais c'est quoi l'AD ?

Guy

--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Nolofinwe Melwazul" a écrit dans le message de
news:%
> Bonjour, g un souci
>
> j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais pas
comment
> remplir le treview...
> g cree un objet TreView1 et ImageList1 (pour avoir des icones : )) ) et
2-3
> fonctions pour lister l'AD mais voila dans ma form je n'arrive pas lier
les
> 2 :
>
> je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)
>
> mais g des erreurs du type syntaxe incorrect (pourtant niveau argument c
> bon) ou alors il me demande ":=" et pis la je suis pomme.
>
> des suggestions ?
>
> A+
>
>
>




Avatar
Guy DETIENNE
Salut ;O)

Ah Ok! Je suppose que RECURS_AD est une fonction ?

La syntaxe ci-dessous me semble improbable.
Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)

Un Treeview ne se construit pas ainsi.
Avant tout, il faudrait que l'on puise connaître le code qui te permettra de
le remplir sans quoi pas facile de t'aider...

Ceci dit, voici un exemple de code pour un treeview qui ressemblera à ceci
(piètre dessin; désolé):

+ Root
|
--- + Child1
|
--- Child2

Dim MyTv As TreeView
Dim MyNode As Node

Set MyTv = Me.TreeView1

With MyTv
.ImageList = Me.ImageList1 'association de l'imagelist
.Style = tvwTreelinesPlusMinusPictureText
.LineStyle = tvwRootLines
End With

Set MyNode = MyTv.Nodes.Add(, , "root", "Root", 1)
MyNode.Bold = True 'node en gras
MyNode.Expanded = True 'node développé

Set MyNode = MyTv.Nodes.Add("root", tvwChild, "child1", "Child1", 2)
MyNode.BackColor = vbBlue 'arrière plan du node en bleu
MyNode.ForeColor = vbWhite 'node en blanc
MyNode.Expanded = True 'node développé

Set MyNode = MyTv.Nodes.Add("child1", tvwChild, "child2", "Child2", 2)
MyNode.BackColor = vbBlue 'arrière plan du node en bleu
MyNode.ForeColor = vbWhite 'node en blanc

Set MyTv = Nothing
Set MyNode = Nothing


Guy
--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Nolofinwe Melwazul" a écrit dans le message de
news:
AD = Active Directory


"Guy DETIENNE" a écrit dans le message de news:
#
> Salut ;O)
>
> Je suis peut-être stupide, mais c'est quoi l'AD ?
>
> Guy
>
> --
> __________________________________
> Tchao.net: L'informatique à votre dimension
> www.tchao.net
> Pour toute réponse, retirer le .nospam de l'adresse mail
> ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
>
> "Nolofinwe Melwazul" a écrit dans le message de
> news:%
> > Bonjour, g un souci
> >
> > j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais pas
> comment
> > remplir le treview...
> > g cree un objet TreView1 et ImageList1 (pour avoir des icones : )) )


et
> 2-3
> > fonctions pour lister l'AD mais voila dans ma form je n'arrive pas


lier
> les
> > 2 :
> >
> > je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)
> >
> > mais g des erreurs du type syntaxe incorrect (pourtant niveau argument


c
> > bon) ou alors il me demande ":=" et pis la je suis pomme.
> >
> > des suggestions ?
> >
> > A+
> >
> >
> >
>
>




Avatar
Nolofinwe Melwazul
oki, cimer

vouila g resolu mon pb mais maintenant g une new erreur, je fais un autre
message.

reponse il fallait que j'utilise "CALL".



"Guy DETIENNE" a écrit dans le message de news:

Salut ;O)

Ah Ok! Je suppose que RECURS_AD est une fonction ?

La syntaxe ci-dessous me semble improbable.
Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)

Un Treeview ne se construit pas ainsi.
Avant tout, il faudrait que l'on puise connaître le code qui te permettra


de
le remplir sans quoi pas facile de t'aider...

Ceci dit, voici un exemple de code pour un treeview qui ressemblera à ceci
(piètre dessin; désolé):

+ Root
|
--- + Child1
|
--- Child2

Dim MyTv As TreeView
Dim MyNode As Node

Set MyTv = Me.TreeView1

With MyTv
.ImageList = Me.ImageList1 'association de l'imagelist
.Style = tvwTreelinesPlusMinusPictureText
.LineStyle = tvwRootLines
End With

Set MyNode = MyTv.Nodes.Add(, , "root", "Root", 1)
MyNode.Bold = True 'node en gras
MyNode.Expanded = True 'node développé

Set MyNode = MyTv.Nodes.Add("root", tvwChild, "child1", "Child1", 2)
MyNode.BackColor = vbBlue 'arrière plan du node en bleu
MyNode.ForeColor = vbWhite 'node en blanc
MyNode.Expanded = True 'node développé

Set MyNode = MyTv.Nodes.Add("child1", tvwChild, "child2", "Child2", 2)
MyNode.BackColor = vbBlue 'arrière plan du node en bleu
MyNode.ForeColor = vbWhite 'node en blanc

Set MyTv = Nothing
Set MyNode = Nothing


Guy
--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Nolofinwe Melwazul" a écrit dans le message de
news:
> AD = Active Directory
>
>
> "Guy DETIENNE" a écrit dans le message de news:
> #
> > Salut ;O)
> >
> > Je suis peut-être stupide, mais c'est quoi l'AD ?
> >
> > Guy
> >
> > --
> > __________________________________
> > Tchao.net: L'informatique à votre dimension
> > www.tchao.net
> > Pour toute réponse, retirer le .nospam de l'adresse mail
> > ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
> >
> > "Nolofinwe Melwazul" a écrit dans le message


de
> > news:%
> > > Bonjour, g un souci
> > >
> > > j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais pas
> > comment
> > > remplir le treview...
> > > g cree un objet TreView1 et ImageList1 (pour avoir des icones : )) )
et
> > 2-3
> > > fonctions pour lister l'AD mais voila dans ma form je n'arrive pas
lier
> > les
> > > 2 :
> > >
> > > je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)
> > >
> > > mais g des erreurs du type syntaxe incorrect (pourtant niveau


argument
c
> > > bon) ou alors il me demande ":=" et pis la je suis pomme.
> > >
> > > des suggestions ?
> > >
> > > A+
> > >
> > >
> > >
> >
> >
>
>




Avatar
Guy DETIENNE
Tout est bien qui fini bien donc !

Guy

--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD

"Nolofinwe Melwazul" a écrit dans le message de
news:
oki, cimer

vouila g resolu mon pb mais maintenant g une new erreur, je fais un autre
message.

reponse il fallait que j'utilise "CALL".



"Guy DETIENNE" a écrit dans le message de news:

> Salut ;O)
>
> Ah Ok! Je suppose que RECURS_AD est une fonction ?
>
> La syntaxe ci-dessous me semble improbable.
> Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)
>
> Un Treeview ne se construit pas ainsi.
> Avant tout, il faudrait que l'on puise connaître le code qui te


permettra
de
> le remplir sans quoi pas facile de t'aider...
>
> Ceci dit, voici un exemple de code pour un treeview qui ressemblera à


ceci
> (piètre dessin; désolé):
>
> + Root
> |
> --- + Child1
> |
> --- Child2
>
> Dim MyTv As TreeView
> Dim MyNode As Node
>
> Set MyTv = Me.TreeView1
>
> With MyTv
> .ImageList = Me.ImageList1 'association de l'imagelist
> .Style = tvwTreelinesPlusMinusPictureText
> .LineStyle = tvwRootLines
> End With
>
> Set MyNode = MyTv.Nodes.Add(, , "root", "Root", 1)
> MyNode.Bold = True 'node en gras
> MyNode.Expanded = True 'node développé
>
> Set MyNode = MyTv.Nodes.Add("root", tvwChild, "child1", "Child1", 2)
> MyNode.BackColor = vbBlue 'arrière plan du node en bleu
> MyNode.ForeColor = vbWhite 'node en blanc
> MyNode.Expanded = True 'node développé
>
> Set MyNode = MyTv.Nodes.Add("child1", tvwChild, "child2", "Child2", 2)
> MyNode.BackColor = vbBlue 'arrière plan du node en bleu
> MyNode.ForeColor = vbWhite 'node en blanc
>
> Set MyTv = Nothing
> Set MyNode = Nothing
>
>
> Guy
> --
> __________________________________
> Tchao.net: L'informatique à votre dimension
> www.tchao.net
> Pour toute réponse, retirer le .nospam de l'adresse mail
> ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
>
> "Nolofinwe Melwazul" a écrit dans le message de
> news:
> > AD = Active Directory
> >
> >
> > "Guy DETIENNE" a écrit dans le message de news:
> > #
> > > Salut ;O)
> > >
> > > Je suis peut-être stupide, mais c'est quoi l'AD ?
> > >
> > > Guy
> > >
> > > --
> > > __________________________________
> > > Tchao.net: L'informatique à votre dimension
> > > www.tchao.net
> > > Pour toute réponse, retirer le .nospam de l'adresse mail
> > > ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
> > >
> > > "Nolofinwe Melwazul" a écrit dans le


message
de
> > > news:%
> > > > Bonjour, g un souci
> > > >
> > > > j'essaye d'afficher l'AD dans un treeview mais voila, je ne sais


pas
> > > comment
> > > > remplir le treview...
> > > > g cree un objet TreView1 et ImageList1 (pour avoir des icones


: )) )
> et
> > > 2-3
> > > > fonctions pour lister l'AD mais voila dans ma form je n'arrive pas
> lier
> > > les
> > > > 2 :
> > > >
> > > > je fais : Me.Treeview1 = RECURS_AD(TreeView1, ImageList1)
> > > >
> > > > mais g des erreurs du type syntaxe incorrect (pourtant niveau
argument
> c
> > > > bon) ou alors il me demande ":=" et pis la je suis pomme.
> > > >
> > > > des suggestions ?
> > > >
> > > > A+
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>