تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بديل Sub Main
#1
كاتب الموضوع : 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]

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


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


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


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 105.66 ك ب / التحميلات : 28)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الطريقة Main RaggiTech 0 428 02-10-12, 07:32 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم