使用计时器显示和隐藏文本框

Posted 2023-04-19

【中文标题】使用计时器显示和隐藏文本框

【英文标题】：Show and Hide Text Box With A Timer

【发布时间】：2019-12-14 08:50:01

【问题描述】：

我需要一些关于文本框 VBA 的帮助。该宏将嵌入到按钮中。

我在下面有这段代码，它的作用是在按下按钮时显示/隐藏文本框密码。文本框输入掩码属性默认设置为密码。

我正在尝试对其进行编辑，使其只需单击一下按钮即可显示和隐藏。我需要帮助将显示密码设置为 4 秒，然后再自动隐藏它。这可能吗？

Sub example()

If Text1.InputMask = "Password" Then
    Text1.InputMask = ""
Else
    Text1.InputMask = "Password"
End If

End Sub

我是 VBA 的新手，非常感谢任何帮助！ :)

【参考方案1】：

你真的不需要一个“计时器”——你只需要告诉 VBA 在一段时间内什么都不做。在这里，我将时间定义为 1 秒。将DoEvents 放入循环中，使其看起来不会冻结。

Private Sub btnShowPassword_Click()
  Dim dtWait As Date

  If Text1.InputMask = "Password" Then
    Text1.InputMask = ""
    dtWait = DateAdd("s", 1, Now) ' 1 Second
    Do Until Now > dtWait
       DoEvents
    Loop
    Text1.InputMask = "Password"
  End If

End Sub

【讨论】：

感谢您的回复！我会试一试，然后回来找你:)