键入小数点后输入的数字移到小数点后

定点小数

Private Sub Form_Load()
Text1.Text = "0.00"
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then
    If Text1.Text = "0.00" Then
        Label1.Caption = "0.00"
        Else
        If Text1.Text = "0.000" Then
            Text1.Text = "0.00"
            Else
            c = Len(Text1.Text)
            If c < 6 Then
                If Left(Text1.Text, 2) = "0." Then
                    If Left(Text1.Text, 3) = "0.0" Then
                        If Left(Text1.Text, 4) = "0.00" Then
                            Text1.Text = "0.0" & Right(Text1.Text, 1)
                            Else
                            Text1.Text = "0." & Right(Text1.Text, 2)
                        End If
                        Else
                        Label2.Caption = Text1.Text
                        Label3.Caption = c
                        Text1.Text = Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                    End If
                    Else
                    Text1.Text = Left(Text1.Text, 1) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                End If
                Else
                Text1.Text = Left(Text1.Text, c - 4) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
            End If
        End If
    End If
    Else
End If

End Sub

Private Sub Form_Load()
Text1.Text = "0.00"
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then
    If Text1.Text = "0.00" Then
        Else
        If Text1.Text = "0.000" Then
            Text1.Text = "0.00"
            Else
            c = Len(Text1.Text)
            If c < 6 Then
                If Left(Text1.Text, 2) = "0." Then
                    If Left(Text1.Text, 3) = "0.0" Then
                        If Left(Text1.Text, 4) = "0.00" Then
                            Text1.Text = "0.0" & Right(Text1.Text, 1)
                            Else
                            Text1.Text = "0." & Right(Text1.Text, 2)
                        End If
                        Else
                        Label2.Caption = Text1.Text
                        Label3.Caption = c
                        Text1.Text = Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                    End If
                    Else
                    Text1.Text = Left(Text1.Text, 1) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                End If
                Else
                Text1.Text = Left(Text1.Text, c - 4) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
            End If
        End If
    End If
    Else
End If

End Sub

Private Sub Form_Load()
Text1.Text = "0.00"
End Sub

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 48 And KeyAscii <= 57 Then
    If Text1.Text = "0.00" Then
        Else
        If Text1.Text = "0.000" Then
            Text1.Text = "0.00"
            Else
            c = Len(Text1.Text)
            If c < 6 Then
                If Left(Text1.Text, 2) = "0." Then
                    If Left(Text1.Text, 3) = "0.0" Then
                        If Left(Text1.Text, 4) = "0.00" Then
                            Text1.Text = "0.0" & Right(Text1.Text, 1)
                            Else
                            Text1.Text = "0." & Right(Text1.Text, 2)
                        End If
                        Else
                        Text1.Text = Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                    End If
                    Else
                    Text1.Text = Left(Text1.Text, 1) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
                End If
                Else
                Text1.Text = Left(Text1.Text, c - 4) & Mid(Text1.Text, c - 2, 1) & "." & Right(Text1.Text, 2)
            End If
        End If
    End If
    Else
End If

End Sub

谢谢,谢谢大家.虽然上面代码复制下来后运行发现有错,但已基本了解了.不过可能是我没有说清楚,我要的文本框是:
1.只能输入数字
2.小数点前可输入任意位数字,但除小数点左边第一位外首位不为0
3.小数点后是固定的小数位数,可根据需要事先定义位数

[[it] 本帖最后由 逐日 于 2008-11-27 08:19 编辑 [/it]]