From: Nicholas Hart <[EMAIL PROTECTED]>
Subject: Re: ActiveX/VBScript problems while linking multiple controls
One thing that immediately jumps out is that you have named both instances
of your ActiveX objects the same, "RVOCX." My first suggestion is that you
rename the 2nd one to something like "StopButton" and see if that solves
your problem.
At 10:07 AM 8/2/99 -0700, you wrote:
>From: "Tony Panza" <[EMAIL PROTECTED]>
>Subject: ActiveX/VBScript problems while linking multiple controls
>
>Hello,
>
>I have been successfully able to VBScript to enhance an ActiveX control I
>inserted into a webpage using the < OBJECT > tag. Here is the code that
>works: (Note: spaces are added after the opening and closing tag signs so
>you can see the code and not the actual output.)
>
>< object id=RVOCX classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"
>width=44 height=26 >
> < param name="SRC" value="sounds/audiosig.rpm" >
> < param name="CONTROLS" value="PlayButton" >
> < param name="CONSOLE" value="jukebox" >
>< /object >
>< form name="Formname" >
> < p >
> < select name="trackmenu" >
> < option selected value="heading" >- Select a Track -< /option >
> < option value="heading" >--- Disco ---< /option >
> < option value="http://www.i82.com/retro/sounds/iwsurviv.rpm" >I Will
>Survive - Gloria Gaynor< /option >
> < option value="http://www.i82.com/retro/sounds/hotstuff.rpm" >Hot
>Stuff - Donna Summer< /option >
> < /select >
> < /p >
> < p >
> < input type="button" value="Change Track" name="change" >
>< script language="VBScript" for="change" event="onClick" >
>
>If Document.Formname.trackmenu.selectedIndex = 2 Then
> Newsource = "http://www.i82.com/retro/sounds/iwsurviv.rpm"
>Elseif Document.Formname.trackmenu.selectedIndex = 3 Then
> Newsource = "http://www.i82.com/retro/sounds/hotstuff.rpm"
>End IF
>
>RVOCX.SetSource(Newsource)
>
>< /script >
> < /p >
>< /form >
>
>The above code works just fine with IE. When I click the "Change Track"
>button, the new clip I want is loaded, and then played when clicking
>PlayButton.
>
>But... when I try to add another control, such as StopButton, I get a script
>error saying "Object doesn't support this property or method:
>'RVOCX.SetSource' " when I click the "Change Track" INPUT button. Here is
>the code that produces the error:
>
>< object id=RVOCX classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"
>width=44 height=26 >
> < param name="SRC" value="sounds/audiosig.rpm" >
> < param name="CONTROLS" value="PlayButton" >
> < param name="CONSOLE" value="jukebox" >
>< /object >
>< object id=RVOCX classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"
>width=26 height=26 >
> < param name="CONTROLS" value="StopButton" >
> < param name="CONSOLE" value="jukebox" >
>< /object >
>< form name="Formname" >
> < p >
> < select name="trackmenu" >
> < option selected value="heading" >- Select a Track -< /option >
> < option value="heading" >--- Disco ---< /option >
> < option value="http://www.i82.com/retro/sounds/iwsurviv.rpm" >I Will
>Survive - Gloria Gaynor< /option >
> < option value="http://www.i82.com/retro/sounds/hotstuff.rpm" >Hot
>Stuff - Donna Summer< /option >
> < /select >
> < /p >
> < p >
> < input type="button" value="Change Track" name="change" >
>< script language="VBScript" for="change" event="onClick" >
>
>If Document.Formname.trackmenu.selectedIndex = 2 Then
> Newsource = "http://www.i82.com/retro/sounds/iwsurviv.rpm"
>Elseif Document.Formname.trackmenu.selectedIndex = 3 Then
> Newsource = "http://www.i82.com/retro/sounds/hotstuff.rpm"
>End IF
>
>RVOCX.SetSource(Newsource)
>
>< /script >
> < /p >
>< /form >
>
>The two ActiveX objects work together (e.g., clicking StopButton stops the
>clip activated with PlayButton), but I get that script error whenever I
>click on the "Change Track" button. Why am I getting this error? What am I
>doing wrong? What can be done to fix it?
>
>Thanks,
>
>Tony Panza
