MaskEditBoxへ値の設定を行いたい

質問

VB6で現在MaskEditBoxのオブジェクトを使用しております。そこへ値の設定を行いたいのですが、どのようにや
ればよいのか？わかりません。

テキストボックスであれば
Text1.Text = "TEST"
と言うソースの記述で、値を設定することが出来ますが、
MaskEditBoxの場合、Textプロパティがない為、どのプロ
パティに対して、値を設定すればよいのかわかりませんし、
色んなプロパティに設定してみましたが、どうもうまく
行きません。

お分かりになる方よろしくお願いします。

回答No.1

todo36 · ベストアンサー

Textプロパティあるよ

Sub MaskEditBoxSetText(ByRef Msk As MaskEdBox, ByVal StrText As String)

Dim Bak As String 'Maskプロパティを退避する

Bak = Msk.Mask
Msk.Mask = ""
Msk.Text = StrText
Msk.Mask = Bak
End Sub

お礼

どうもありがとうございます。

Textプロパティありますね！
元々、値の取得が出来ても、値の設定が行えなくて困って
いましたが、Maskで”／”区切りにしていたため、”／”
で設定を行おうとしてエラーとなっていたことに、ちょう
ど今わかった所です。

お手数をおかけいたしました。