أبغى أبني جملة تكرار تقوم بفحص كل خانة من نوع Text أذا كانت فارغة
أن تضع بداخله هذه الجملة "EM"
بمعنى زي هذا الكود
If Text1.Text = "" Then Text1.Text = "EM" end if
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةكيف أبني جملة تكرار لهذا الكود
مغلق
ليصلك كل ما هو مفيد في عالم البرمجةالسلام عليكم ...
الاخ الكريم HnHn ... لقد صممت هذا البرنامج بشكل سريع حتى يفي معك بالغرض ... حيث انه يمر على كل Text Box في الـ Form و ما عليك الا ان تفعل ما تريد ... و انا هنا ادخلت اسم بنت اليمن (شيء طبيعي ... صح :)) في كل Text Box في الـ Form ،،،
و السلام
بنت اليمن ,,,,
لا اله الا الله .. محمد رسول الله
(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)
يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين
السلام عليكم
ممكن تستخدم صندوق نص واحد وتعمل له نسخ فيكون عندك مصفوفة من صناديق النص وتعمل تكرار مثلا الكود التالي:
Dim i As Integer For i = 0 To Text1.Count - 1 If Text1(i).Text = "" Then Text1(i).Text = "ME" End If Next i
واليك البرنامج .
وبالتوفيق .
اللهم علمنا ما ينفعنا وأنفعنا بما علمتنا أنك أنت العليم الحكيم
سبحان الله وبحمده سبحان الله العظيم
لاحول ولاقوة الا بالله( كنز من كنوز الجنة ).
أشكر كلا من بنت اليمن و السهم الناري على جهودكم التي مهما عملت لن أفي بحقكم .. تحيـــــاتي وأشواقي
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةالسلام عليكم ...
احببت هنا ان اضع الشفرة المطلوبة من اجل توفير عملية التحميل ...
For Each Text In Form1 If Text <> "" Then Text.Text = "بنت اليمن" End If Next Text
و السلام
بنت اليمن ,,,
لا اله الا الله .. محمد رسول الله
(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)
يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين
العفو اخي HnHn ... يبدو ان تعليقي السابق تزامن مع وضع تعليقك ... و العفو مرة اخرى
لا اله الا الله .. محمد رسول الله
(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)
يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين
هذا الموضوع مغلق.