社区 › VB › dis allow null或esc或enterkey的最佳方法

Bryco 发表于 2007-8-8 16:24:09

好的，所以这一点越来越难了&nbsp；我让Inputbox err控件工作，但现在其他所有东西都坏了。

Bryco 发表于 2007-8-8 16:24:31

现在，如果他们按ESC，我将退出Sub

Bryco 发表于 2007-8-8 17:58:04

这是一个棘手的问题#039；选择太多
这可能有些用处
Sub MOX()
    Dim dblTOC As Double
    Dim sAns As String
    Dim sTitle As String
    sTitle = "What is T.O.C. elevation? ie 12 or 0 or -12"
Repeat:
    sAns = InputBox(sTitle)
    If sAns = "" Then
      Exit Sub
    End If
    If Not IsNumeric(sAns) Then
      sTitle = "Please type a number"
      GoTo Repeat
    End If
    dblTOC = CDbl(sAns)
    Debug.Print dblTOC
End Sub

查看完整版本: dis allow null或esc或enterkey的最佳方法