M
mrrrhanson
Hi.
I was converting a file from JS to VBS and ran upon the problem of
captureing events.
The quik questions ..
Can i capture activex events in an .hta file useing vbscript ...??
Is JScript the only way to do this inside an .htm file?
//////////////////////////////////
<SCRIPT LANGUAGE="JavaScript">
// Create the Sapi SpVoice object
var VoiceObj = new ActiveXObject("Sapi.SpVoice");
// lots of fun code
// Handle EndStream Event
function VoiceObj::EndStream() {
idbSpeakText.value = "SpeakText";
idImage.src = "mouthclo.bmp";
}
//// Events are captured and useable useing JScript.. but, i want to be able
to use all VBscript
//////////////////////////////////////////////
'----
My conversion of the 'fun code' to vbs is fine, but the events dont work
'----
<SCRIPT LANGUAGE="VBScript">
Dim VoiceObj : Set VoiceObj = Createobject("Sapi.SpVoice") ' this cannot
find server.. thus no events
'// Handle EndStream Event
Sub VoiceObj_EndStream()
idbSpeakText.value = "SpeakText"
idImage.src = "mouthclo.bmp"
End Sub
'-- then i tried
Dim WithEvents
Set VoiceObj = CreateObject("Sapi.SpVoice")
' this dont do it.. no events
'--
i cannt use this one cuz it needs WScript object (but it works fine in a
xxxx.vbs file
Set VoiceObj = WScript.CreateObject("VoiceObj","VoiceObj_")
i have adjusted and tinkered all the code .... and must be missing
something.
is a Type library the answer..? i have'nt checked on these yet..
I was converting a file from JS to VBS and ran upon the problem of
captureing events.
The quik questions ..
Can i capture activex events in an .hta file useing vbscript ...??
Is JScript the only way to do this inside an .htm file?
//////////////////////////////////
<SCRIPT LANGUAGE="JavaScript">
// Create the Sapi SpVoice object
var VoiceObj = new ActiveXObject("Sapi.SpVoice");
// lots of fun code
// Handle EndStream Event
function VoiceObj::EndStream() {
idbSpeakText.value = "SpeakText";
idImage.src = "mouthclo.bmp";
}
//// Events are captured and useable useing JScript.. but, i want to be able
to use all VBscript
//////////////////////////////////////////////
'----
My conversion of the 'fun code' to vbs is fine, but the events dont work
'----
<SCRIPT LANGUAGE="VBScript">
Dim VoiceObj : Set VoiceObj = Createobject("Sapi.SpVoice") ' this cannot
find server.. thus no events
'// Handle EndStream Event
Sub VoiceObj_EndStream()
idbSpeakText.value = "SpeakText"
idImage.src = "mouthclo.bmp"
End Sub
'-- then i tried
Dim WithEvents
Set VoiceObj = CreateObject("Sapi.SpVoice")
' this dont do it.. no events
'--
i cannt use this one cuz it needs WScript object (but it works fine in a
xxxx.vbs file
Set VoiceObj = WScript.CreateObject("VoiceObj","VoiceObj_")
i have adjusted and tinkered all the code .... and must be missing
something.
is a Type library the answer..? i have'nt checked on these yet..