我正在使用 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
是在全局模块中定义的 TYPE Array。
Private Sub Form_Load()
GetRATabSetting
SetRATabSetting
End Sub
GetRATabSetting
正在从数据库中提取值并填充到 TYPE 数组中。
代码执行得很好。甚至从数据库中提取值并正确设置为控件。但是该选项卡遵循设计时设置的索引。
我做错了吗?是否可以在运行时设置控件的 tabindex ?还有其他方法可以执行此操作吗?