[RESOLVED ]Setting webbrowser contents

Printable View

Nov 29th, 2001, 07:03 AM
Kzin

[RESOLVED ]Setting webbrowser contents

Is there a command that is to opposite of

Code:

Text1 = brwBrowser.Document.documentElement.InnerHTML

which I can use to put an ascii string into a webbrowser without having to load it from the disc (i.e. without having to navigate)?
Nov 29th, 2001, 08:42 AM
mlewis

try this

brwBrowser.Document.documentElement.InnerHTML = Text1 ???
Nov 29th, 2001, 08:45 AM
Kzin

1 Attachment(s)

Nope not that onehttp://www.vbforums.com/attachment.php?s=&postid=673592
Nov 29th, 2001, 09:00 AM
mlewis

All I can suggest then is to write it to a temp file and then use Navigate :(
Nov 29th, 2001, 09:02 AM
Kzin

Quote:

Originally posted by mlewis
All I can suggest then is to write it to a temp file and then use Navigate :(

That's what I've done before but I don't want to write to disk with this particular app
Nov 29th, 2001, 09:05 AM
mlewis

Guess you're stuck then...

How about something like this. (Don't forget to remove the space between "about" and ":")

VB Code:

Private Sub myPage()
    Dim strHTML as String
    
    strHTML = "about:<html>"
    strHTML = strHTML & "<head><title>My Page</title></head>"
    strHTML = strHTML & "<body bgcolor=#000000 text=#FFFFFF>"
    strHTML = strHTML & "<center>Hi There!</center>"</body>"
    strHTML = strHTML & "</html>"
 
    WebBrowser1.Navigate strHTML
End Sub

Quote:
Originally posted by Bloodeye
How about something like this. (Don't forget to remove the space between "about" and ":")

VB Code:

Private Sub myPage()
Dim strHTML as String

strHTML = "about:<html>"
strHTML = strHTML & "<head><title>My Page</title></head>"
strHTML = strHTML & "<body bgcolor=#000000 text=#FFFFFF>"
strHTML = strHTML & "<center>Hi There!</center>"</body>"
strHTML = strHTML & "</html>"

WebBrowser1.Navigate strHTML
End Sub
Its looking very promising even if it did not work for me when I tried it. Have you tested it bloodeye?

Nov 29th, 2001, 09:35 AM
mlewis

Try webbrowser.navigate "about:test" and see what pops up.
Nov 29th, 2001, 09:40 AM
Static

there is also a way to write to the webbrowser...
but I cant remember!!!

something like

Webbrowser1.Document.Write (thats not it...but...)

well I forgot about that one Bloodeye..

That way works much better than the Write method.

Kzin..hes got an extra " in there....and be sure to remove the space between about and :
Nov 29th, 2001, 09:41 AM
Kzin

Yes that works - now I'll try some html
Nov 29th, 2001, 09:46 AM
Kzin

so

Code:

<html><body>???</body></html>

is a valid displayable .htm file but will not show if you use about:

We must be nearly there - are their any other commands like about?
Nov 29th, 2001, 09:47 AM
Kzin

Quote:

Originally posted by geoff_xrx
Kzin..hes got an extra " in there....and be sure to remove the space between about and :

Thanks I got that one but it wasn't the problem
Nov 29th, 2001, 09:49 AM
Kzin

Quote:

Originally posted by geoff_xrx
there is also a way to write to the webbrowser...
but I cant remember!!!

something like

Webbrowser1.Document.Write (thats not it...but...)

Keep thinking - :)

I've been looking on http://msdn.microsoft.com/library/de...er/wbentry.asp but can't see the answer but we must be nearly there!

Here's another way. Give this a try. Remove the space after "about"
You will need to make a reference to the (Microsoft HTML Object library).

VB Code:

Dim htmlDoc As HTMLDocument
 
Private Sub Command1_Click()
    htmlDoc.body.innerHTML = Text1.Text
    WebBrowser1.Document.body.bgColor = "#000000"
    WebBrowser1.Document.body.Text = "#FFFFFF"
End Sub
 
Private Sub Form_Load()
    Dim strHTML As String
    
    strHTML = "<html><head><title>My Page</title></head><center>Hi There!</center></body></html>"
 
    Text1.Text = strHTML
    WebBrowser1.Navigate "about:blank"
End Sub
 
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Set htmlDoc = Nothing
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set htmlDoc = WebBrowser1.Document
End Sub

Nov 29th, 2001, 10:05 AM
mlewis

That won't work, you have to set the Webbrowser's document property to the htmlDoc somewheres!
Nov 29th, 2001, 10:11 AM
Bloodeye

Quote:

Originally posted by mlewis
That won't work, you have to set the Webbrowser's document property to the htmlDoc somewheres!

Hmmmm.....Maybe you should try the code before you post. :D
BTW: I have set htmlDoc = WebBrowser1.Document in the DocumentComplete event.
Nov 29th, 2001, 10:28 AM
Kzin

Yes - it works - impressive!!
Thanks
Nov 29th, 2001, 11:06 AM
mlewis

Quote:

Originally posted by Bloodeye

Hmmmm.....Maybe you should try the code before you post. :D
BTW: I have set htmlDoc = WebBrowser1.Document in the DocumentComplete event.

How does the WebBrowser know to reference the htmlDoc object?

Set A = B does NOT set B to A!!!
Nov 29th, 2001, 11:27 AM
Bloodeye

I really have no idea what it is that your asking....?
The htmlDoc Object, I believe is the same as the "Document Object" within the WebBrowser Control.
Maybe someone else can help explain this better. :)
Nov 29th, 2001, 12:17 PM
mlewis

NRGH.

The htmlDoc object in your code is a VARIABLE!!!!!! FOR THE WEBBROWSER TO HAVE THE SAME HTML CODE AS THE VARIABLE YOU MUST WRITE

Set WebBrowser.document = htmlDoc

!!!!!!!
Nov 29th, 2001, 12:24 PM
mlewis

n/m I figgered it :rolleyes: :D
Nov 29th, 2001, 12:32 PM
Kzin

Another presumably simplier one

Text1 = brwBrowser.Document.documentElement.InnerHTML

gets the html - is there an easy way to get the text that is displayed in the webbrowser as a string without the tags/formatting
Nov 29th, 2001, 12:48 PM
Bloodeye

For the Text without the formatting try either:

Text1 = brwBrowser.Document.documentElement.InnerText
OR
Text1 = brwBrowser.Document.documentElement.OuterText
Nov 29th, 2001, 12:57 PM
Kzin

Thanks - that worked well