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

[محمد الحسن الطيب]

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

[فهد المطلق]

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

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



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




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




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

ماعليك الا تغير الامتداد 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


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

[فهد المطلق]

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

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

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