如何在具有浏览器事件和鼠标位置的Web浏览器中为td着色

Question

我在网络浏览器中有一个表格，我希望当光标位于其上时能够为单元格着色并且当我按字母“ A”

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            htmlDocument1 = WebBrowser1.Document
            AddHandler htmlDocument1.MouseOver, AddressOf Me.gettd
    End Sub

    Public Sub gettd(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
    Dim theElementCollection As HtmlElementCollection
    theElementCollection = WebBrowser1.Document.GetElementsByTagName("td")
    For Each curElement As HtmlElement In theElementCollection
        e.ToElement.Style = "background-color: orange;"
    Next
    End Sub

和（with keypreview = true）

    Public Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
       If e.KeyCode = Keys.A Then
       ...
       end if
    End Sub

如何混合此代码以执行我想要的操作？TY

Answer 1

需要一些更改：

• DocumentCompleted事件可用于向其他事件添加处理程序，但您必须记住，此事件被多次引发每个URI导航