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%"> </td>
<td width="50%"> </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"> </span>
</td>
</tr>
</table>
</body>
</html> |
Partager