VBGood网站全文搜索 Google

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

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.

Page Setup

Insert this code into yourClick Event:

Dim eQuery As OLECMDF
On Error Resume Next
eQuery = webbrowser1.QueryStatusWB(OLECMDID_PAGESETUP)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
webbrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, “”, “”    ‘Ok to Print?
Else
MsgBox “No contents of  Webbrowser”
End If
End If