Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

How to Use ActiveX Treeview Control in Frontpage98

Posted on 2000-04-06
16
Medium Priority
?
320 Views
Last Modified: 2013-12-24
Can anyone give me an example of how to use the Treeview control?

Alternatively, can you point me to some literature which will explain how to use it?

I simply want to use it to display a fixed list of topics which are expandable to sub-topics. The latter will link to various URLs in our intranet.
0
Comment
Question by:ravl
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 9
  • 7
16 Comments
 
LVL 2

Expert Comment

by:brice123
ID: 2692520
  <HTML>
   <HEAD>
   <TITLE>New Page</TITLE>
   </HEAD>
   <BODY>

   <OBJECT  ID="TreeView1"
      TYPE="application/x-oleobject"
      CLASSID="CLSID:0713E8A2-850A-101B-AFC0-4210102A8DA7"
      CODEBASE="/scripts/comctl32.ocx"
     WIDTH=100% HEIGHT=82% >
   </OBJECT>

   <FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here"></FORM>

       <SCRIPT LANGUAGE="VBScript">
   <!--

   Sub Button1_OnClick()
       Dim nodX, imgX

       TreeView1.LineStyle=1

       Set nodX = TreeView1.Nodes.Add(,, "r", "Root")

       Set nodX = TreeView1.Nodes.Add(nodX.Index, 4, "r1", "Item 1")

       Set nodX = TreeView1.Nodes.Add(nodX.Index, 4, "r2", "Item 2")

    end sub
   -->
       </SCRIPT>


   </BODY>
   </HTML>
0
 
LVL 2

Expert Comment

by:brice123
ID: 2692572
I've added some code for the navigation. Drop me a line if you need further explanations.

   <HTML>
   <HEAD>
   <TITLE>New Page</TITLE>
   </HEAD>
   <BODY>

   <OBJECT  ID="TreeView1"
      TYPE="application/x-oleobject"
      CLASSID="CLSID:0713E8A2-850A-101B-AFC0-4210102A8DA7"
      CODEBASE="/scripts/comctl32.ocx"
     WIDTH=100% HEIGHT=82% >
   </OBJECT>

   <SCRIPT LANGUAGE="VBScript">
   <!--

   Sub Window_OnLoad()
       Dim nodX, nodRoot

       TreeView1.LineStyle=1

       Set nodRoot = TreeView1.Nodes.Add(,, "r", "Links")

       Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.experts-exchange.com", "Experts Exchange")

       Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.microsoft.com", "Microsoft")

    End Sub

    Sub Treeview1_DblClick
      On Error Resume Next

      If TreeView1.SelectedItem.Index > 1 Then
            If Err.Number = 0 Then
                  Navigate TreeView1.SelectedItem.Key
            End If
      End If
    End Sub
   -->
   </SCRIPT>


   </BODY>
   </HTML>
0
 
LVL 1

Author Comment

by:ravl
ID: 2698643
Thank you for that answer brice123. I get the idea. Just one thing - I can get it to work in FP98 with both Treeview controls (5.0,SP2 and 6.0) using IE5, but it doesn't work in FP98 (5.0, SP2) using IE4.0. The error is "object doesn't support this object or method - Treeview1.Linestyle".
0
Veeam Disaster Recovery in Microsoft Azure

Veeam PN for Microsoft Azure is a FREE solution designed to simplify and automate the setup of a DR site in Microsoft Azure using lightweight software-defined networking. It reduces the complexity of VPN deployments and is designed for businesses of ALL sizes.

 
LVL 1

Author Comment

by:ravl
ID: 2698647
Sorry - in my previous comment "FP98 with both Treeview controls (5.0,SP2 and 6.0) using IE5" read "FP2K with both Treeview controls (5.0,SP2 and 6.0) using IE5"
0
 
LVL 1

Author Comment

by:ravl
ID: 2698655
Further - in the 2nd example (navigation), the tree doesn't load in Window_Onload event. The code works if I move it to the Button1_OnClick event.
0
 
LVL 2

Expert Comment

