منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

وهكذا

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

ويبقي الشكل بالنهاية مرتب

تحياتى لك

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

elgokr