如何讓Inputbox消息框只能輸入數字不能輸入字符，除了鍵盤按下事件外
Dim x, y As Short
        Dim title As String
        Dim box As Short
        title = "输入内容"
        x = InputBox(title, title, "")
        If x > 0 Then
            y = 5
        Else
            If x = 0 Then
                y = 0
            Else
                y = -5
            End If
        End If
        MsgBox("x=" + CStr(x)  + "y=" + CStr(y) ,

[[it] 本帖最后由 jxyga111 于 2008-9-30 13:24 编辑 [/it]]