input validation

السلام عليكم

إضافة على الوصلات المطروحة

أولاً الاعداد الصحيحة لا تسمى Real Number و إنما Integer Number

أما Real فهي الاعداد الطبيعية الحقيقية.

لو أردتي أن تتحققي من الاعداد الصحيحة , بإستثناء الاعداد السالبة سيكون كالتالي

باستخدام التعابير النظامية Regular Expressions إليك ذلك.

أولاً جلب فضاء التعابير من المسار التالي.

Imports System.Text.RegularExpressions

ثم نكتب هذه الوظيفة التي تتحقق من القيمة في الخانة النصية Textbox1 بهذا الشكل.

 Public Function ValidateNumbers(ByVal TheString As String) As Boolean
		Try
			Dim rx As New Regex("^\d+$")
			Return rx.IsMatch(TheString)
		Catch ex As FormatException
			MsgBox(ex.Message)
		End Try
	End Function

ثم في حدث الضغط على الزر button1 يكون التالي.

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

		If ValidateNumbers(Me.TextBox1.Text) Then
			Me.TextBox1.ForeColor = Color.Black
		Else
			Me.TextBox1.ForeColor = Color.Red
			MsgBox("Please enter the Integer Number" & vbCrLf & _
			"Note that, no negative value accepted.." & vbCrLf & _
			" such as -1")
		End If

	End Sub

أما بالنسبة للسؤال الثاني, فهو كما ذكرهُ أخي solo.Net في مسئلة تهيئة النصوص String.Format

بالتوفيق إن شاء الله.

HnHn

ألف شكر لك وجزاك الله خيراً .

الغملاسي

أخطأت في قولي باللغة العربية ومقصدي كان REAL NUMBER -ارقام بدون كسور ولا اشارة سالبة (لا اعرف المسميات العربية بالضبط:$ )

وجزاك الله خير على مساعدتك الثمينة :)