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

解決

らう〜る 2005-03-16 06:24:24 No: 88866

コンボボックスのテキスト部分に数値しか入力できないようにしたいのですが、どなたかご存知ないでしょうか。
テキストボックスだとGetWindowLongやSetWindowLongを使って出来るようなのですが、コンボボックスの場合のやり方がわかりません。
宜しくお願い致します。

通りすがり 2005-03-16 07:33:36 No: 88867

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

ねろ 2005-03-16 17:29:32 No: 88868

コピペまでガードしたいなら、
Private Sub Combo1_Change()
    If IsNumeric(Combo1.Text) = False Then
        Combo1.Text = ""
    End If
End Sub
かな。

らう〜る 2005-03-16 18:21:08 No: 88869

なるほど〜！
API関数にこだわりすぎてました。
お二方とも、どうもありがとうございました。