如何重置框

2012-07-22 50 views -1 likes

-1

masked1.mask = ##:##

在形式负载，masked1显示中使用屏蔽盒作为__:__

一旦用户输入等08:00的值然后复位意味着它应该像再次显示这__:__

如何做到这一点？

来源

2012-07-22 JetJack

我需要说几次，你不需要把“需要vb6代码帮助”？这已经暗示了用[vb6]标签提出问题。 – Deanna 2012-07-22 09:12:44

回答

要清除您的文本属性设置为空字符串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

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

Call ClearMaskedEditBox(masked1)

来源

2012-07-22 11:07:25 jac

如何重置框

回答

相关问题