VBGood网站全文搜索 Google

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


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