COMBOBOXで日付入力

COMBOBOXで(プルダウンメニュー)でデフォルトでは
DBから持ってきた値を入れておき、
入力した時は日付しか入力できない(imDateみたいな)ようにすることは可能でしょうか？

No.1 ベストアンサー 回答者： hidekun_84 回答日時： 2005/06/16 16:26

ご希望の挙動かは不明ですが以下のコードで制御できます。

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If Not (Chr(KeyAscii) >= 0 And Chr(KeyAscii) <= 9 Or Chr(KeyAscii) = "/" Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub

Private Sub Combo1_LostFocus()
If Not (IsDate(Combo1.Text)) Then
Combo1.Text = ""
End If
End Sub

この回答への補足

返信ありがとうございます。
しかし自分がやりたいことと少し違いました。
補足しますと、
コンポーネントのBOC Date Control ＋ Comboboxです。
入力すると/(スラッシュ)も勝手に表示され、
存在しない日付は入力出来ない風にしたいんですが
何か方法はありますでしょうか？

補足日時：2005/06/16 17:07

No.2 回答者： hidekun_84 回答日時： 2005/06/16 22:38

『／』が自動で表示されてなおかつユーザーが『／』を消すことができないのでしょうか？。

そのような処理は通常では無理です。
ユーザーコントロールを作成して似せるのは可能かもしれませんが・・・（笑）。
かなり複雑化と思います。

現在作成中のプログラムに対して、その部分の処理の重要度などを考慮して代替の方法もしくは購入なども検討するのも良いかもしれません。