الكائن App

كلمة App هذه عبارة عن كائن كامل فى الفيجوال بيسيك مثله مثل كائن الطباعة printer وغيره من كائنات الفيجوال بيسيك .
اى انه يمكننا ان نستفيد منه فى عدة امور اخرى غير معرفة مسار البرنامج اهمها:

App.EXEName
' لمعرفة اسم الملف التنفيذى للبرنامج
App.PrevInstance
' وهى ترجع بقيمة true اذا كانت توجد نسخة اخرى من البرنامج فى الذاكرة او false اذا كان العكس وتستخدم للتأكد من عدم تشغيل اكثر من نسخة من البرنامج
App.TaskVisible
' مثلا نكتب App.TaskVisible=false لكى لا يظهر اسم البرنامج فى ال Task Manager والعكس صحيح

ويحتوى الكائن App على العديد من الخصائص والطرق الاخرى المتقدمة .

App.path

تعني مسار البرنامج ، وهي تستخدم للحصول على مسار المجلد الذي يوجد فيه البرنامج .
فمثلاً إذا كان لدينا برنامج في C:\New فهذا هو مسار البرنامج والذي يمكننا الحصول عليه باستخدام App.path
وللتجربة يمكنك الحصول على مسار برنامجك بواسطة أمر هكذا :

Msgbox App.path

Picture1.Picture = Loadpicture(App.path & "\PP1.Bmp")

 App.path قد تعطينا C:\Ahmed أو C:\Ahmed\

Dim Folder
Folder = App.path
If Right(Folder,1) <> "\" then Folder = Folder & "\"

Set DB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\A.mdb", True)