如何讓Inputbox消息框只能輸入數字不能輸入字符

Question

如何讓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))

Answer 1

Inputbox,好像不能限制輸入內容吧。你可能把用戶輸入的內容，拿出來做判斷呀。如果不合法可能要求用戶重輸。

Answer 2

你的想法是好的，但是InputBox是封装好的，想自己有控制输入功能的你自己可以写一个的啊

Answer 3

可利用On Error GoTo 语句捕捉:Option Explicit
    Dim sj As DoublePrivate Sub Command1_Click()
    On Error GoTo usErr
    sj = InputBox("输入数据=", sj)
    Print sj
    Exit Sub
usErr:
    Resume
End Sub

Answer 4

Private Sub Command1_Click()
    Dim x As Single
    Dim y As Single
    On Error GoTo usErr
    x = InputBox("输入数据=", x)
    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))
    Exit Sub
usErr:
    Resume
End Sub