new file README.md

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