From 2d4e4ada0324c24f524dda60fc46240e53e18424 Mon Sep 17 00:00:00 2001
From: 502647092 <jtb1@163.com>
Date: Mon, 8 Jun 2015 23:25:10 +0800
Subject: [PATCH] new file README.md

---
 README.md | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 README.md

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..fb18c95
--- /dev/null
+++ b/README.md
@@ -0,0 +1,44 @@
+#LoadFirstPic
+代码1：
+
+Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
+Dim frm As Form1
+Set frm = New Form1
+frm.Visible = True
+Set ppDisp = frm.WebBrowser1.object
+End Sub
+
+代码2：
+
+Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
+Cancel = True
+WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
+End Sub
+
+代码3：
+
+Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
+On Error Resume Next
+Dim frmWB As Form1
+Set frmWB = New Form1
+frmWB.WebBrowser1.RegisterAsBrowser = True
+Set ppDisp = frmWB.WebBrowser1.object
+frmWB.Visible = True
+frmWB.Top = Form1.Top
+frmWB.Left = Form1.Left
+frmWB.Width = Form1.Width
+frmWB.Height = Form1.Height
+End Sub
+
+代码4：这个最好用了
+
+Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
+
+PrivateSub Form_Load()
+    Set Web_V1 = WebBrowser1.Object
+End Sub
+    
+PrivateSub Web_V1_NewWindow(ByVal URL AsString, ByVal Flags AsLong, ByVal TargetFrameName AsString, PostData As Variant, ByVal Headers AsString, Processed AsBoolean)
+    Processed =True
+    WebBrowser1.Navigate URL
+End Sub
\ No newline at end of file