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)