منتدى برامج نت | برامج نت | دليل المواقع | العاب فلاش | برامج | عيادة الطب | Free software
العاب افلام موقع منتديات

المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كل ما تود معرفته عن app.path


hamata00
12-06-2006, 01:14 PM
http://www.9o9i.com/uploads/5f64be0b4c.gif
App.path
تعني مسار البرنامج ، وهي تستخدم للحصول على مسار المجلد الذي يوجد فيه البرنامج .
فمثلاً إذا كان لدينا برنامج في C:\New فهذا هو مسار البرنامج والذي يمكننا الحصول عليه باستخدام App.path
وللتجربة يمكنك الحصول على مسار برنامجك بواسطة أمر هكذا :CODE
Msgbox App.path

يعطيك مسار المجلد الموجود به المشروع
فمثلاً لو لديك ببرنامجك صور كثير ضع جميع الصور في نفس مجلد البرنامج ، ولتحميل صورة مثلاً اسمها shams وامتدادها Bmp اكتب :CODE
Picture1.Picture = Loadpicture(App.path & "\PP1.Bmp")و ليست الصور فقط بل يمكنك تطبيق المثال السابق على اي ملف موجود بنفس مجلد برنامجك
لكن ينبغي التنبه إلى أن App.path قد تعطينا C:\Ahmed أو C:\Ahmed\ ولتلافي هذه المشكلة نقوم بالتالي :CODE

Dim Folder
Folder = App.path
If Right(Folder,1) <> "\" then Folder = Folder & "\"هنا قمنا بتعريف متغير وخزنا فيه مسار البرنامج ، واختبرناه ، فإذا كان آخر حرف من اليمين لا يساوي \ فإننا نقوم باضافتها إليه .

وهكذا نتعامل مع الناتج والمخزن في المتغير Folder كأنه يحتوي على \ مباشرة ، ولذا لا حاجة لكتابتها قبل كتابة اسم الملف .

هذا المضوع برعاية :0
1.hamata00
2.Ahmed ksnv
ارجو الرد هل الشرح مش واضح او الاكواد فيها حاجة؟
:bye:

zakimoulayabdellah
12-06-2006, 01:23 PM
goood friend
thinks thinks:smailes92: :smailes92: :smailes92: :smailes92: :smailes92:

ahmed ksnv
12-06-2006, 08:40 PM
goood friend
thinks thinks:smailes92: :smailes92: :smailes92: :smailes92: :smailes92:

مشكور على المرور

Ahmed_ghanam
12-06-2006, 09:03 PM
مشكورين فريق رائع جدا

الحوسني1
12-06-2006, 09:55 PM
مجهود طيب شكراً

memouz
12-07-2006, 05:07 AM
جزاك الله خيرا و بانتظار المزيد

blacksol
12-07-2006, 11:25 AM
مشكور أخي و لكن ........

ahmed ksnv
12-07-2006, 04:42 PM
مجهود طيب شكراً

مشكورين فريق رائع جدا

جزاك الله خيرا و بانتظار المزيد
مشكورين على المرور
مشكور أخي و لكن ........
مشكور على المرور
نرجو التوضيح

(li) صقر (li)
12-08-2006, 05:29 AM
شكراً أخي , ولو حبيتو أجيبلكو كتب , أخبروني

ahmed ksnv
12-08-2006, 01:42 PM
شكراً أخي , ولو حبيتو أجيبلكو كتب , أخبروني

مشكور أخي على المرور والاقتراح