أحداث التطبيق Application Events

**المحــ البرمجى ــتوى** · #1 (**permalink**) 02-02-2007, 01:39 PM

الشرح هنا خاص بـ Visual Basic 2005

للوصول إليها:

من مستكشف الحل Solution Explorer انقر بالماوس اليميني على مشروعك ثم اختر Properties ثم من صفحة Application اضغط زر View Application Events فيتم نقلك لمحرر الكود حيث تتمكن من استخدام الحدث الذي تحتاج لمعالجته في تطبيقك من خصائص التطبيق كما هو ظاهر بالصورة

وفيما يلي تعريف بكل حدث على حدة

My.Application.Startup Event
حيث ينطلق هذا الحدث عند بداية التطبيق لتضع فيه الأوامر التي تريد تنفيذها عند بداية التطبيق فمثلا إذا أردت تغيير الثقافة الخاصة بالتطبيق إلى العربية – سورية نستخدم كودا شبيها بالتالي:

كود PHP:

  
Private Sub MyApplication_Startup(ByVal sender As @_@@_@@_@@_@@_@@_@‚ _
ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) _
         Handles Me.Startup

                        ‘ تغيير الثقافة الخاصة بالتطبيق عند بداية التطبيق
                        ‘ قبل إظهار أية نافذة
                        My.Application.ChangeCulture("Ar-Sy")

End Sub

و البارامتر e يشير إلى الفئة Class StartupEventArgs التي توفر معلومات حول بداية التطبيق ولها عدة خصائص مثل Cancel التي تقوم بإلغاء الحدث و CommandLine التي تمرر بارامترات سطر الأوامر للتطبيق command-line arguments كما يمكنك الحصول على بارامترات سطر الأوامر أيضا باستخدام الأمر My.Application.CommandLineArgs من أي مكان في التطبيق

كود PHP:

  

My.Application.Shutdown Event

حيث ينطلق هذا ا الحدث عند نهاية التطبيق فيمكنك استخدامه لمعالجة الأمور التي تحتاجها قبل نهاية التطبيق مباشرة
مثال :

كود PHP:

  

                Private Sub MyApplication_Shutdown(ByVal sender As @_@@_@@_@@_@@_@@_@‚ _
                        ByVal e As System.EventArgs) Handles Me.Shutdown

                        My.Application.Log.WriteEntry("Application Shut Down.")

                End Sub
My.Application.StartupNextInstance Event

حيث ينطلق هذا ا الحدث عندما تحاول تشغيل نسخة ثانية من التطبيق المفترض أن يكون وحيد التواجد single-instance application والتطبيق مفتوح فعليا
مثال:

كود PHP:

  

Private Sub MyApplication_StartupNextInstance(ByVal sender As @_@@_@@_@@_@@_@@_@‚ _
ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs)_
Handles Me.StartupNextInstance

                        Dim inputArgument As String = "/input = "
                        Dim inputName As String = ""
                        For Each s As String In e.CommandLine
                                If s.ToLower.StartsWith(inputArgument) Then
                                        inputName = s.Remove(0‚ inputArgument.Length)
                                End If
                        Next
                        If inputName = "" Then
                                MsgBox("No input name")
                        Else
                                MsgBox("Input name: " & inputName)
                        End If
End Sub

حيث يشير البارامتر e للفئة StartupNextInstanceEventArgs التي تعيد معلومات حول تواجدات التطبيق Application Instancs حيث تحدد الخاصية BringToForeground فيما إذا كان يجب نقل التواجد الأول للتطبيق إلى الواجهة و الخاصية CommandLine تحدد بارامترات سطر الأوامر للتواجد الجديد للتطبيق

My.Application.UnhandledException Event
حيث ينطلق هذا ا الحدث عندما ينطلق استثناء Exception في تطبيقك لم تتم معالجته داخل التطبيق لتتمكن من إجراء معالجة لهذا الاستثناء
مثال:

كود PHP:

  

Private Sub MyApplication_UnhandledException(ByVal sender As @_@@_@@_@@_@@_@@_@‚ _
ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
Handles Me.UnhandledException

                        My.Application.Log.WriteException(e.Exception‚ _
         TraceEventType.Critical‚ "Unhandled Exception.")

End Sub

و البارامتر e يشير إلى الفئة UnhandledExceptionEventArgs التي تحوي معلومات حول الخطأ مثل الخاصية Exception التي تحوي معلومات عن الخطأ و الخاصية ExitApplication التي تحدد فيما إذا كان يجب إنهاء التطبيق فور نهاية الإجرائية

كود PHP:

  

NetworkChange.NetworkAvailabilityChanged Event
ينطلق هذا الحدث عندما تحدث تغييرات حول توافر الشبكة

Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As @_@@_@@_@@_@@_@@_@‚ _
        ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) _
        Handles Me.NetworkAvailabilityChanged

                        MsgBox(e.IsNetworkAvailable.ToString)

End Sub

حيث يشير البارامتر e للفئة NetworkAvailableEventArgs التي تمرر معلومات حول توافر الشبكة ولها خاصية مفيدة هي IsNetworkAvailable التي تعيد قيمة منطقية هل الشبكة متوافرة أم لا

أرجو أن يكون هذا الشرح على عجالة مفيدا للجميع في التعرف على Application Events حيث يمكنكم الحصول على التفاصيل حول كل حدث من هذه الأحداث في مكتبة MSDN المرفقة مع فيجول ستوديو

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق
انواع عرض الموضوع
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري

المواضيع المتشابهه للموضوع: أحداث التطبيق Application Events
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
المواقع العالمية	المحــ البرمجى ــتوى	¨¨¨°~§¦§ Oracle أوراكل §¦§~°¨¨¨	1	04-03-2008 11:25 PM
الإعدادات فيجول دوت نيت بشكل عام	المحــ البرمجى ــتوى	¨¨¨°~§¦§ Microsoft Visual Basic.NET §¦§~°¨¨¨	2	03-15-2008 12:59 PM
دورة المنطقة الأمنية Ii (الدفاع المضاد	المحــ البرمجى ــتوى	شبكة الإنترنت (منافع ومخاطر)	1	09-23-2007 01:06 AM
ملفات المصادر المختلفة	المحــ البرمجى ــتوى	¨¨¨°~§¦§ Microsoft Visual Basic.NET §¦§~°¨¨¨	0	02-02-2007 02:47 PM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

		الاتصال بنا - المعلن - المحــــ البرمجى ـــــتوى - الأرشيف - الأعلى
Powered by vBulletin® Version 3.7.1 .Copyright ©2000 - 2008, Jelsoft Enterprises Ltd المحتوى البرمجىAravbSecurity