Question

我正在使用VB.Net，Visual Studio 2015制作Windows窗体应用程序。
Enter有一个Form控件和其他控件。

每当按下键盘上的 TAB 键时，它总是首先聚焦在WebBrowser控件中加载的html元素上。然后再次按 TAB 键，焦点将在WebBrowser控件的HTML元素之间切换。

直到所有HTML元素的切换结束，焦点都不会切换到WebBrowser中的其他控件。
尽管我在Form控件中设置了.TabIndex = 1000和.TabStop = false，但始终始终着重于WebBrowser控件中首先加载的html元素。始终是第一个。

因此，我想通过按 TAB 键禁用对WebBrowser控件的关注，或者禁用{{1}中的 TAB 键功能}。

Answer 1

我必须尽快在VB.NET中得到答案，但是现在这是它的C＃版本：

首先，您必须在表单上使用扩展的Web浏览器控件，并在按下Tab键时带有自定义事件。

在这里，我们将TabStop = false设置为确保该密钥得到处理。对WebBrowserShortcutsEnabled进行类似的推理。

然后，我们在HTML主体上捕获按键事件。

如果键码是9（制表符），我们将触发事件。

public class WebBrowserExtended : System.Windows.Forms.WebBrowser
{

    protected virtual void OnTabKeyEvent(EventArgs e)
    {
        EventHandler handler = TabKeyEvent;
        if (handler != null)
        {
            handler(this, e);
        }
    }

    public event EventHandler TabKeyEvent;

    public WebBrowserExtended() : base()
    {
        this.TabStop = false;
        this.WebBrowserShortcutsEnabled = false;
    }

    protected override void OnDocumentCompleted(WebBrowserDocumentCompletedEventArgs e)
    {
        base.OnDocumentCompleted(e);
        if (this.Document.Body != null)
            this.Document.Body.KeyDown += new HtmlElementEventHandler(Body_KeyDown);
    }

    private void Body_KeyDown(Object sender, HtmlElementEventArgs e)
    {
        if (e.KeyPressedCode == 9 && !e.CtrlKeyPressed)
        {
            this.OnTabKeyEvent(e);
            e.BubbleEvent = false;
        }
    }
}

这是您的事件处理程序：

  private void webBrowser1_TabKeyEvent(object sender, EventArgs e)
    {
        var controls = new List<Control>(this.Controls.Cast<Control>());
        var nextControl = controls.Where(c => c.TabIndex > webBrowser1.TabIndex).OrderBy(c => c.TabIndex).FirstOrDefault();
        if (nextControl != null)
            nextControl.Focus();
        else
            controls.OrderBy(c => c.TabIndex).FirstOrDefault().Focus();
    }

这是控件的VB版本：

Public Class WebBrowserExtended
    Inherits System.Windows.Forms.WebBrowser

    Protected Overridable Sub OnTabKeyEvent(ByVal e As EventArgs)
        RaiseEvent TabKeyEvent(Me, e)
    End Sub

    Public Event TabKeyEvent As EventHandler

    Public Sub New()
        MyBase.New()
        Me.TabStop = False
        Me.WebBrowserShortcutsEnabled = False
    End Sub

    Protected Overrides Sub OnDocumentCompleted(ByVal e As WebBrowserDocumentCompletedEventArgs)
        MyBase.OnDocumentCompleted(e)
        If Me.Document.Body IsNot Nothing Then
            AddHandler Me.Document.Body.KeyDown, AddressOf Body_KeyDown
        End If
    End Sub

    Private Sub Body_KeyDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.KeyPressedCode = 9 AndAlso Not e.CtrlKeyPressed Then
            Me.OnTabKeyEvent(e)
            e.BubbleEvent = False
        End If
    End Sub
End Class

还有VB事件处理程序：

Private Sub WebBrowser1_TabKeyEvent(sender As Object, e As EventArgs) Handles WebBrowser1.TabKeyEvent

        Dim controls = New List(Of Control)(Me.Controls.Cast(Of Control))
        Dim nextControl = controls.Where(Function(c)
                                             Return c.TabIndex > WebBrowser1.TabIndex
                                         End Function).OrderBy(Function(c)
                                                                   Return c.TabIndex
                                                               End Function).FirstOrDefault()
        If Not controls Is Nothing Then
            nextControl.Focus()
        Else
            controls.OrderBy(Function(c)
                                 Return c.TabIndex
                             End Function).FirstOrDefault().Focus()
        End If


    End Sub

按下TAB键时，专注于WebBrowser控件的问题

1 个答案: