[align=center]~*¤ô§ô¤*~السلام عليكم ورحمة وبركاته~*¤ô§ô¤*~[/align]

هذا درس بسيط في تصميم واجهة برمجية تتفاعل مع خرائط نظم المعلومات الجغرافية ولقد استخدمت الفيجوال بيسك التطبيقي VBPالمرفق مع حزمة ArcGIS وذلك حتى اضمن ان معظم الاعضاء لديهم برنامج GIS ومن يريد استخدام الفجوال بيسكVB لا حرج في ذلك فلا يوجد فرق بينهما في هذا التطبيق

[align=center]ولأن نبدأ على بركة الله[/align]

المرحلة الأولى

طريقة الدخول الى الفجوال بيسك التطبيقي المرفق مع حزمة ArcGIS كما في الصورة التالية




المرحلة الثانية

نضيف الواجهة البرمجية كما في الصورة التالية




المرحلة الثالثة

نضيف الأدوات المطلوبة في تصميم الواجهة وهي Mapcontrol و Microsoft Common Dialog Control من خلال النافذة التالية ويمكن الوصول إليها من خلال الضغط Ctrl+T]


المرحلة الرابعة

نبدأ بتصميم الواجهة فنرسم Mapcontrol على الواجهة حسب الحجم الذي نريده ثم نضع أداتين من Microsoft Common Dialog Control وكما نضع ست أزرار CommandButton كما في الصورة التالية



المرحلة الخامسة

نقوم بتغير صور الايقونات كما في الصورة التالية




المرحلة الخامسة

نقوم بتغير مسمى الايقونات
commandButton1 = cmdopenfile

commandButton2 = cmdExtent

commandButton3 = cmdZoomin

commandButton4 = cmdPan

commandButton5 = cmdMouse

commandButton6 = cmdPrinter

وتتم هذه العملية من خلال خاصية Name كما في الصورة التالية






المرحلة السادسة

في هذه المرحلة نقوم بكتابة الاكواد البرمجية وتتم كالاتي

دبل كلك علىcmdopenfile
وتكتب الشفرة التالية



كود:
CommonDialog1.DialogTitle = "Browse Map Document"
  CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
  CommonDialog1.ShowOpen
 MapControl1.LoadMxFile CommonDialog1.FileName
دبل كلك على ايقونة cmdExtent
وتكتب الشفرة التالية

كود:
MapControl1.Extent = MapControl1.FullExtent
دبل كلك على ايقونة cmdZoomin
وتكتب الشفرة التالية


كود:
MapControl1.MousePointer = esriPointerZoomIn
دبل كلك على ايقونةcmdPan
ونكتب الشفرة التالية


كود:
MapControl1.MousePointer = esriPointerPan
MapControl1.Pan
دبل كلك على ايقونةcmdMouse
ونكتب الشفرة التالية
كود:
MapControl1.MousePointer = esriPointerDefault
دبل كلك على ايقونة cmdPrinter
ونكتب الشفرة التالية


كود:
CommonDialog2.ShowPrinter
MapControl1.MousePointer = esriPointerHourglass
دبل كلك على Mapcontrol1
ونكتب الشفرة التالية


كود:
 If button = 1 Then
    MapControl1.Extent = MapControl1.TrackRectangle
  ElseIf button = 2 Then
    MapControl1.Pan
  End If

[align=center]والان تمتع ببرنامجك الجديد[/align]





[align=center]نسعد بانتقاداتكم مع التصويب فلا تبخلوا علينا بها[/align]


[align=center]وأخيراً نسأل الاعضاء الدعاء [/align]