منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تعديل كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل كود (/showthread.php?tid=42645)

تعديل كود - عماد سلمان منذر - 09-10-22

كود :
If TextBox1.Text = "" Then
           MsgBox("ادخال قيمة")
           TextBox2.Text = ""
لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمة
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة

RE: تعديل كود - trakktour - 09-10-22

(09-10-22, 02:52 AM)عماد سلمان منذر كتب :
كود :
If TextBox1.Text = "" Then
           MsgBox("ادخال قيمة")
           TextBox2.Text = ""
لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمة
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة

كود :
       If String.IsNullOrEmpty(TextBox1.Text) Then
           MsgBox("ادخال قيمة")
       Else
           TextBox2.ReadOnly = False
       End If

في اعدادات textbox2 غير ReadOnly الى true 
او في form load ضع
كود :
           TextBox2.ReadOnly = True


RE: تعديل كود - عماد سلمان منذر - 09-10-22

(09-10-22, 05:17 AM)trakktour كتب :
(09-10-22, 02:52 AM)عماد سلمان منذر كتب :
كود :
If TextBox1.Text = "" Then
           MsgBox("ادخال قيمة")
           TextBox2.Text = ""
لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمة
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة

كود :
       If String.IsNullOrEmpty(TextBox1.Text) Then
           MsgBox("ادخال قيمة")
       Else
           TextBox2.ReadOnly = False
       End If

في اعدادات textbox2 غير ReadOnly الى true 
او في form load ضع
كود :
           TextBox2.ReadOnly = True

اخي الكريم الكود المرسل من قبلك لايعمل 
انا اريد اذا تكست ١فارغة  واردت الكتابة في تكست ٢ يقوم البرنامج بحذف ماكتبته في تكست ٢ ويعطي رسالة يرجى ادخال قيمه

RE: تعديل كود - عماد سلمان منذر - 09-10-22

هذا مثال مرفق للتعديل

RE: تعديل كود - ميدو الفنان - 09-10-22

كود الاخ trakktour صحيح ولكن انت واضع الكود يشتغل عند كتابة شئ في التكست 2
وبالتالي مش هيشتغل الكود لانه معمول 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