[عماد سلمان منذر]

كود :

If TextBox1.Text = "" Then
           MsgBox("ادخال قيمة")
           TextBox2.Text = ""

لو سمحتم انا استخدم هذا الكود واريد عندما تكون التكست بوكس 1 فارغة لاتقبل التكست بوكس2 الكتابة وتعطي رسالة ادخل قيمة
المشكلة ان الرسالة تضهر لي مرتين وليس مرة واحدة ارجو المساعدة

[trakktour]

كود :

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

[عماد سلمان منذر]

كود :

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

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

[عماد سلمان منذر]

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

[ميدو الفنان]

كود الاخ 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