168.htm

vb功能实例介绍。详细、很好的实例说明。

<p>建立你自己的浏览器－全选</p>
<p></p>
<p></p>
<p></p>
<p>Dim eQuery As OLECMDF       ‘return value type for QueryStatusWB</p>
<p>On Error Resume Next</p>
<p>eQuery = brwwebbrowser.QueryStatusWB(OLECMDID_SELECTALL)</p>
<p>If Err.Number = 0 Then</p>
<p>If eQuery And OLECMDF_ENABLED Then</p>
<p>brwwebbrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?</p>
<p>Else</p>
<p>MsgBox “The Print command is currently disabled.”</p>
<p>End If</p>
<p>End If</p>
<p> </p>