by:brice123
ID: 2699197
Strange, the second sample seems to work fine with IE5 and the Treeview Control 5.0 SP2.

Which version of vbscript.dll are you using? (5.0.0.3715?)

0
 
LVL 1

Author Comment

by:ravl
ID: 2702269
OK - everything works with FP2K and IE5. Don't know what went wrong the first time. However, I can't get it to work with FP98 and IE4 which is where I need it. The error is "object doesn't support this object or method - Treeview1.Linestyle". The vbscript version here is 3.1.0.2414.
0
 
LVL 2

Expert Comment

by:brice123
ID: 2702964
OK, I will try it tonight on IE4. What happens if you remove that line? Do you get further errors messages or not?
0
 
LVL 1

Author Comment

by:ravl
ID: 2705702
If I remove the line I get the same error on the next line. It doesn't seem to recognise the methods for the object.
0
 
LVL 2

Expert Comment

by:brice123
ID: 2706569
Maybe try to add a NAME argument behind the OBJECT tag :

<object id="Treeview1" name="Treeview1" ...
0
 
LVL 2

Expert Comment

by:brice123
ID: 2706578
The following sample works fine with IE4. Unfortunately, FP98 was not available on my test PC; so I used FP Express and the ActiveX Notepad tool for setting-up the control properties (linestyle, font, etc.).
For the test, I also placed an ImageList control containing two icons.

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<script language="VBScript">
<!--
Sub window_onLoad()
      Dim nodX, nodRoot

      Set Treeview1.ImageList = ImageList1
      Set nodRoot = Treeview1.Nodes.Add(,, "r", "Links",1,2)
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.experts-exchange.com", "Experts Exchange",1,2)
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.microsoft.com", "Microsoft",1,2)
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.apple.com", "Apple",1,2)
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.sun.com", "Sun Microsystems",1,2)
End Sub
-->
    </script><object id="ImageList1"
data="DATA:application/x-oleobject;BASE64,j43aWGqdGxCvwEIQECqNpyFDNBIIAAAA7QMAAO0DAACQjdpYAAAFACIAAAAQABAAwMDAAP//AAAB782rAAAFAKDuaAAGAAAA/////wUAAIAAAAAAAgAAAAAAAgAAAAEAAABsdAAAQAEAAAAAAQABABAQEAAAAAAAKAEAABYAAAAoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO/v7+/v7+wA/v7+/v7+/AD/7+/v7+/sAP7+/v7+/vwA/+/v7+/v7AD+/v7+/v78AP/v7+/v7+wA/v7+/v7+/AD////////sAP7+/vzMzMwAD//vzAAAAAAAzMzAAAAAAAAAAAAAAAA//8AAP//AADAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAEAAMA/AADgfwAA//8AAAAAAgAAAGx0AABAAQAAAAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADMzMzMzMwAAP/v7+/vzAAP/v7+/v7AwA/v7+/v7MDA/v7+/v78PsD/7+/v7+wvwMzMzMzMzv7AD+/v7+/v78AP/v7+///+wA/v7+/MzMzAAP///MAAAAAADMzMAAAAAAAAAAAAAAAD//wAA//8AAOAAAADAAAAAwAAAAIAAAACAAAAAAAAAAAAAAAAAAAAAgAAAAIAAAACAAQAAwH8AAOD/AAD//wAAAAAAAA=="
classid="CLSID:58DA8D8F-9D6A-101B-AFC0-4210102A8DA7"
align="baseline" border="0" width="39" height="39"></object>

<p><script language="VBScript">
<!--
Sub Treeview1_DblClick()
      On Error Resume Next

      If Treeview1.SelectedItem.Index > 1 Then
            If Err.Number = 0 Then
                  Navigate Treeview1.SelectedItem.Key
            End If
      End If
End Sub
-->
    </script> <object id="Treeview1"
