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

كاتب الموضوع : tariq2812

السلام عليكم ورحمة الله وبركاتة

كنا سابقا في الفيجول بيسك 6 نستدعي اجرى قبل عرض النموذج بمعنى هل البرنامج مفعل ام لا

فاذا كان مفعل يعرض نموذج تسجيل الدخول او النموذج الرئيسي اما اذا لم يكن مفعل فيعرض نموذج

تفعيل البرنامج

هذا الاجرى موجود في الفيجول بيسك دت نت وتستطيع الوصل الية من الغاء تفعيل

Enable application framework

ولاكن صيصبح شكل النموذج بهذة الصورة

مع العلم ان نضام التشغيل ويندوز 7

انا حصلت طريقة اخرى مع تفعيل Enable application framework

ستجد الاجرى موجود Application.Designer.vb

الافتراضي يكون

كود :

[color=#000000][COLOR=#007700]Protected [/color][color=#0000bb]Overrides Sub OnCreateMainForm[/color][COLOR=#007700]() 

                [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]MainForm [/color][color=#007700]= Global.[/color][color=#0000bb]WindowsApplication1[/color][color=#007700].[/color][COLOR=#0000bb]Form1 

        End Sub  

[/COLOR][/COLOR]

لان بداية تشغيل البرنامج من النموذجForm1

فغيرت الكود الى

كود :

[color=#000000][COLOR=#007700]Protected [/color][color=#0000bb]Overrides Sub OnCreateMainForm[/color][COLOR=#007700]() 

            If [/COLOR][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Settings[/color][color=#007700].[/color][color=#0000bb]sh [/color][color=#007700]= [/color][COLOR=#0000bb]1 Then 

                Me[/COLOR][color=#007700].[/color][color=#0000bb]MainForm [/color][color=#007700]= Global.[/color][color=#0000bb]WindowsApplication1[/color][color=#007700].[/color][COLOR=#0000bb]Form1 

            [/COLOR][color=#007700]ElseIf [/color][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Settings[/color][color=#007700].[/color][color=#0000bb]sh [/color][color=#007700]= [/color][COLOR=#0000bb]2 Then 

                Me[/COLOR][color=#007700].[/color][color=#0000bb]MainForm [/color][color=#007700]= Global.[/color][color=#0000bb]WindowsApplication1[/color][color=#007700].[/color][COLOR=#0000bb]Form2 

            [/COLOR][color=#007700]ElseIf [/color][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Settings[/color][color=#007700].[/color][color=#0000bb]sh [/color][color=#007700]= [/color][COLOR=#0000bb]3 Then 

                Me[/COLOR][color=#007700].[/color][color=#0000bb]MainForm [/color][color=#007700]= Global.[/color][color=#0000bb]WindowsApplication1[/color][color=#007700].[/color][COLOR=#0000bb]Form3 

            End [/COLOR][COLOR=#007700]If 

        [/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

البرنامج فكرتة بسيطة عرض اخر نموذج تم اغلاقة

المثال في المرفقات

ارجو ان تكون الفكرة واضحة

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

RaggiTech