VERSION 5.00Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5640 ClientLeft = 60 ClientTop = 345 ClientWidth = 7485 LinkTopic = "Form1" ScaleHeight = 5640 ScaleWidth = 7485 StartUpPosition = 3 '窗口缺省 Begin SHDocVwCtl.WebBrowser wbMain Height = 3375 Left = 1680 TabIndex = 0 Top = 840 Width = 4335 ExtentX = 7646 ExtentY = 5953 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 1 AutoArrange = 0 'False NoClientEdge = 0 'False AlignLeft = 0 'False NoWebView = 0 'False HideFileNames = 0 'False SingleClick = 0 'False SingleSelection = 0 'False NoFolders = 0 'False Transparent = 0 'False ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "" EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False'wbMain为WebBrowser的名称 Option Explicit Private WithEvents Doc As MSHTML.HTMLDocument ' this will b used to trap the document eventsAttribute Doc.VB_VarHelpID = -1 Private Sub wbMain_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Set Doc = wbMain.Document ' assign the reference to the doc object so that End Sub Private Sub Form_Load() wbMain.Navigate App.Path & "\1.Htm" '可以是Internet上的地址 'wbMain.Navigate "http://www.baidu.com/" End Sub Private Sub Form_Resize() wbMain.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub Private Function Doc_onclick() As Boolean If Doc.activeElement Is Nothing Then Exit Function Else If Doc.activeElement.Id <> "" Then Select Case Doc.activeElement.Id Case "btnClose" '网页上有个按钮 ,ID为btnClose Unload Me End Select End If End If Doc_onclick = True End Function
评论