بديل Sub Main - نسخة قابلة للطباعة

كاتب الموضوع : 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]

كود :

[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]