درس تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية

اخي بارك الله فيك لم عرفت طريقة اخراج البرنامج بصورته النهائية و هي
MyFirstProgram.EXE من قائمة File
و بارك الله فيك علي هذا الدرس

بخصوص تغير صورة الايقونه

اولا تضغط على الزر ( الايقونه ) المراد تغير صورتها ضغطه واحده ثم تذهب الى خاصية Picture ( كما هو موضح في الصورة) وتضغط عليها تفتحلك نافذه حدد مسار مكان صور الايقونات ( كما هو موضح في الصورة) ثم ابحث عن الصورة المرادة وحددها واختر OK سوف تظهر لك الصوره على الايقونه

http://www.gisclub.net/vb/images/upl...afb4ecfcbe.JPG

ملاحظه هامه من الممكن اذا حددت مسار مكان الصورة المستهدفه لا تظهر كصور بل تظهر كتابه فعليك بهذه الحاله من أعلى النافذه اختار ( تابع الصورة)

http://www.gisclub.net/vb/images/upl...e971d45b82.JPG


اما بخصوص عمل ملف تنفيذي exe. فهذا يتم بالطريقة التالية

http://www.gisclub.net/vb/images/upl...e977139bd0.JPG


اما بخضوض تغير الامتدادات فهذا يتم من خلال الكود الاول الذي وضعته وهو فتح ملف

ماعليك الا تغير الامتداد mxl. بالامتداد الذي تريده

إن شاء الله تنهي مشروعك بكل جوده

وانا انتظر المنتج النهائي

بالتوفيق

السلام عليكم
والله الف شكر على هدا الدرس الرائع
استفدت منه كتير
الان بدى اربط vb بال geodatabase
كيف الطريقة
وشكرا

هلا اخت سلمى

لم افهم قصدك بهذا الربط

هل تريدين الاستعلام عن قاعدة البيانات الجغرافية من برنامجك

او تريدين تصميم هذه الواجهة من خلال برنامجك

لابد ان افهم قصدك حتى أرى كيف اقدر على مساعدتك

السلام عليكم
انا صممت الواجهة بالفجوال يسك واريد ان اربطها بالاتربيوت تيبل فى الارك ماب
يعنى اربط الجداول فى الفجوال بيسك مع الجيو داتا بيز
وشكرا

السلام عليكم
ايه يا جماعة مافى اى رد

على رسلك اخت سلمى

انتظري قليلا سوف اعمل لك مثال

بارك الله فيك اخي فهد المطلق
لقد طبقت كل ما قلت لي و اتضح لي ذلك الدرس جيدا
و المشكلة الوحيدة هي ان النسخة التي لدي من فيجوال بيسك فهي بعض الاخطاء و هذا هو سبب عدم ظهور الايقونات التي اضحت طريقة و ضعهم
تقبل تحياتي و اعجابي بك و بارك الله فيك و جزاك خيرا

أسف اخت سلمى على التأخر
بسبب ظروف weekend

الما بخصوص سألك عن الكود الخاض باحضار قاعدة البيانات هو

كود:

---

' Get the ITable from the geodatabase
  Dim pFact As IWorkspaceFactory
  Dim pWorkspace As IWorkspace
  Dim pFeatws As IFeatureWorkspace
  Dim pTable As ITable
  Set pFact = New ShapefileWorkspaceFactory
  Set pWorkspace = pFact.OpenFromFile("d:\tables81\testing", 0)
  Set pFeatws = pWorkspace
  Set pTable = pFeatws.OpenTable("demog")
 
  ' add the table
  Add_Table_TOC pTable

---

ولكن يتوجب عليك تغير مسار الملف ووضع المسار الموجود فيه قاعدتك وكذلك تغير اسم demog ووضع اسم الظاهرة المراد الاستعلام عنها
والهم من هذا وذك يجب عليك البحث عن ملف النظام من خلال References

وهذا رابط مثال عن الاستعلام عن قواعد البيانات

http://www.4shared.com/file/51236395...d/_online.html


وبالله التوفيق

هلا اخي محمد الحسن

المهم انك طبق هذا الدرس واستفدت

وانا موجود اذا احتجت إلي