11-08-18, 01:29 AM
اضافة لما قدمه الاخ 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)
وهكذا
وبكده تكون وفرت عدد الاسطر وقللت الاستخدام بكل بساطة
ويبقي الشكل بالنهاية مرتب
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية