اضافة بيانات الى قاعدة البيانات فقط بالإنجليزي

يعني ايه

اعمل Validation على مدخلاتك !!!!

بالتوفيق ,,,,

A7med_prof

اقتباس

يعني ايه

اعمل Validation على مدخلاتك !!!!

بالتوفيق ,,,,

A7med_prof

يعني لو المستخدم اضاف كلمات بالعربي تطلعله رسالة خطأ

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

لو كانت انجليزي يرسلها

لكم كل الشكر

شوف الـ Regular Expression وفي دروس عليها للأخ الغملاسي ,,,

اقتباس

شوف الـ Regular Expression وفي دروس عليها للأخ الغملاسي ,,,

مشكور

بس تغلبت فيها وما عرفت اصل

زبط معي

		ElseIf Not System.Text.RegularExpressions.Regex.IsMatch(user_name.Text, "[A-Za-z][A-Za-z0-9_]+") Then

			msgbox "!!  اسم المستخدم ليس باللغة الإنجليزية"
			user_name.Focus()

الف شكر لمن ساعدني

السلام عليكم أخي الكريم :

يمكن أن يفيد هذا الحل أيضاً بإذن الله ...

أخي : دون أن نعطي رسالة للمستخدم , سوف نمنعه من الكتابة باللغة العربية في مربع النص المقصود ... كيف ؟

1- نفحص حدث تغير لغة الكتابة أو الإدخال فيما لو تغير إلى العربية وذلك عند وقوف المستخدم في مربع النص المقصود

حيث نضع في حدث InputLanguageChanging للفورم هذا الكود :

	Private Sub Form1_InputLanguageChanging(ByVal sender As Object, ByVal e As System.Windows.Forms.InputLanguageChangingEventArgs) Handles Me.InputLanguageChanging

		If Me.TextBox1.Focused Then
			If e.InputLanguage.LayoutName.Contains("Arabic") Then
				e.Cancel = True
			End If
		End If

	End Sub

2- لكن ماذا لو غير المستخدم لغة الإدخال إلى العربية قبل الدخول إلى مربع النص المقصود ثم دخل , أو كانت بالأصل عربية ..؟

عندئذ نفحص الحدث KeyPress لمربع النص المقصود لكي نمنعه من الكتابة إذا كانت اللغة عربية , أي نريد أيضاً هذا الكود :

	Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

		If InputLanguage.CurrentInputLanguage.LayoutName.Contains("Arabic") Then
			e.Handled = True
		End If

	End Sub

وفي نهاية الأمر أظن أن الخطوة الثانية لوحدها كافية للقيام بالضربة القاضية ...!

وفقكم الله .... نرجو الدعاء

أبو همام بارك الله فيك ووفقك لما فيه الخير والسداد