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

解決

らう〜る 2005-03-15 21:24:24 No: 88866 IP: [192.*.*.*]

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

編集削除

通りすがり 2005-03-15 22:33:36 No: 88867 IP: [192.*.*.*]

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 08:29:32 No: 88868 IP: [192.*.*.*]

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

編集削除

らう〜る 2005-03-16 09:21:08 No: 88869 IP: [192.*.*.*]

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

編集削除