Vb6 如何重置此框

在表单中使用遮罩框

masked1.mask = ##:##

在表单加载中，掩码1显示为

。\uuu:\uu

一旦用户输入08:00之类的值，则“重置”意味着它应该再次显示，如下所示

---

如何执行此操作？

要清除MaskEditBox，请将Text属性设置为空字符串，但是当prompinclude属性为True时，将出现错误。我建议编写一个子方法，当您想清除它时可以调用它

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)

---

我需要说多少次你不需要写“需要vb6代码帮助”？用[vb6]标记提问已经暗示了这一点。