pb里使用WebBrowser，怎样获取鼠标停留在一个超链上时的地址
pb里使用WebBrowser，怎样获取鼠标停留在一个超链上时的地址，就象IE那样,不用点只是把鼠标指在上面就能获得其链接地址?
[解决办法]
不点击很难取得地址的，点击你可以通过以下代码来实现
以下是VB的代码
从BeforeNavigate2事件中的url获得:
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox "你要转到:" & URL
End Sub
如果是打开新窗口,可试试newwindow2事件.
参考一下这个例子:
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox URL
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
End Sub
[解决办法]
在ole对象的statustextchange事件中，写
st_statusbar.text = text //st_statusbar指的是你用来显示链接的地方
