怎么获得鼠标点击处的控件名称或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上的控件