منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=26068)

الصفحات: 1 2

RE: استفسار :- بخصوص الاختصارات - elgokr - 11-08-18

اضافة لما قدمه الاخ 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)

وهكذا


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

تحياتى لك
وتمنياتى لك التوفيق