159.htm

一些简单的编程例子 都是网页的形式

<p>建立你自己的浏览器－Properties</p>
<p></p>
<p></p>
<p>Insert these coding into your Click Event:</p>
<p></p>
<p>Dim eQuery As OLECMDF       ‘return value type for QueryStatusWB</p>
<p>On Error Resume Next</p>
<p>eQuery = webbrowser1.QueryStatusWB(OLECMDID_PROPERTIES)</p>
<p>If Err.Number = 0 Then</p>
<p>If eQuery And OLECMDF_ENABLED Then</p>
<p>Webbrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_PROMPTUSER, “”, “”      ‘Ok to Print?</p>
<p>Else</p>
<p>MsgBox “No contents in Webbrowser”</p>
<p>End If</p>
<p>End If</p>
<p> </p>