Question

我一直在努力让访问表单上的闪烁停止。 Access 2013和2016中也出现了同样的问题。

我在表单上有24个切换按钮。由于OptionGroup控件的某些限制，我已将所需的所有功能构建到一组切换按钮中。它通过每组按钮的类附加到按钮上。

一切正常，但当用户按下向左，向右，向上或向下箭头时，控件会闪烁。

守则：

SetFocus

我已经逐步完成了代码，发现只要控件是Application.Echo。

所有控件都会闪烁绑定和未绑定控件。切换按钮位于标签页上，同时也会将选项卡上的控件闪烁。

我尝试在SetFocus语句的每一侧放置{{1}}语句，但没有更改。

感谢您提供的任何帮助。

Answer 1

很难说你是否这样做只是为了确定，你是否设定了值来回声？

Application.Echo False
Select Case KeyCode
    Case 39, 40
        KeyCode = 0
        tglSI.SetFocus
        tglSI.Value = True
        tglSI_AfterUpdate
    Case 37, 38
        KeyCode = 0
        tglNA.SetFocus
        tglNA.Value = True
        tglNA_AfterUpdate
End Select
Application.Echo True

Answer 2

你的代码是指一个函数tglSI_AfterUpdate和tglNA_AfterUpdate - 那些函数或子程序是否改变了表单的echo？我的回声实际上导致闪烁，以及条件格式化可能会改变事件期间控件的可见性。切换按钮上有图像还是文本？

访问表单控件闪烁控件是来自Class的setFocus

2 个答案: