ms-access - MS Access VBA 临时高亮字段

Question

当用户在子表单上的记录之间切换时，我希望另一个字段临时突出显示以吸引眼球以提醒用户它已更改。

我认为这可行:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    Sleep (500)
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub

sleep 函数倾向于暂停程序半秒，但我之前没有立即看到蓝色变化。

有什么想法甚至更好的方法来实现这一目标吗？

Answer 1

而不是使用 API 尝试下面的代码

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    delay 5
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

或在 sleep 前添加 DoEvents 以更新屏幕。

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    DoEvents
    Sleep (500)
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub