169.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 20 行

<p>建立你自己的浏览器－页面设置</p>
<p></p>
<p>My code will be useful to You. So I am Submitting My code to you. I have retrieved some codes from MSDN Microsoft Web Workshop Website. See that to develop perfect Browser. Here ExecWB Method Contains Excellent (all) Features. My Webbrowser Control name is Webbrowser1 (brwwebbrowser). It Contains Page Setup, Printer Setup, Print, Send To, Properties, Save As coding to develop your own browser in your File Menu.</p>
<p></p>
<p>Page Setup</p>
<p></p>
<p>Insert this code into yourClick Event:</p>
<p></p>
<p>Dim eQuery As OLECMDF </p>
<p>On Error Resume Next</p>
<p>eQuery = webbrowser1.QueryStatusWB(OLECMDID_PAGESETUP)</p>
<p>If Err.Number = 0 Then</p>
<p>If eQuery And OLECMDF_ENABLED Then</p>
<p>webbrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?</p>
<p>Else</p>
<p>MsgBox “No contents of  Webbrowser”</p>
<p>End If</p>
<p>End If</p>
<p> </p>