VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 建立你自己的浏览器-全选
发表评论(0)作者:Soma Sundaram, 平台:VB6.0+Win98, 阅读:8536, 日期:2001-04-28
Select All


Dim eQuery As OLECMDF       ‘return value type for QueryStatusWB
On Error Resume Next
eQuery = brwwebbrowser.QueryStatusWB(OLECMDID_SELECTALL)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
brwwebbrowser.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?
Else
MsgBox “The Print command is currently disabled.”
End If
End If