社区 › VB › 有没有更好的方法来评估文本框值

Bryco 发表于 2007-5-7 17:09:55

根据Matt的建议，我使用了这个＜pre＞Private Sub txtLengthFt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
      Select Case KeyAscii
            Case Asc("0") To Asc("9")
            Case Else
                  KeyAscii = 0
      End Select
End Sub
和此
Private Sub txtLengthIn_Change()
      If txtLengthIn.Value >= 12 Then
            MsgBox "Whoa the Pony, Nothing greater than 12", vbCritical + vbOKOnly
            txtLengthIn.Text = "0"
            txtLengthIn.SelStart = 0
            txtLengthIn.SelLength = txtLengthIn.TextLength
      End If
End Sub
检查数值。一旦填写了所有txtbox，并且基于上述两项检查有效，则会启用单击事件。（有两个以上的检查，我只是粘贴了其中的两个来显示我在做什么。所有6个框都有相同类型的错误验证。）

Atook 发表于 2007-5-7 21:33:53

这是一个稍微修改的版本...
如果您输入一个大于12的值，它将提示您将英寸转换为英尺。
这将允许您在数字中添加一个PERIOD（以防您不使用整个英寸）。

只是您可能需要考虑的其他事情。

Bryco 发表于 2007-5-8 12:15:54

好主意。我将不得不看看我是否可以利用这些。我喜欢增加的周期选项，因为我们的土木工程师总是使用 ##.#' 格式。

查看完整版本: 有没有更好的方法来评估文本框值