استفسار :- بخصوص الاختصارات

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص الاختصارات
#11
اضافة لما قدمه الاخ Null
حتى تعم الفائدة اكبر 

يمكنك استخدام كود الزر بهذا الشكل

فى البداية اضف هذا الكود
كود :
   Function RText(ByRef Conterol As Control, ByRef GConterol As Control)
       Conterol.Text = GConterol.Text
       With Conterol
           .Text = .Text.Replace("@", TextBox1.Text)
           .Text = .Text.Replace("!", TextBox3.Text)
           .Text = .Text.Replace("#", TextBox4.Text)
           .Text = .Text.Replace("$", TextBox5.Text)
       End With
       Return Conterol
   End Function

ثثم تعال داخل كل زر واستخدم الكود التالى
كود :
       RText(TextBox2, Form4.TextBox1)

فمثلاً الزر الاول
ليصبح
كود :
       RText(TextBox2, Form2.TextBox1)

والزر الثاني
ليصبح
كود :
       RText(TextBox2, Form3.TextBox1)

وهكذا


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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }


ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: Null


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] استفسار معاذ_ابراهيم 2 39 منذ 6 ساعة مضت
آخر رد: معاذ_ابراهيم
  [VB.NET] استفسار :- SlimDX بعد تحويل المشروع الى ملف EXE dubai.eig 7 67 15-08-18, 09:51 PM
آخر رد: elgokr
  بخصوص ربط الـ Sql Server بـ فيجوال بيسك mostafa hasanein 1 31 15-08-18, 10:53 AM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص قراءة الصوت من الجهاز dubai.eig 0 53 11-08-18, 06:17 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص _KeyDown dubai.eig 4 63 09-08-18, 10:22 PM
آخر رد: elgokr
  [VB.NET] استفسار فى الكريستال ريبورت lysalh65@gmail.com 8 151 08-08-18, 11:29 PM
آخر رد: lysalh65@gmail.com
  سؤال بخصوص القريد فيو نور الهدى الهدى 6 96 08-08-18, 01:34 PM
آخر رد: محمد كريّم
  مساعده بخصوص طباعه داتا قريد فراس محي 4 96 01-08-18, 11:28 AM
آخر رد: فراس محي
  [VB.NET] استفسار :- بخصوص ارسال Beep dubai.eig 17 432 01-08-18, 01:34 AM
آخر رد: elgokr
  [VB.NET] استفسار :- اضهار معلومات تظهر مع الماوس dubai.eig 5 143 26-07-18, 12:14 AM
آخر رد: dubai.eig

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم