désolé si je ne suis pas "là où il faut",
mais sur les forums/groupes de discussion
dédiés au javascript, pas de réponse en
général dès que l'on parle Active'X ....
je tente d'utiliser l'active'X imageList
(associé a treeview) en j[ava]script
et je n'arrive pas à mettre des images
( click droit, propriétés .. ) ou plus
exactement elles "disparaissent" dès
le lancement du script.
je fais quelle erreur ? où comment faire ?
merci, je regarde et si je ne comprend rien j'appelle au secours .... @+
Bul
je viens de lire, et à priori pas d'utilisation des active'X, alors même si ça fait à peu près ce que je veux faire, je ne pense pas que cela puisse m'aider, ou alors je n'ai rien compris... je creuse mais ... @+
je viens de lire, et à priori
pas d'utilisation des active'X,
alors même si ça fait à peu
près ce que je veux faire, je
ne pense pas que cela puisse
m'aider, ou alors je n'ai rien
compris... je creuse mais ...
@+
je viens de lire, et à priori pas d'utilisation des active'X, alors même si ça fait à peu près ce que je veux faire, je ne pense pas que cela puisse m'aider, ou alors je n'ai rien compris... je creuse mais ... @+
Georges MAUREL
Bonjour Bul, Après quelques recherches et adaptations, voici un code que tu peux utiliser
<HTML> <HEAD> <title></title>
<script language="vbscript"> sub Test() Dim nod Dim i Dim j IL.ListImages.Add ,,LoadPicture("c:tempimage1.gif") with IL .ListImages.Add 1,"Pere",LoadPicture("c:tempimage1.gif") .ListImages.Add 2,"Fils",LoadPicture("c:tempimage2.gif") .ListImages.Add 3,"Petitfils",LoadPicture("c:tempimage3.gif") set TV.ImageList = IL end with
With TV .Font.Name = "Arial" .Font.Size = 7 ' Définition de la racine ' .Add(relative, relationship, index, text, image, selectedimage) index = 1 Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1) For i = 1 To 2 index = index+1 Call .Nodes.Add("Pere", 4, "Index"&index,"Fils" & i, 2,2) index_pere = index For j = 1 To 4 index = index+1 Call .Nodes.Add("Index" & index_pere, 4,"Index"&index ,"PetitFils" & j, 3,3) Next Next nod.Expanded = True .Nodes(1).Selected = True End With end Sub
je viens de lire, et à priori pas d'utilisation des active'X, alors même si ça fait à peu près ce que je veux faire, je ne pense pas que cela puisse m'aider, ou alors je n'ai rien compris... je creuse mais ... @+
Bonjour Bul,
Après quelques recherches et adaptations, voici un code que tu peux utiliser
<HTML>
<HEAD>
<title></title>
<script language="vbscript">
sub Test()
Dim nod
Dim i
Dim j
IL.ListImages.Add ,,LoadPicture("c:tempimage1.gif")
with IL
.ListImages.Add 1,"Pere",LoadPicture("c:tempimage1.gif")
.ListImages.Add 2,"Fils",LoadPicture("c:tempimage2.gif")
.ListImages.Add 3,"Petitfils",LoadPicture("c:tempimage3.gif")
set TV.ImageList = IL
end with
With TV
.Font.Name = "Arial"
.Font.Size = 7
' Définition de la racine
' .Add(relative, relationship, index, text, image, selectedimage)
index = 1
Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1)
For i = 1 To 2
index = index+1
Call .Nodes.Add("Pere", 4, "Index"&index,"Fils" & i, 2,2)
index_pere = index
For j = 1 To 4
index = index+1
Call .Nodes.Add("Index" & index_pere, 4,"Index"&index ,"PetitFils" &
j, 3,3)
Next
Next
nod.Expanded = True
.Nodes(1).Selected = True
End With
end Sub
"Bul" <marcel.bultez@spamtiscali.fr> a écrit dans le message de
news:uRpS11dsEHA.3604@TK2MSFTNGP15.phx.gbl...
je viens de lire, et à priori
pas d'utilisation des active'X,
alors même si ça fait à peu
près ce que je veux faire, je
ne pense pas que cela puisse
m'aider, ou alors je n'ai rien
compris... je creuse mais ...
@+
Bonjour Bul, Après quelques recherches et adaptations, voici un code que tu peux utiliser
<HTML> <HEAD> <title></title>
<script language="vbscript"> sub Test() Dim nod Dim i Dim j IL.ListImages.Add ,,LoadPicture("c:tempimage1.gif") with IL .ListImages.Add 1,"Pere",LoadPicture("c:tempimage1.gif") .ListImages.Add 2,"Fils",LoadPicture("c:tempimage2.gif") .ListImages.Add 3,"Petitfils",LoadPicture("c:tempimage3.gif") set TV.ImageList = IL end with
With TV .Font.Name = "Arial" .Font.Size = 7 ' Définition de la racine ' .Add(relative, relationship, index, text, image, selectedimage) index = 1 Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1) For i = 1 To 2 index = index+1 Call .Nodes.Add("Pere", 4, "Index"&index,"Fils" & i, 2,2) index_pere = index For j = 1 To 4 index = index+1 Call .Nodes.Add("Index" & index_pere, 4,"Index"&index ,"PetitFils" & j, 3,3) Next Next nod.Expanded = True .Nodes(1).Selected = True End With end Sub
je viens de lire, et à priori pas d'utilisation des active'X, alors même si ça fait à peu près ce que je veux faire, je ne pense pas que cela puisse m'aider, ou alors je n'ai rien compris... je creuse mais ... @+
Bul
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges j'avais essayé IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif'); IL.ListImages.Add(1,"1","SiteEnt.gif"); qui ne marchaient pas. IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif")); rale sur LoadPicture qu'il ne reconnait pas. pas loin, pas loin ?
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges
j'avais essayé
IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif');
IL.ListImages.Add(1,"1","SiteEnt.gif");
qui ne marchaient pas.
IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif"));
rale sur LoadPicture qu'il ne reconnait pas.
pas loin, pas loin ?
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges j'avais essayé IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif'); IL.ListImages.Add(1,"1","SiteEnt.gif"); qui ne marchaient pas. IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif")); rale sur LoadPicture qu'il ne reconnait pas. pas loin, pas loin ?
Georges MAUREL
Re bonjour bul, En fait tu n'est pas obligé d'utiliser un imagelist Pour cela tu remplace <PARAM NAME="ImageList" VALUE="IL"> par <PARAM NAME="ImageList" VALUE=""> dans la définition de TV L' imagelist sert surtout à associer des images aux noeuds que tu utilises Par exemple : Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1) le 1° "1" sert à indiquer l'image tu associe pour l'affichage et le 2° "1" pour l'image associé lors de la sélection du noeud
En complément, voici un petit sub te donnant le N° d'index et le texte de l'élement sélectionné. Tu peux t'en servir pour déclencher des actions.
Private Sub TV_NodeClick(Node) msgbox("Index = " & Node.Index & " Texte :" & Node.Text) End Sub
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges j'avais essayé IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif'); IL.ListImages.Add(1,"1","SiteEnt.gif"); qui ne marchaient pas. IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif")); rale sur LoadPicture qu'il ne reconnait pas. pas loin, pas loin ?
Re bonjour bul,
En fait tu n'est pas obligé d'utiliser un imagelist
Pour cela tu remplace
<PARAM NAME="ImageList" VALUE="IL">
par
<PARAM NAME="ImageList" VALUE="">
dans la définition de TV
L' imagelist sert surtout à associer des images aux noeuds que tu utilises
Par exemple :
Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1)
le 1° "1" sert à indiquer l'image tu associe pour l'affichage et le 2° "1"
pour l'image associé lors de la sélection du noeud
En complément, voici un petit sub te donnant le N° d'index et le texte de
l'élement sélectionné.
Tu peux t'en servir pour déclencher des actions.
Private Sub TV_NodeClick(Node)
msgbox("Index = " & Node.Index & " Texte :" & Node.Text)
End Sub
"Bul" <marcel.bultez@spamtiscali.fr> a écrit dans le message de
news:ettCzYfsEHA.2548@TK2MSFTNGP11.phx.gbl...
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges
j'avais essayé
IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif');
IL.ListImages.Add(1,"1","SiteEnt.gif");
qui ne marchaient pas.
IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif"));
rale sur LoadPicture qu'il ne reconnait pas.
pas loin, pas loin ?
Re bonjour bul, En fait tu n'est pas obligé d'utiliser un imagelist Pour cela tu remplace <PARAM NAME="ImageList" VALUE="IL"> par <PARAM NAME="ImageList" VALUE=""> dans la définition de TV L' imagelist sert surtout à associer des images aux noeuds que tu utilises Par exemple : Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1) le 1° "1" sert à indiquer l'image tu associe pour l'affichage et le 2° "1" pour l'image associé lors de la sélection du noeud
En complément, voici un petit sub te donnant le N° d'index et le texte de l'élement sélectionné. Tu peux t'en servir pour déclencher des actions.
Private Sub TV_NodeClick(Node) msgbox("Index = " & Node.Index & " Texte :" & Node.Text) End Sub
je pense que l'on ( enfin surtout tu ) tient le bon bout Georges j'avais essayé IL.ListImages.Add(1,"1",name d'un img avec src='SiteEnt.gif'); IL.ListImages.Add(1,"1","SiteEnt.gif"); qui ne marchaient pas. IL.ListImages.Add(1,"1",LoadPicture("SiteEnt.gif")); rale sur LoadPicture qu'il ne reconnait pas. pas loin, pas loin ?
Bul
merci de ton aide Georges,
En fait tu n'est pas obligé d'utiliser un imagelist ben non, mais c'est plus beau avec une
image associé à un noeud...
Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1) en j[ava]script : var nod=TV.Nodes.add(null,null , "Pere", "Pere",1,1);
et cela fait bien référence à une ImageList et comme elle n'est pas initialisée...
Sinon, mon code précédent fonctionne correctement... je n'en doute pas, mais en j[ava]script LoadPicture
est inconnu, ou je ne dois pas utiliser la bonne syntaxe.
le N° d'index et le texte de l'élement sélectionné. TV.SelectedItem.?? donne l'élément sélectionné
on peut aussi utiliser TV.Nodes.Item(n).?? mais je suis sûr que l'on est pas loin d'une solution.
merci de ton aide Georges,
En fait tu n'est pas obligé d'utiliser un imagelist
ben non, mais c'est plus beau avec une
image associé à un noeud...
Set nod = .Nodes.Add(,,"Pere" , "Pere" & i,1,1)
en j[ava]script : var nod=TV.Nodes.add(null,null , "Pere", "Pere",1,1);
et cela fait bien référence à une ImageList et comme elle n'est
pas initialisée...
Sinon, mon code précédent fonctionne correctement...
je n'en doute pas, mais en j[ava]script LoadPicture
est inconnu, ou je ne dois pas utiliser la bonne syntaxe.
le N° d'index et le texte de l'élement sélectionné.
TV.SelectedItem.?? donne l'élément sélectionné
on peut aussi utiliser TV.Nodes.Item(n).??
mais je suis sûr que l'on est pas loin d'une solution.
