[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If IsNumeric(TextBox1.Text) Then
           Dim kk As Integer = Math.Abs(Convert.ToDouble(TextBox1.Text))
           If Convert.ToDouble(TextBox1.Text) - kk <> 0 Then
               MsgBox("كسر عشري")
           Else
               MsgBox("عدد صحيح")
           End If

       Else
           MsgBox("هذا نص وليس عدد")
       End If
   End Sub