منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم عاوز كود يضهر رسالة تخبرني ان القيمة المدخله في التكست بوكس هي عدد عشري او عدد صحيح
وجزاكم الله خيرا

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

(16-03-22, 02:17 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم

كود :

   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

جزاك الله خيرا اخي الكريم وشكرا على دعمك لي