[vbnet]

.....

أضف هذه الدالة إلى الكلاس NumeriCon، ولو قمت بتغيير نوع تصريح الدالة ConvertNum من Public إلى Private يكون أفضل

كود :

Public Shared Function ConvertNumber(ByVal Input As Double) As String
    Dim _num As String = Input.ToString
    Dim _int As String = ConvertNum(System.Math.Floor(Input))
    Dim _dec As String = String.Empty
    If _num.Contains(".") Then
        _dec = ConvertNum(CLng(_num.ToString.Substring(_num.IndexOf(".") + 1)))
    End If
    Return _int & IIf(_dec <> "", " Point " & _dec, "")
End Function

وعند التحويل استخدم الدالة ConvertNumber بدلا من الدالة ConvertNum مثال

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.TextBox2.Text = ConvertNumber(Me.TextBox1.Text)
End Sub

.....