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 biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Help with OCX 1
- Thread starter Peepain
- Start date
-
1
- #2
Here is the exemple of a page I wrote that use an OCX (that I wrote too) :
Water is not bad as long as it stays out human body ;-)
Code:
<SCRIPT Language="VbScript" FOR="myhabTreeView" EVENT="Click">
Call AfficherSelection()
</SCRIPT>
<SCRIPT FOR="myhabTreeView" EVENT="MenuClicked(item)">
Call ExecuterActionOcx(item)
</SCRIPT>
</HEAD>
<BODY bgColor="#F1F1F1">
<OBJECT id="myHabTreeView" Width="100%" height="100%" classid="clsid:10B19744-957E-4534-BB2B-24E1A75DF5EF" CODEBASE="[URL unfurl="true"]http://url/where/the/ocx/can/be/found.ocx"></OBJECT>[/URL]
</BODY>- Thread starter
- #3
Hi Targol and thanks for your reply.
Could you tell me please if you see any error here?
Actually I didn't know if was possible to use OCXs but I received this code.
Thanks a lot.
<%
%>
<HTML>
<HEAD>
<TITLE>ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript
ONLOAD="Initialize()">
<OBJECT ID="RpvReport"
CLASSID="CLSID:6449CBC9-951A-4C82-83F4-45E923D999CA"
WIDTH=100% HEIGHT=95%
CODEBASE="c:\Program Files\RPV\RpvReport.ocx">
<PARAM NAME="EditionEnabled" VALUE=0>
<PARAM NAME="Dirbuttons" VALUE=1>
<PARAM NAME="Findbuttons" VALUE=1>
<PARAM NAME="ExportButton" VALUE=1>
<PARAM NAME="OpenButton" VALUE=1>
<PARAM NAME="PrintButtons" VALUE=1>
<PARAM NAME="SaveButton" VALUE=1>
<PARAM NAME="SendByEMailButton" VALUE=1>
<PARAM NAME="SizeButtons" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Initialize()
Dim Rpv1 As Object
Set Rpv1 = CreateObject("RpvReport"
Rpv1.RpvFileName =
"c:\RPV\InvoiceType5WWF091102[1].39820277.rpv"
Rpv1.ViewRpvReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
Could you tell me please if you see any error here?
Actually I didn't know if was possible to use OCXs but I received this code.
Thanks a lot.
<%
%>
<HTML>
<HEAD>
<TITLE>ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript
ONLOAD="Initialize()">
<OBJECT ID="RpvReport"
CLASSID="CLSID:6449CBC9-951A-4C82-83F4-45E923D999CA"
WIDTH=100% HEIGHT=95%
CODEBASE="c:\Program Files\RPV\RpvReport.ocx">
<PARAM NAME="EditionEnabled" VALUE=0>
<PARAM NAME="Dirbuttons" VALUE=1>
<PARAM NAME="Findbuttons" VALUE=1>
<PARAM NAME="ExportButton" VALUE=1>
<PARAM NAME="OpenButton" VALUE=1>
<PARAM NAME="PrintButtons" VALUE=1>
<PARAM NAME="SaveButton" VALUE=1>
<PARAM NAME="SendByEMailButton" VALUE=1>
<PARAM NAME="SizeButtons" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Initialize()
Dim Rpv1 As Object
Set Rpv1 = CreateObject("RpvReport"
Rpv1.RpvFileName =
"c:\RPV\InvoiceType5WWF091102[1].39820277.rpv"
Rpv1.ViewRpvReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
the problem is that, when writing
, you create a new instance of "RpvReport", you don't link to the object that is contained in your web page.
Try this instead :
Water is not bad as long as it stays out human body ;-)
Code:
Dim Rpv1 As Object
Set Rpv1 = CreateObject("RpvReport")Try this instead :
Code:
Sub Initialize()
Dim Rpv1 ' as keyword is not used in VBScript.
Set Rpv1 = document.getElementById("RpvReport")
Rpv1.RpvFileName =
"c:\RPV\InvoiceType5WWF091102[1].39820277.rpv"
Rpv1.ViewRpvReport
End Sub- Thread starter
- #5
![[cry]](/data/assets/smilies/cry.gif "[cry] [cry]")
??? Water is not bad as long as it stays out human body ;-)- Thread starter
- #7
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question