Treeview dans un tableau

**Elwe31** · 12/04/2007, 11h18

Bonjour a tous,

Je ne comprends pas pourquoi lorsque je mets un objet treeview dans un tableau il n'apparait pas. voici le code qui ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
54
55
56
57
58
59
60
61
62
63
 
<html><head>
<title>new page</title>
 
<script language="vbscript">
Sub Window_Onload
 
	Dim nodX, listX
	ImageList1.ImageHeight = 16 
	ImageList1.ImageWidth = 16
	Set listX = ImageList1.ListImages.Add(1,"open", LoadPicture("icon3.ico"))
	Set listX = ImageList1.ListImages.Add(2,"closed", LoadPicture("icon3.ico"))
	Set listX = ImageList1.ListImages.Add(3,"leaf", LoadPicture("icon3.ico"))
 
	TreeView1.Checkboxes = False 
	TreeView1.HotTracking = True 
	'TreeView1.Style = 7
	TreeView1.ImageList = ImageList1 
		Set nodX = TreeView1.Nodes.Add(,,"toto","noeud principal","open" )
		Set nodX = TreeView1.Nodes.Add("toto",4,,"sous-noeud 1","open")
		Set nodX = TreeView1.Nodes.Add("toto",4,,"sous-noeud 2","closed")
		Set nodX = TreeView1.Nodes.Add("toto",4,,"sous-noeud 3","leaf")
	nodX.EnsureVisible
	msgbox ImageList1.ImageHeight
End Sub
 
Private Sub TreeView1_NodeClick(ByVal Node)
        strHTML = TreeView1.SelectedItem.Text
	wmi_classes2.insertAdjacentHTML "beforeEnd", strHTML
End Sub
</script>
 
</head>
<body>
<table width="100%" border="1">
  <tr>
    <td width="50%">&nbsp;</td>
    <td width="50%">&nbsp;</td>
  </tr>
  <tr>
    <td>
    <SPAN>
       	<object
    		id="ImageList1"
    		name="ImageList1"
    		classid="CLSID:2C247F23-8591-11D1-B16A-00C0F0283628"
    		width="8" height="8">
    	</object>
    	<object
    	    id="TreeView1"
    	    name="TreeView1"
    	    classid="CLSID:C74190B6-8589-11D1-B16A-00C0F0283628"
    	    width="40%" height="90%">
	</object>
</SPAN>
    </td>
    <td>
    	<span id="wmi_classes2">&nbsp;</span>
    </td>
  </tr>
</table>
</body>
</html>

merci d'avance.

**TotorLeCastor** · 12/04/2007, 11h31

Je n'ai pas de réponse à te donner mais une question :

On est bien d'accord que seulement IE peut interpreter du vbscript ?

Si c'est le cas, j'espère que tu ne veux pas déployer ton site pour des utilisateurs anonymes car ils risquent de ne pas pouvoir afficher ce que tu voudrais.

**Elwe31** · 12/04/2007, 11h35

C'est pour un intranet, donc je sais qu'il on tous IE

**Elwe31** · 12/04/2007, 17h22

ça y est ça fonctionne !!!!
Avec le code si dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    	<object
    	    id="TreeView1"
    	    name="TreeView1"
    	    classid="CLSID:C74190B6-8589-11D1-B16A-00C0F0283628"
    	    width="200" height="400">
	</object>

Treeview dans un tableau

VBScript

Discussions similaires

Partager

Partager