如何重置该框

Question

使用表单中的蒙版框

masked1.mask = ##:##

在表单加载中，masked1显示为__:__

一旦用户输入了像08:00这样的值，那么重置意味着它应该像__:__

一样再次显示

怎么做？

Answer 1

要清除MaskEditBox，请将文本属性设置为空字符串，但是当 PromptInclude 属性为True时，您将收到错误消息。我建议您编写一个Sub方法，当您想要清除它时可以调用它。

Private Sub ClearMaskedEditBox(ByVal vMaskEditBox As MaskEdBox)
Dim strMask As String

    strMask = vMaskEditBox.Mask  'save the current mask
    vMaskEditBox.Mask = ""       'clear the control's mask
    vMaskEditBox.Text = ""       'clear the text
    vMaskEditBox.Mask = strMask  'reset the mask

End Sub

要使用您要使用要清除的MaskEditBox控件调用Sub。

Call ClearMaskedEditBox(masked1)