首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

如何获得鼠标点击处的控件名称或ID(WEBBROWSER)

2012-03-13 
怎么获得鼠标点击处的控件名称或ID(WEBBROWSER)有一个窗体,放了一个WEBBROWSER,我想实现,当鼠标右键点击已

怎么获得鼠标点击处的控件名称或ID(WEBBROWSER)
有一个窗体,放了一个WEBBROWSER,
我想实现,当鼠标右键点击已经加载页面webbrowser的输入框,可以获得该输入框的ID或名称。

大家帮帮我,给我代码参考一下。
我用的是VB.NET

谢谢。!

[解决办法]
添加一个webbrowser,一个textbox并设置允许多行显示,一个panel控件。名称均默认

Public Class Form1
Dim GetObj As Boolean
Dim HtmlObj As HtmlElement

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Web.Navigate(InputBox("请输入网址,例如:http://www.163.com", "导航到", "http://www.163.com/"))
End Sub

Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
GetObj = True
End Sub

Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
If GetObj Then
Dim PointFromWeb As Point = Web.PointToClient(MousePosition)
Dim tmp As HtmlElement = Web.Document.GetElementFromPoint(PointFromWeb)
If Not tmp.Equals(HtmlObj) Then
HtmlObj = tmp
Me.Text = HtmlObj.Id & " name: " & HtmlObj.Name
TextBox1.Text = HtmlObj.InnerHtml
End If
End If
End Sub

Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
GetObj = False
End Sub

End Class

用法:
拖拽panel到webbrowser上的控件

热点排行