vb6 - 如何重置盒子

Question

在表单中使用蒙版框

masked1.mask = ##:##

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

一旦用户输入像 08:00 这样的值，然后重置意味着它应该像这样再次显示__:__

这个怎么做？

Answer 1

要清除 MaskEditBox，请将Text属性设置为空字符串，但是当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)