form1.vb

此程序可将普通数字转换为大写的金额符号。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxhaiwaNTC1.reg("mhgj", "10411711097110162")
    End Sub

    Private Sub MoneyTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MoneyTextBox1.TextChanged
        If MoneyTextBox1.Text > "" Then
            TextBox2.Text = AxhaiwaNTC1.numTchinese(MoneyTextBox1.Text)
        End If
    End Sub

    Private Sub AxhaiwaNTC1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxhaiwaNTC1.Enter

    End Sub
End Class