Option ExplicitPrivate Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.csdn.net/"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
MsgBox "new"
Cancel = True '1.取消新窗口
'Set ppDisp = WebBrowser2.Object '2.在自已的WebBrowser中打开
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.csdn.net/"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
MsgBox "new"
Cancel = True '1.取消新窗口
'Set ppDisp = WebBrowser2.Object '2.在自已的WebBrowser中打开
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货