0

Visual Basic のヘルプが本当に必要です。

以下のコードで数値と小数を許可する 3 つのテキスト ボックスがあります。

If Not Char.IsDigit(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar)
                               AndAlso Not e.KeyChar = "." Then
    e.Handled = True
End If

しかし、私はいくつかの問題に遭遇しました:

  1. 「。」を入れることができます。どこでも
  2. 各テキストボックスに追加しようとすると、結果が混乱します。例 1.2 + 3 =15

適切な小数計算ができるようにコードを修正できますか?

4

1 に答える 1

0

これは役に立ちます

   Private Sub txtrate_TextChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtmarks.KeyPress
            If InStr(txtmarks.Text, ".") Then
                e.Handled = Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar))
            Else
                e.Handled = Not ((Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") Or Char.IsControl(e.KeyChar))
            End If
    End Sub
于 2016-03-31T08:33:39.313 に答える