WebBrowser / My.Resources question

[William Cruz]

Can I call a file (*.html) within My.Resources to show-up in my
WebBrowser control? If so, please provide a sample code or a link.
Thanks in advance for your help.

William Cruz

*** Sent via Developersdex http://www.developersdex.com ***

[William Cruz]

This is what I am doing and it gives me an error:

WebBrowser1.Nav igate(My.Resour ces.Software_Li cense_Agreement )
Error:
"Error HRESULT E_FAIL has been returned from a call to a COM component."
William

*** Sent via Developersdex http://www.developersdex.com ***

[Jonathan Boivin]

You should load the HTML content directly into the webbrowser and not trying
to load from a location.

Here is a code to load dynamicaly the HTML into the webbrowser (You will
have to change the PageForText to your control name or if this code is
within the browser itself, Me).

Private Sub LoadContent(ByV al HTML As String)
' ensure that the document is loaded, otherwise the next line
fails...
If PageForText.Doc ument Is Nothing Then
PageForText.Nav igate2("about:b lank")
' get a reference to the document...
Dim clsDocument As mshtml.HTMLDocu ment = CType(PageForTe xt.Document,
mshtml.HTMLDocu ment)
' initiailize the document using the IPersistStreamI nit COM
interface...
DirectCast(clsD ocument, IPersistStreamI nit).InitNew()
' Marshal the content into a interop stream...
Dim ptrValue As IntPtr =
System.Runtime. InteropServices .Marshal.String ToHGlobalAuto(H TML)
Dim clsStream As System.Runtime. InteropServices .UCOMIStream =
Nothing
CreateStreamOnH Global(ptrValue , True, clsStream)
' load the content into the browser..
DirectCast(clsD ocument, IPersistStreamI nit).Load(clsSt ream)
End Sub
Jonathan Boivin
---
jo************@ cints.net | http://www.cints.net
"William Cruz" <wc*****@msn.co ma écrit dans le message de news:
On************* *@TK2MSFTNGP03. phx.gbl...

This is what I am doing and it gives me an error:

WebBrowser1.Nav igate(My.Resour ces.Software_Li cense_Agreement )
Error:
"Error HRESULT E_FAIL has been returned from a call to a COM component."
William

*** Sent via Developersdex http://www.developersdex.com ***

[Jonathan Boivin]

You will need these too .. (Let me know if something is missing)

Public Enum HRESULT
S_OK = 0
S_FALSE = 1
E_NOTIMPL = &H80004001
E_INVALIDARG = &H80070057
E_NOINTERFACE = &H80004002
E_FAIL = &H80004005
E_UNEXPECTED = &H8000FFFF
End Enum

<ComVisible(Tru e), ComImport(),
Guid("7FD52380-4E07-101B-AE2D-08002B2EC713"),
InterfaceTypeAt tribute(ComInte rfaceType.Inter faceIsIUnknown) _
Public Interface IPersistStreamI nit : Inherits IPersist
Shadows Sub GetClassID(ByRe f pClassID As Guid)
<PreserveSig()F unction IsDirty() As Integer
<PreserveSig()F unction Load(ByVal pstm As UCOMIStream) As HRESULT
<PreserveSig()F unction Save(ByVal pstm As UCOMIStream,
<MarshalAs(Unma nagedType.Bool) ByVal fClearDirty As Boolean) As HRESULT
<PreserveSig()F unction GetSizeMax(<InA ttribute(), Out(), _
MarshalAs(Unman agedType.U8)ByR ef pcbSize As Long) As HRESULT
<PreserveSig()F unction InitNew() As HRESULT
End Interface

<ComVisible(Tru e), ComImport(),
Guid("0000010c-0000-0000-C000-000000000046"),
InterfaceTypeAt tribute(ComInte rfaceType.Inter faceIsIUnknown) _
Public Interface IPersist
Sub GetClassID(ByRe f pClassID As Guid)
End Interface

Declare Function CreateStreamOnH Global Lib "ole32" (ByVal hGlobal As
IntPtr, ByVal fDeleteOnReleas e As Boolean, ByRef ppstm As UCOMIStream) As
Long
Jonathan Boivin
---
jo************@ cints.net | http://www.cints.net
"William Cruz" <wc*****@msn.co ma écrit dans le message de news:
eh************* @TK2MSFTNGP04.p hx.gbl...

Can I call a file (*.html) within My.Resources to show-up in my
WebBrowser control? If so, please provide a sample code or a link.
Thanks in advance for your help.

William Cruz

*** Sent via Developersdex http://www.developersdex.com ***