There must be a certain web page knowledge (HTML, JavaScript, CSS) pay attention to the details: no "scroll bar" and "the right-click" IE context menu ",". HTM source file "... I wrote one, the effect is really good !
'Objects: Form1, Command1, CommonDialog1, WebBrowser1Option ExplicitPrivate Sub Command1_Click () CommonDialog1.ShowOpenIf VBA.Len (VBA.Trim (CommonDialog1.FileName))> 0 Then Dim p As stdole.StdPicture Dim As String sPath = VBA.Trim sPath ( VBA.Trim (CommonDialog1.FileName)) Set p = VB.LoadPicture (sPath) WebBrowser1.Width = p.Width * 16/26 WebBrowser1.Height = p.Height * 16/26 'WebBrowser1.Navigate "about: blank" WebBrowser1 .Document.open WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "WebBrowser1.Document.writeln" WebBrowser1.Document.writeln " WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "" WebBrowser1.Document.writeln "" End IfEnd SubPrivate Sub Form_Load () Command1.Caption = "& Open" WebBrowser1.Navigate "about: blank" WebBrowser1.Document.openWebBrowser1.Document .writeln "WebBrowser1.document.writeln" WebBrowser1.document.writeln "" WebBrowser1.doc Ution.writeln "" WebBrowser1.document.writeln "Webbrowser1.document.writeln" WebBrowser1.document.writeln "WebBrowser1.document.closend Sub