name="Treeview1"
data="DATA:application/x-oleobject;BASE64,ougTBwqFGxCvwEIQECqNpyFDNBIIAAAAJSAAAMUaAACj6BMHAAAFACIAAAC91gCqwgIAAAEAAAAB782rAAAFAHKn8WUGAAAAEgAAgAUAAIC87mgAAQAAAFwAH97svQAABQDRTUgAAQAAAJABREIBAA1NUyBTYW5zIFNlcmlmSAA="
classid="CLSID:0713E8A2-850A-101B-AFC0-4210102A8DA7"
align="baseline" border="0" width="250" height="300"></object> </p>
</body>
</html>
0
 
LVL 2

Expert Comment

by:brice123
ID: 2707143
Oops, sorry for the width of my text...
This one is more readable:

<html>
<head>
<title></title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<script language="VBScript">
<!--
Sub window_onLoad()
      Dim nodX, nodRoot

      Set nodRoot = Treeview1.Nodes.Add(,, "r", "Links")
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.experts-exchange.com", "Experts Exchange")
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.microsoft.com", "Microsoft")
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.apple.com", "Apple")
      Set nodX = TreeView1.Nodes.Add(nodRoot.Index, 4, "http:\\www.sun.com", "Sun Microsystems")
End Sub
-->
    </script>
<p><script language="VBScript">
<!--
Sub Treeview1_DblClick()
      On Error Resume Next

      If Treeview1.SelectedItem.Index > 1 Then
            If Err.Number = 0 Then
                  Navigate Treeview1.SelectedItem.Key
            End If
      End If
End Sub
-->
    </script> <object id="Treeview1"
name="Treeview1"
data="DATA:application/x-oleobject;BASE64,ougTBwqFGxCvwEIQECqNpyFDNBIIAAAAJSAAAMUaAACj6BMHAAAFACIAAAC91gCqwgIAAAEAAAAB782rAAAFAHKn8WUGAAAAEgAAgAUAAIC87mgAAQAAAFwAH97svQAABQDRTUgAAQAAAJABREIBAA1NUyBTYW5zIFNlcmlmSAA="
classid="CLSID:0713E8A2-850A-101B-AFC0-4210102A8DA7"
align="baseline" border="0" width="250" height="300"></object> </p>
</body>
</html>
0
 
LVL 1

Author Comment

by:ravl
ID: 2710466
Again, it works fine with FP200/IE5 but not with FP98/IE4!!!

I won't ask you to try to solve that environment problem. You've provided me with a very good answer and I thank you for your time on this. It has been a great help. As a site we'll be moving to IE5 shortly and so hopefully I'll be right then.

This is the first time I've used this facility - do I have to do something to close this off?
0
 
LVL 2

Expert Comment

by:brice123
ID: 2710647
Just accept this answer message if you want to give me the points.
Thanks in advance.

A last word: maybe you should use a Java applet in place of an ActiveX control for a better browser compatibility.

http://www.javaside.com/j_tliste.html
http://www.devdaily.com/java/applets/URLTree/
http://javaboutique.internet.com/TreeView/
0
 
LVL 2

Accepted Solution

by:
brice123 earned 400 total points
ID: 2710648
Here it is...
0
 
LVL 1

Author Comment

by:ravl
ID: 2710696
Thanks again.
0

Featured Post

Learn how to optimize MySQL for your business need

With the increasing importance of apps & networks in both business & personal interconnections, perfor. has become one of the key metrics of successful communication. This ebook is a hands-on business-case-driven guide to understanding MySQL query parameter tuning & database perf

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This guide will walk you through the essential considerations and tech stack for building scalable websites. Know how to grow your business the smart way!
Originally, this post was published on Monitis Blog, you can check it here . It goes without saying that technology has transformed society and the very nature of how we live, work, and communicate in ways that would’ve been incomprehensible 5 ye…
The purpose of this video is to demonstrate how to Import and export files in WordPress. This will be demonstrated using a Windows 8 PC. Go to your WordPress login page. This will look like the following: mywebsite.com/wp-login.php : Click on Too…
The purpose of this video is to demonstrate how to prevent comment spam on a WordPress Website. This will be demonstrated using a Windows 8 PC. Plugin Akismet will be used. Go to your WordPress login page. This will look like the following: myw…

670 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question