[已解决]求助TextBox问题

gaoshuichang1

在TextBox中只能输入正整数的代码怎么写？

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-8-22 22:11

Private Sub TextBox1_Change()
    Dim i As Integer
    Dim s As String
    With TextBox1
        For i = 1 To Len(.Text)
            s = Mid(.Text, i, 1)
            Select Case s
                Case "0" To "9"
                Case Else
                    .Text = Replace(.Text, s, "")
            End Select
        Next
    End With
End Sub

跳转到最佳答案楼层

lzclzch

Private Sub TextBox1_Change()
    If TextBox1.Text = "" Then Exit Sub
    With TextBox1
        If IsNumeric(.Text) = False Then
            If .Text = "." Then
                .Text = "0."
            Else
                MsgBox "请输入数字"
                .SetFocus
                .SelStart = Len(.Text) - 1
                .SelLength = 1
            End If
        End If
    End With
End Sub

gaoshuichang1

只输入正整数怎么写？谢谢！

lzclzch

Private Sub TextBox1_Change()
    Dim i As Integer
    Dim s As String
    With TextBox1
        For i = 1 To Len(.Text)
            s = Mid(.Text, i, 1)
            Select Case s
                Case "0" To "9"
                Case Else
                    .Text = Replace(.Text, s, "")
            End Select
        Next
    End With
End Sub

yanyongxia

可以进行取整就行了,如果取整的结果与不取整的结果相同就对了否则不能输入 即:int(textbox1.text)<>textbox1.txt