- Dim x As Object
- x = InputBox("Enter Student ID", SudentID"", 0)
- If IsNumeric(x) = False Then
- While (IsNumeric(x) = False)
- MessageBox.Show("The value is not valid please Insert Integer value", "Not Vali
d", MessageBoxButtons.OK, MessageBoxIcon.Error) - x = InputBox("Enter Student ID", "StudentID", 0)
- End While
- Else
- هون بتحط اي شي بدك يعمله اذا كانت القيمة صحيحة
- End If
هذا الكود لفحص قيمة الـ InputBox اذا كانت رقم ام لا