تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار toe 2 60 26-03-24, 08:13 PM
آخر رد: mrfenix93
  استفسار هام جدا سلام و محبه2090 1 139 17-02-24, 08:26 PM
آخر رد: عبدالله الدوسري
  [نقاش] بخصوص خصم مبلغ الضريبة من السعر h2551996 6 275 24-01-24, 06:17 PM
آخر رد: Taha Okla
  ممكن استفسار عن m3u8 malekmohamed155 0 232 20-01-24, 07:47 PM
آخر رد: malekmohamed155
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  [سؤال] استفسار ahmed_king2023 2 387 02-11-23, 01:13 PM
آخر رد: ahmed_king2023
  [VB.NET] استفسار dsa 1 258 09-10-23, 01:20 PM
آخر رد: Ahmed5
Video استفسار حول استعلام في SQL devpos 2 252 27-09-23, 04:25 PM
آخر رد: devpos
  تعبئة الكمبوبوكس دون الارتباط بالجدول .. استفسار عاجل Ali_hassn 0 242 24-09-23, 10:50 PM
آخر رد: Ali_hassn

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


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