09-10-22, 02:52 AM
كود :
If TextBox1.Text = "" Then
MsgBox("ادخال قيمة")
TextBox2.Text = ""المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة
09-10-22, 02:52 AM
09-10-22, 05:17 AM
(09-10-22, 02:52 AM)عماد سلمان منذر كتب : [ -> ]لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمةكود :
If TextBox1.Text = "" Then
MsgBox("ادخال قيمة")
TextBox2.Text = ""
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة
كود :
If String.IsNullOrEmpty(TextBox1.Text) Then
MsgBox("ادخال قيمة")
Else
TextBox2.ReadOnly = False
End Ifفي اعدادات textbox2 غير ReadOnly الى true
او في form load ضع
كود :
TextBox2.ReadOnly = True09-10-22, 12:36 PM
(09-10-22, 05:17 AM)trakktour كتب : [ -> ](09-10-22, 02:52 AM)عماد سلمان منذر كتب : [ -> ]لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمةكود :
If TextBox1.Text = "" Then
MsgBox("ادخال قيمة")
TextBox2.Text = ""
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة
كود :
If String.IsNullOrEmpty(TextBox1.Text) Then
MsgBox("ادخال قيمة")
Else
TextBox2.ReadOnly = False
End If
في اعدادات textbox2 غير ReadOnly الى true
او في form load ضع
كود :
TextBox2.ReadOnly = True
اخي الكريم الكود المرسل من قبلك لايعمل
انا اريد اذا تكست ١فارغة واردت الكتابة في تكست ٢ يقوم البرنامج بحذف ماكتبته في تكست ٢ ويعطي رسالة يرجى ادخال قيمه
09-10-22, 02:28 PM
هذا مثال مرفق للتعديل
09-10-22, 03:59 PM
كود الاخ trakktour صحيح ولكن انت واضع الكود يشتغل عند كتابة شئ في التكست 2
وبالتالي مش هيشتغل الكود لانه معمول ReadOnly فمش هتعرف تكتب حاجة فيه
فالحل هو اضافة MouseClick عند الضغط علي التيكست 2 يتم تفعيل الرسالة اذا كان التكست 1 فارغ
كود مثال
وبالتالي مش هيشتغل الكود لانه معمول ReadOnly فمش هتعرف تكتب حاجة فيه
فالحل هو اضافة MouseClick عند الضغط علي التيكست 2 يتم تفعيل الرسالة اذا كان التكست 1 فارغ
كود مثال
كود :
Private Sub TextBox2_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox2.MouseClick
If String.IsNullOrEmpty(TextBox1.Text) Then
MsgBox("ادخال قيمة")
Else
TextBox2.ReadOnly = False
End If
End Sub