NumericUpDownコントロールに数字以外を入力したい

VB2003環境なのですが、NumericUpDownコントロールに
数字以外を入力できるようにしたいのですが
そのようなカスタムコントロールを作る方法がありましたら
教えて頂きたいです。
感じとしてはTextBoxにSpinButtonをくっ付けた感じのものが
欲しいのですが方法がありましたら教えて頂きたいです。

No.3 回答者： soratombi 回答日時： 2009/04/26 17:22

imogasiさんもいらだっているように、1）数字以外を入力したいのになぜ、NumericUpDownコントロールを検討しているのか、2）テキストボックスでは何が不足なのか、質問文から読み取る事ができません。

なにをやりたいのか、上記の1）2）に答える形で示してもらえれば前に進めると思います。

この回答へのお礼

ご回答ありがとうございます。
NumericUpDownの中で日数や時間を扱いたいと考えています。
●年●月●日等として●のところにカーソルがある状態で
UpDownボタンをクリックするとそこの数字が変わるという感じです。
日付を扱うコントロールでは０日や０時間に対応できないので
別の方法を考えているのですが、NumericUpDownに
文字を入力できるようにしてTextChangeなど変更のイベントを
拾えれば対応できるのではと思いました。
TextBoxとSpinButtonという組み合わせも考えたのですが、
後で使う時に１つのコントロールにまとまっていたほうが便利かとおもいました。
まずはredfox63様にお示し頂いた方法を試してみたいと思います。
どうもありがとうございました。

お礼日時：2009/04/29 11:13

No.2 ベストアンサー 回答者： redfox63 回答日時： 2009/04/25 23:32

やるとするならUpDownBaseを継承したユーザーコントロールを作成して

UpButton、DownButton、UpdateEditTextをそれぞれOverridesで作成といった具合でしょう

dim _value as Integer
Public Overrides Sub UpButton()
　　if _value < 25 then
　　　　_value += 1
　　End Sub
　　UpdateEditText()
End Sub

Public Overrides Sub DownButton()
　　if _value > 0 then
　　　　_value -= 1
　　End Sub
　　UpdateEditText()
End Sub

Protected Overrides UpdateEditText()
　　dim ch as Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
　　Me.Text = ch( _value )
End Sub
といった具合でしょう

if _value < 25 then
や
if _value > 0 then
などは適宜修正しましょう

この回答へのお礼

ご回答ありがとうございます。これをやりたい理由はsoratombi様の
ところに書いたようなことなのですが、こちらの方法で試してみたいと思います。
少ない情報の中を具体的に教えていただいてどうもありがとうございました。

お礼日時：2009/04/29 11:13

No.1 回答者： imogasi 回答日時： 2009/04/25 17:43

何でそんなことを考える必要が有るのか。

回答者を煩わすのだから、必要理由を書くべき。
NumericUpDownコントロールと文字入力は相容れない。
コンボボックスのスクロールでよいのでは。
思いつきの質問を丸投げで発せられては、回答者は大変。
自分で基礎まで勉強して作れば。