Codejock Developer Community : WebBrowser1.InnerHTML http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 00:05:56 +0000 Fri, 06 Jan 2012 19:42:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=19389 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[WebBrowser1.InnerHTML : I&#039;m having problems with...]]> http://forum.codejock.com/forum_posts.asp?TID=19389&PID=67342&title=webbrowser1-innerhtml#67342 Author: CDias
Subject: 19389
Posted: 06 January 2012 at 7:42pm

I'm having problems with the component WebBrowser.

If I load the file normally, the script works. For example:

WebBrowser1.Navigate App.Path & "\Html\samplepage.html"
WebBrowser1.SetObjectForScripting Me

Where samplepage.html:

<html>
<head>
<SCRIPT LANGUAGE="JavaScript">
function button_click()
{
    if (window.external != null)
    {
        window.external.ClickFromHTML();
    }
    else
    {
        alert("Messagebox from HTML ");
    }
}
</SCRIPT>
</head>
<body>
<button onclick="button_click()">Click me</button>
</body>
</html>

(as in the example available for the component)
But if I use the innerHTML property of the component, the script does not work.

For example:

        Dim HTML As String
        HTML = "<html>"
        HTML = HTML & "<head>"
        HTML = HTML & "<SCRIPT LANGUAGE=" & Chr(34) & "JavaScript" & Chr(34) & ">"
        HTML = HTML & "Function button_click()"
        HTML = HTML & "{"
        HTML = HTML & "    if (window.external != null)"
        HTML = HTML & "    {"
        HTML = HTML & "        window.external.ClickFromHTML();"
        HTML = HTML & "    }"
        HTML = HTML & "    Else"
        HTML = HTML & "    {"
        HTML = HTML & "        alert(" & Chr(34) & "Messagebox from HTML " & Chr(34) & ");"
        HTML = HTML & "    }"
        HTML = HTML & "}"
        HTML = HTML & "</SCRIPT>"
        HTML = HTML & "</head>"
        HTML = HTML & "<body>"
        HTML = HTML & "<button onclick=" & Chr(34) & "button_click()" & Chr(34) & ">Click me</button>"
        HTML = HTML & "</body>"
        HTML = HTML & "</html>"
        WebBrowser1.SetObjectForScripting Me
        WebBrowser1.InnerHTML = HTML

When I click the button, the following error occurs:



Apparently, the property InnerHTML do not add the tag <Script Language...></Script>

How to fix this?
]]> Fri, 06 Jan 2012 19:42:57 +0000 http://forum.codejock.com/forum_posts.asp?TID=19389&PID=67342&title=webbrowser1-innerhtml#67342