gpt4 book ai didi

vb.net - TabPage选择,重新选择TabPage时将Focus移至上一个ActiveControl

转载 作者:行者123 更新时间:2023-12-04 15:05:30 25 4
gpt4 key购买 nike

当重新访问 TabPage 时,我需要一些帮助来聚焦特定控件。我关注了很多其他博客,但我无法自己解决问题。

我在 MDIForm 中创建了 TabPages:

Public Sub Tab_Open(Of T As {Form, New})(name As String, NameofTab As String, Tabnumber As String)

Dim _formByName As New Dictionary(Of String, Form)
Dim Frm As Form = Nothing

If Not _formByName.TryGetValue(name, Frm) OrElse _formByName(name).IsDisposed Then
Frm = New T()
_formByName(name) = Frm
End If

Dim childTab As TabPage = New TabPage With {
.Name = NameofTab & " : " & Tabnumber,
.Text = NameofTab & " : " & Tabnumber,
.Tag = Frm.Name
}

Form1.tabForms.TabPages.Add(childTab)

Frm.TopLevel = False
Frm.FormBorderStyle = FormBorderStyle.None
Frm.Parent = Form1.tabForms.TabPages(Form1.tabForms.TabCount - 1)
Frm.Dock = DockStyle.Fill
Frm.Show()

Form1.tabForms.SelectedTab = childTab
Form1.tabForms.Visible = True
End Sub

假设在第一个 TabPage 中,焦点位于 TextBox 上(TabIndex = 4),现在我可以单击第二个 TabPage。
经过一些计算,当我选择上一个 TabPage 时,应该再次将 Focus 设置为 TabIndex = 4 的 TextBox,但这并没有发生。

我尝试在 MDIForm 中创建字典:

Public Tab_Last_Focus_info As New Dictionary(Of String, String())

SelectedIndexChanged 中我有这段代码:

 Private Sub tabForms_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabForms.SelectedIndexChanged

If Tab_Last_Focus_info.ContainsKey(tabForms.SelectedTab.Name) Then
Dim FullTypeName1 As String = String.Format("{0}", Tab_Last_Focus_info.Item(tabForms.SelectedTab.Name))
Dim Indxval As String = String.Format("{1}", Tab_Last_Focus_info.Item(tabForms.SelectedTab.Name))

Dim FullTypeName As String = Application.ProductName & "." & FullTypeName1
Dim FormInstanceType As Type = Type.GetType(FullTypeName, True, True)
Dim frm As Form = CType(Activator.CreateInstance(FormInstanceType), Form)
Dim Focus_on As Integer = Integer.Parse(Indxval)

frm.Controls(Focus_on).Focus()
' Not working too =>
' frm.Controls(Focus_on).Select()

' Invisible or disabled control cannot be activated =>
' ActiveControl = frm.Controls(Focus_on) 'System.ArgumentException:
End If
End Sub

在通过菜单打开的表单中,我有以下用于焦点控件的代码:

Private Sub All_Got_Focus(sender As Object, e As EventArgs) Handles TB_ImageLoc.GotFocus, TB_CompWebsite.GotFocus,
TB_CompPinCD.GotFocus, TB_CompPAN.GotFocus, TB_CompName.GotFocus, TB_CompMobile.GotFocus,
TB_CompMD.GotFocus, TB_CompLL.GotFocus, TB_CompGSTIN.GotFocus, TB_CompFax.GotFocus, TB_CompEmail.GotFocus,
TB_CompCD.GotFocus, TB_CompAreaCity.GotFocus, RTB_CompADD.GotFocus, PB_Logo.GotFocus, DTP_CompEst.GotFocus, DGV_CompList.GotFocus,
CHKB_CompIsRegTrans.GotFocus, CB_CompStateID.GotFocus, CB_CompDistrictID.GotFocus, But_Upd.GotFocus, But_SelectLogo.GotFocus,
But_Search.GotFocus, But_Reset.GotFocus, But_Refresh.GotFocus, But_GridSelect.GotFocus, But_Exit.GotFocus, But_Edit.GotFocus,
But_Del.GotFocus, But_Add.GotFocus

If Form1.Tab_Last_Focus_info.ContainsKey(Form1.tabForms.SelectedTab.Name) Then
Form1.Tab_Last_Focus_info.Remove(Form1.tabForms.SelectedTab.Name)
End If

Form1.Tab_Last_Focus_info.Add(Form1.tabForms.SelectedTab.Name, New String() {Me.Name, Me.ActiveControl.TabIndex})
End Sub

