コンボボックスのテキスト部分に数値だけを入力させたい (ID:88867)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6なら Private Sub Combo1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 13, 8 Case Else KeyAscii = 0 End Select End Sub