链接拖拽和检测鼠标状态

Question

1、很多浏览把都可以拖拽一个链接，就会在新窗口中打开这个链接，请问这个功能怎么在Webbrowser控件中实现
2、鼠标在Webbrowser中单击事件怎么捕捉

Answer 1

2、鼠标在Webbrowser中单击事件怎么捕捉
---------------------------------------
这个问题不好解决，但是如果点的是超级连接的话，通常会触发NewWindow2、BeforeNavigate2等事件。实际是捕捉Webbrowser的单击事件也没有什么用。
下边的代码，防止连接在新的窗口（IE）中打开。连接只会在Webbrowser中打开：
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
    Set Web_V1 = WebBrowser1.Object
    WebBrowser1.Navigate "www.baidu.com"
End Sub
   
Private Sub Web_V1_NewWindow(ByVal URL As String, _
     ByVal Flags As Long, _
     ByVal TargetFrameName As String, _
     PostData As Variant, _
     ByVal Headers As String, _
     Processed As Boolean)
     Processed = True
     WebBrowser1.Navigate URL
End Sub

Answer 2

1、很多浏览把都可以拖拽一个链接，就会在新窗口中打开这个链接，请问这个功能怎么在Webbrowser控件中实现
-----------------------------------------------------------------------
我的浏览器怎么不行？

Answer 3

需要 Implements IDropTarget
代码请看
http://community.csdn.net/Expert/TopicView.asp?id=4128308

Answer 4

//2、鼠标在Webbrowser中单击事件怎么捕捉对webbrowser做子类处理,响应相应的鼠标消息