class1.vb

来自「此程序可将普通数字转换为大写的金额符号。」· VB 代码 · 共 14 行

'金额文本框类
Public Class moneyTextBox
    Inherits System.Windows.Forms.TextBox
    Private Sub moneyTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Chr(8) Then Exit Sub
        Dim x As Double = Val(Me.Text) * 10
        If e.KeyChar >= "0" And e.KeyChar <= "9" And x = CLng(x) Then
        Else
            If e.KeyChar = "." And InStr(Me.Text, ".") = 0 Then Exit Sub
            e.Handled = True
        End If
    End Sub
End Class