访问菜单子表单 - 无默认制表位

Question

我有一个主窗体...想象一下...对于我的大多数用户来说，这将是他们使用的唯一窗体。当然，它包含带有子表单的选项卡。

我在这个表单的左侧有一个导航子表单，它会根据用户的权限级别而变化。目前，此子表单是所有按钮...并且始终选择 1 作为该表单的默认制表位。

一开始我不想突出显示它们中的任何一个...我可以通过关闭所有按钮的制表位来移除突出显示。但是，我不确定是否要一起删除该功能……它仍然突出显示一个按钮。我只是希望没有突出显示的默认按钮。

如您所见，添加课程是 'selected'。我似乎找不到正确的术语来寻找执行此操作的方法。我尝试在另一个按钮后面使用一个较小的按钮，但由于它有焦点，所以它移到了前面。使用与背景颜色相同的文本字段会在随机空白区域中显示光标...视觉上不理想。

我敢肯定这里有人足够聪明，可以解决这个问题。请赐教。我不在乎这是否可以在 VBA 代码或设计视图中处理。

Answer 1

"Focus" 是您要查找的词 - 您不希望任何可见控件在打开表单时获得焦点。

最简单的方法是一个不可见的按钮：创建一个带有 Transparent = True 的按钮和一个空的 OnClick（即该按钮什么都不做，即使被意外点击）。

将此按钮移至 Tab 键顺序的顶部，以便在打开表单时获得焦点。

但是如果您的用户使用 TAB 遍历按钮，焦点将在一个位置消失（当从最后一个控件转到第一个控件时）。不知道会不会把他们搞糊涂了

Answer 2

在主窗体上创建一个按钮。命名为带有以下 GotFocus 事件代码的 cmdDummyButton。将 Tab 键顺序属性设置为 0（即第一个）使按钮透明。

这会导致窗体上的控件在启动时没有焦点。

Private Sub cmdDummyButton_GotFocus()

    Static IveHadFocusAlready As Boolean

    If Not IveHadFocusAlready Then
        Me.cmdDummyButton.Enabled = False
        IveHadFocusAlready = True
    End If

End Sub

甜蜜

访问菜单子表单 - 无默认制表位

Access Menu sub form - No default Tab stop

forms

ms-access

tabs