VS2008 Visualbasic - numeri decimali

[icosimo]

VS2008 VisualBasic - numeri decimali

Ciao FORUM,
come è possibile indicare, nella routine sottostante, a suo tempo indicatami da Boolean,
che le cifre decimali devono esse solo "due"?

Grazie in anticipo, e buon 2009.


************************************************** **********
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim bInvalid As Boolean
If IsNumeric(e.KeyChar) Then
bInvalid = False
Else
Select Case Asc(e.KeyChar)
Case 44, 46
e.KeyChar = ChrW(46)
If TextBox1.Text.IndexOf(e.KeyChar) >= 0 Then
bInvalid = True
End If
Case 8
bInvalid = False
Case Else
bInvalid = True
End Select
End If
e.Handled = bInvalid
End Sub
************************************************** **********

[MItaly]

Imposta la proprietà MaxLength di TextBox1 a 2.

[icosimo]

Grazie Mitaly,

mi riferisco ai numeri dopo la virgola.

Ciao.

[Boolean]

Prova in questo modo

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim bInvalid As Boolean
        If IsNumeric(e.KeyChar) Then
            If TextBox1.Text.IndexOf(".") >= 0 Then
                Dim parts() As String = TextBox1.Text.Split(".")
                If parts(1).Length = 2 Then
                    bInvalid = True
                End If
            Else
                bInvalid = False
            End If
        Else
            Select Case Asc(e.KeyChar)
                Case 44, 46
                    e.KeyChar = ChrW(46)
                    If TextBox1.Text.IndexOf(e.KeyChar) >= 0 Then
                        bInvalid = True
                    End If
                Case 8
                    bInvalid = False
                Case Else
                    bInvalid = True
            End Select
        End If
            e.Handled = bInvalid
    End Sub

Boolean

[icosimo]

Grazie Boolean,

ero certo che avresti risposto.

Avevo trovato l'istruzione "Split" ma non l'avevo compresa.

Ancora grazie, ciao.