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

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

我有下面的代码，它的作用是每当按下按钮时显示/隐藏文本框密码。默认情况下，textbox输入掩码属性设置为password

我试图编辑它，这样它将显示和隐藏只需点击一次按钮。我需要帮助在自动隐藏密码之前将计时器设置为显示密码4秒钟。。这可能吗

Sub example()

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

End Sub

我是VBA的新手，非常感谢您的帮助！：）

你并不真的需要一个“计时器”——你只需要告诉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

---

谢谢你的回复！我会尝试一下，然后回到你身边：）