Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
tree view menu with pure vbscript
- Thread starter WiccaChic
- Start date
dilettante
MIS
Well neither script engine provides a sophisticated GUI. That's typically done by having the script manipulate its host or some ActiveX object.
Your post suggests you are talking about DHTML hosted client-side within Internet Explorer.
I'd guess you would do this more or less the same as from JavaScript/JScript: by manipulating the object model of the IE document.
I haven't done it myself. Sounds finicky but not difficult.
Your post suggests you are talking about DHTML hosted client-side within Internet Explorer.
I'd guess you would do this more or less the same as from JavaScript/JScript: by manipulating the object model of the IE document.
I haven't done it myself. Sounds finicky but not difficult.
- Thread starter
- #3
WiccaChic's Member Profile
Threads I've Started: 54
Replies In My Own Threads: 32
While in the forums, I have voted 0 posts helpful
And before anyone asks...I have nothing yet!
This is not a helpdesk. We are not here to do your job for you. Show us what you have tried already and we can try to help but we are not here to do your work for you
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244
Threads I've Started: 54
Replies In My Own Threads: 32
While in the forums, I have voted 0 posts helpful
And before anyone asks...I have nothing yet!
This is not a helpdesk. We are not here to do your job for you. Show us what you have tried already and we can try to help but we are not here to do your work for you
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244
<! -- Copy the code below -->
script language=vbscript>
sub treebuild()
Dim nodx
Set nodX = TreeView.Nodes.Add( , , "TEST 1" , "TEST 1")
nodX.tag = "
Set nodX = TreeView.Nodes.Add( "TEST 1", "4", "A" , "A")
nodX.tag = "end sub
function TreeView_DBlClick()
if isnull(TreeView.SelectedItem.Tag) = false then
window.open(TreeView.SelectedItem.Tag)
end if
end function
</script>
<body onload=treebuild><table><tr><td><OBJECT id=TreeView style='LEFT: 0px; WIDTH: 400px; TOP: 0px; HEIGHT: 200px' classid=clsid:C74190B6-8589-11D1-B16A-00C0F0283628 name=TreeView VIEWASTEXT><PARAM NAME='_ExtentX' VALUE='9260'><PARAM NAME='_ExtentY' VALUE='18521'><PARAM NAME='_Version' VALUE='393217'><PARAM NAME='HideSelection' VALUE='0'><PARAM NAME='Indentation' VALUE='265'><PARAM NAME='LabelEdit' VALUE='0'><PARAM NAME='LineStyle' VALUE='1'><PARAM NAME='PathSeparator' VALUE=''><PARAM NAME='Sorted' VALUE='1'><PARAM NAME='Style' VALUE='7'><PARAM NAME='Checkboxes' VALUE='False'><PARAM NAME='FullRowSelect' VALUE='0'><PARAM NAME='HotTracking' VALUE='False'><PARAM NAME='Scroll' VALUE='1'><PARAM NAME='SingleSel' VALUE=0''><PARAM NAME='ImageList' VALUE=''><PARAM NAME='BorderStyle' VALUE='1'><PARAM NAME='Appearance' VALUE='0'><PARAM NAME='MousePointer' VALUE='0'><PARAM NAME='Enabled' VALUE='1'><PARAM NAME='OLEDragMode' VALUE='0'><PARAM NAME='OLEDropMode' VALUE='0'></OBJECT></td></tr></table>
John Kirk
Und Methods & Procedure Specialist
script language=vbscript>
sub treebuild()
Dim nodx
Set nodX = TreeView.Nodes.Add( , , "TEST 1" , "TEST 1")
nodX.tag = "
Set nodX = TreeView.Nodes.Add( "TEST 1", "4", "A" , "A")
nodX.tag = "end sub
function TreeView_DBlClick()
if isnull(TreeView.SelectedItem.Tag) = false then
window.open(TreeView.SelectedItem.Tag)
end if
end function
</script>
<body onload=treebuild><table><tr><td><OBJECT id=TreeView style='LEFT: 0px; WIDTH: 400px; TOP: 0px; HEIGHT: 200px' classid=clsid:C74190B6-8589-11D1-B16A-00C0F0283628 name=TreeView VIEWASTEXT><PARAM NAME='_ExtentX' VALUE='9260'><PARAM NAME='_ExtentY' VALUE='18521'><PARAM NAME='_Version' VALUE='393217'><PARAM NAME='HideSelection' VALUE='0'><PARAM NAME='Indentation' VALUE='265'><PARAM NAME='LabelEdit' VALUE='0'><PARAM NAME='LineStyle' VALUE='1'><PARAM NAME='PathSeparator' VALUE=''><PARAM NAME='Sorted' VALUE='1'><PARAM NAME='Style' VALUE='7'><PARAM NAME='Checkboxes' VALUE='False'><PARAM NAME='FullRowSelect' VALUE='0'><PARAM NAME='HotTracking' VALUE='False'><PARAM NAME='Scroll' VALUE='1'><PARAM NAME='SingleSel' VALUE=0''><PARAM NAME='ImageList' VALUE=''><PARAM NAME='BorderStyle' VALUE='1'><PARAM NAME='Appearance' VALUE='0'><PARAM NAME='MousePointer' VALUE='0'><PARAM NAME='Enabled' VALUE='1'><PARAM NAME='OLEDragMode' VALUE='0'><PARAM NAME='OLEDropMode' VALUE='0'></OBJECT></td></tr></table>
John Kirk
Und Methods & Procedure Specialist
- Status
Similar threads
- Locked
- Question