现在在 TabIndexChange 中,我从字典中获得了正确的值,但我无法专注于所需的选项卡。

请帮助并让我知道我遗漏了什么或需要解决这个问题,或者请让我知道任何其他更好的想法。

最佳答案

首先,一个建议:在一个干净的项目中测试此代码,其中您有一个 MDIParent 和一个带有 TabControl 的表单以及 2 个或更多 TabPages,包含不同类型的控件。测试功能,然后应用于要使用它的项目。


您需要跟踪 TabPage 中的选定 控件 - 当前 ActiveControl - 切换到其他 TabPages,当 TabPage 再次出现时,恢复 TabPage 中之前的 ActiveControl

程序很简单,实现如下:

  • 要跟踪当前的 ActiveControl - 具有焦点的控件,您需要知道控件何时成为 ActiveControl。此控件当然必须是 TabPage 的子控件。
    ContainerControl类(Form 的派生类)有一个protected virtual 方法,UpdateDefaultButton() ,这在 Form 类中被覆盖了。它用于确定当用户按下 Enter 键时哪个子 Button 被激活。
    每次一个新的 Control 成为 ActiveControl 时都会调用此方法:覆盖它,我们可以在发生这种情况时得到通知,因此我们可以检查新的 ActiveControl 是否是我们的我们很感兴趣,因为它是我们 TabControl 的 TabPage 的 child 。

  • 当新的ActiveControl是我们需要跟踪的一个时,我们可以将这个Control的引用和它所属的TabPage的Index存储在一个集合中,这样我们就可以then use this reference, when the selected TabBage changes, to set it again as the ActiveControl in its TabPage.

在这里,为了存储状态,我使用了 Dictionary(Of Integer, Control),其中 Key 是索引TabPage 的 Value 是其 ActiveControl 的引用。

TabControl.Selected引发事件 - 在选择 TabPage 之后 - 我们可以查找字典并恢复该 TabPage 的先前 ActiveControl(如果已存储的话)。

► 在这里,BeginInvoke()用于推迟设置新 ActiveControl 的操作,因为这也会导致调用 UpdateDefaultButton() 并且在 TabControl.Selected 事件处理程序完成之前调用此方法。

Public Class SomeMdiChildForm

Private tabPagesActiveControl As New Dictionary(Of Integer, Control)()

' This method is called each time a Control becomes the ActiveControl
Protected Overrides Sub UpdateDefaultButton()
MyBase.UpdateDefaultButton()

If TypeOf ActiveControl.Parent Is TabPage Then
Dim tabPageIdx = CType(CType(ActiveControl.Parent, TabPage).Parent, TabControl).SelectedIndex
If tabPagesActiveControl.Count > 0 AndAlso tabPagesActiveControl.ContainsKey(tabPageIdx) Then
tabPagesActiveControl(tabPageIdx) = ActiveControl
Else
tabPagesActiveControl.Add(tabPageIdx, ActiveControl)
End If
End If
End Sub

Private Sub TabControl1_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl1.Selected
Dim ctrl As Control = Nothing
If tabPagesActiveControl.TryGetValue(e.TabPageIndex, ctrl) Then
BeginInvoke(New Action(Sub() Me.ActiveControl = ctrl))
End If
End Sub
End Class

C#版本:
(假设 tabControl1 是 TabControl 实例的名称)

public partial class SomeForm : Form
{
private Dictionary<int, Control> tabPagesActiveControl = new Dictionary<int, Control>();

// [...]

// This method is called each time a Control becomes the ActiveControl
protected override void UpdateDefaultButton()
{
base.UpdateDefaultButton();
if (ActiveControl.Parent is TabPage tp) {
var tabPageIdx = (tp.Parent as TabControl).SelectedIndex;
if (tabPagesActiveControl.Count > 0 && tabPagesActiveControl.ContainsKey(tabPageIdx)) {
tabPagesActiveControl[tabPageIdx] = ActiveControl;
}
else {
tabPagesActiveControl.Add(tabPageIdx, ActiveControl);
}
}
}

private void tabControl1_Selected(object sender, TabControlEventArgs e)
{
if (tabPagesActiveControl.TryGetValue(e.TabPageIndex, out Control ctrl)) {
BeginInvoke(new Action(() => ActiveControl = ctrl));
}
}
}

关于vb.net - TabPage选择,重新选择TabPage时将Focus移至上一个ActiveControl,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66240804/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com