如何在VB6运行时分配TabIndex

Question

我正在开发 VB6 维护应用程序。它是一个基于 Windows 的应用程序。我的客户想要在运行时配置控件选项卡索引。我正在将客户端设置保存到访问数据库。

以下子集控件的选项卡索引

Private Sub SetTabSetting()
Dim i As Integer
Dim Ctr As Control
If UBound(TSetting) > 0 Then
    For i = 0 To UBound(TSetting)
        For Each Ctr In Me.Controls
            Dim matched As Boolean: matched = False

            If Ctr.Name = TSetting(i).ControlName Then
               Ctr.TabIndex = TSetting(i).TabIndexNum
               Exit For
            End If
        Next
    Next
End If
End Sub

TSetting是全局模块中定义的类型数组。

Private Sub Form_Load()
  GetRATabSetting
  SetRATabSetting
End Sub

GetRATabSetting 正在从数据库中提取值并将其填充到 TYPE 数组中。

代码执行得很好。甚至值也从数据库中提取并正确设置到控件中。但该选项卡遵循设计时设置的索引。

我做错了吗？是否可以在运行时设置控件的 tabindex ？还有其他方法可以执行此操作吗？

Answer 1

假设窗体上有 5 个控件，它们的 Tab 键顺序如下所示

Index - TabIndex
1 - 0
2 - 1
3 - 2
4 - 3
5 - 4

如果将 3 更改为 1 那么

Index - TabIndex
1 - 0
2 - 2
3 - 1
4 - 3
5 - 4

Visual Basic 将自动将所有 tabindex 增加 1，所有 tabindex 等于或高于您指定的 tabindex。永远不会有两个控件具有相同的 tabindex 的情况。这会给像您这样分配选项卡索引的例程带来问题。

您应该做的不是直接从数据库分配 tabindex，而是构建与选项卡索引关联的控制索引数组。根据 tabindex 对它进行排序，然后开始分配，从 tabindex 0（或最低）开始。