السلام وعليكم ورحمة الله وبركاته
الموضوع:
يوجد عندي ثلاثه فورم وتوجد بداخلهم سته ازرار حيث ان الازرار تحمل نفس الاسم ونفس التنسيق في جميع الفورم ولكنها بالغه الانجليزية
ويوجد عندي خيارين الخيار الاول الغة العربيه
الخيار الثاني الغه الانجليزيه
حيث اني اريد عند الضغط على الغه العربيه تتحول واجهة المشروع الى الغه العربيه والعكس صحيح
حيث اني وضعة دالتين داخل مديول داله لغه عربية وداله لغه انجليزية
Form1.Command1.Caption = "الزر الاول" Form2.Command1.Caption = "الزر الاول" Form3.Command1.Caption = "الزر الاول" Form1.Command2.Caption = "الزر الثاني" Form2.Command2.Caption = "الزر الثاني" Form3.Command2.Caption = "الزرالثاني" Form1.RightToLeft = True Form1.file.Caption = "ملف" Form1.edit.Caption = "تحرير" Form1.about.Caption = "حولنا" Form1.exit.Caption = "خروجÌ" Form1.Copy.Caption = "نسخ" End Function Public Function English_language() Form1.Command1.Caption = "Command1" Form2.Command1.Caption = "Command1" Form3.Command1.Caption = "Command1" Form1.Command2.Caption = "Command2" Form2.Command2.Caption = "Command2" Form3.Command2.Caption = "Command2" Form1.RightToLeft = False Form1.file.Caption = "File" Form1.edit.Caption = "Edit" Form1.about.Caption = "About" Form1.exit.Caption = "Exit" Form1.Copy.Caption = "Copy" End Function
ولكن هذة الطريقة متعبة حيث اني اكتب الفورم اول ثم الفورم الثاني ثم الفورم الثالث
اريد منكم ان تفيدوني كيف اوضع الفورم الاول والثاني والثالث في متغير كما في المثال الاتي
Dim x As string x=form1 x=form2 x=form3 x.Command1.Caption = "Command1" x.Command1.Caption = "Command2" x.Command1.Caption = "Command3"
يوجد نموذج في المرفقات
او من خلال الرابط الاتي
هذا وشكراً لكم
