Javascript & WebBrowser1 control

[Florin]

Hi,

How can get the javascript using a button Command1 ?
I want to create the html on the fly.
This one doesn't work:

Private Sub Command1_Click( )
WebBrowser1.Nav igate "javascript:cal lAlert()"
End Sub

Private Sub WebBrowser1_Doc umentComplete(B yVal pDisp As Object, URL As Variant)

Dim sHTML As String
sHTML = "<P>This is some text.</P>"

sHTML = sHTML & "<script type=""text/javascript"">" & vbCrLf
sHTML = sHTML & "<!--" & vbCrLf
sHTML = sHTML & "function callAlert(){" & vbCrLf
sHTML = sHTML & "alert(""Test"" );" & vbCrLf
sHTML = sHTML & "}" & vbCrLf
sHTML = sHTML & " //-->" & vbCrLf
sHTML = sHTML & "</script>" & vbCrLf

WebBrowser1.Doc ument.body.inne rHTML = sHTML

End Sub

[Hal Rosser]

put an html button on the page with an onClick event handler that calls the
javascript function
server-side script can't call client-side script functions

"Florin" <fl*****@mccowa n.ca> wrote in message
news:29******** *************** ***@posting.goo gle.com...

Hi,

How can get the javascript using a button Command1 ?
I want to create the html on the fly.
This one doesn't work:

Private Sub Command1_Click( )
WebBrowser1.Nav igate "javascript:cal lAlert()"
End Sub

Private Sub WebBrowser1_Doc umentComplete(B yVal pDisp As Object, URL As Variant)
Dim sHTML As String
sHTML = "<P>This is some text.</P>"

sHTML = sHTML & "<script type=""text/javascript"">" & vbCrLf
sHTML = sHTML & "<!--" & vbCrLf
sHTML = sHTML & "function callAlert(){" & vbCrLf
sHTML = sHTML & "alert(""Test"" );" & vbCrLf
sHTML = sHTML & "}" & vbCrLf
sHTML = sHTML & " //-->" & vbCrLf
sHTML = sHTML & "</script>" & vbCrLf

WebBrowser1.Doc ument.body.inne rHTML = sHTML

End Sub

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.732 / Virus Database: 486 - Release Date: 7/29/2004

[mayayana]

I didn't test your dynamic writing of the script tag,
but I'll assume that part works.
If you reference MSHTML.TLB in the project you
get access to the DOM.
I'm not sure what syntax you'll need to get access
to the script. Maybe something like this will work:

Dim Doc As mshtml.HTMLDocu ment
Set Doc = WebBrowser1.Doc ument
s = Doc.scripts.Ite m("callAlert()" )
Doc.parentWindo w. execScript("cal lAlert()", "javascript ")

--
--
Florin <fl*****@mccowa n.ca> wrote in message
news:29******** *************** ***@posting.goo gle.com...

Hi,

How can get the javascript using a button Command1 ?
I want to create the html on the fly.
This one doesn't work:

Private Sub Command1_Click( )
WebBrowser1.Nav igate "javascript:cal lAlert()"
End Sub

Private Sub WebBrowser1_Doc umentComplete(B yVal pDisp As Object, URL As Variant)
Dim sHTML As String
sHTML = "<P>This is some text.</P>"

sHTML = sHTML & "<script type=""text/javascript"">" & vbCrLf
sHTML = sHTML & "<!--" & vbCrLf
sHTML = sHTML & "function callAlert(){" & vbCrLf
sHTML = sHTML & "alert(""Test"" );" & vbCrLf
sHTML = sHTML & "}" & vbCrLf
sHTML = sHTML & " file://-->" & vbCrLf
sHTML = sHTML & "</script>" & vbCrLf

WebBrowser1.Doc ument.body.inne rHTML = sHTML

End Sub