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

[فهد المطلق]

السلام عليكم جميع

اخت سلمى لقد عملت لك هذا المثال حملت لك قاعدة البيانات على ListBox وجعلت المستخدم يظهر التقرير من خلال ضغط المؤشر على الظاهرة ولم استطع اظهارة من الضغط على ListBox
أنتي حاولي في إيجاد حل وانا كذلك سوف احاول في وقت فراغي

رابط المثال

http://www.zshare.net/download/144200806ea91874/

[فهد المطلق]

اهلاً بك اخي علي طلبه وشكرك على هذا الكلام الجميل

أنا دائما أقول أنني في مرحلة التعلم ولم اصل الى درجة تمكنني من معرفة اسرار البرمجة ولكن احاول اقدم لكم ماتعلمته خلال اشهر وكذلك احاول مساعدت اخواني بما استطيع واطلب منهم المعذرة بمالا استطيع

وهدف من هذه الدروس هو رمي حجر صغير في هذا النهر الكبير لعله يغير مجراه

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


تحياتي

[سلمى الحسين]

السلام عليكم
مشكور كتير اخى فهد
راح احاول واعطيك الرد



وشكرا

[محمد جمال]

[align=left]اخى العزيز فهد
السلام عليكم ورحمة الله وبركاتة
شكرا لك اخى العزيز على هذا الدرس وعلى اهتمامك وشكرا ايضا الى اعضاء المنتدى على المشاركة
ولكن اخى العزيز واجهتنى مجموعه من المشاكل وهى كالتالى
اولا زر zoomout
الكود الخاص بة الذى قمت بكتابتة لى فانة يجعل الماوس عند عمل كليك واحدة سواء من الزر الايمن او الايسر او ايضا من اى مفتاح فى toolbar عند الضغط كليك واحد فقط بزر الماوس الايمن او الايسر يقوم بالتصغر حتى ولو قمت بعمل zoom in وقمت بعمل كليك واحدة باى من الايمن او الايسر دون ادراج مربع التكبير يقوم ايضا بالتصغير ولكنى اريد انة عن الضغط على الزر الايسر للماوس واقوم بادراج مربع للتصغير يقوم بالتصغير ويكون هذا العمل قاصرا على زر zoomout فقط

ثانيا زر pan
فان هذا الزر يقوم بعمل pan مرة واحدة فقط وهى بمجرد الضغط على زر pan ولكنى اريدة ان يكون حر الحركة واعمل اكثر من Pan متتالييت دون الضغط على زر pan مرة اخرى مثل زر zoom

ثالثا زر query ,trackevents
لا يعملان لدى ووجدت انة الكود الخاص بهما ينقصة procedure وهما يوضعان فى منطقة التصريحات العمة general
وهما SearchShape و AddGeoEvent وقمت بكتابتهم وارجوا منك ان تقوم بتصحيحهم لى لان البرنامج مازال لا يعمل فى هذين الزرين والاكواد كانت كالاتى

[Private Sub SearchShape()
Dim PSearchShape As IPolygon
'create the search shape
Set PSearchShape = MapControl1.TrackPolygon
'do the actual selection
With MapControl1
.Map.ClearSelection
.Refresh esriViewGeoSelection
.Map.SelectByShape PSearchShape, Nothing, False
'and refresh the map
.Refresh esriViewGeoSelection
End With
End Sub
والاخر كالتالى

Private Sub AddGeoEvent(mapX As Double, mapY As Double)
'make the point
Dim pPoint As IPoint
Set pPoint = New Point
pPoint.PutCoords mapX.mapY
'mak the element
Dim pElement As IElement
Set pElement = New MarkerElement
pElement.Geometry = pPoint
'add the element to the collection
m_pElementCollection.Add pElement
'and finally redraw the map
MapControl1.Refresh esriViewForeground
End Sub

ملحوظة ليست لدى الاداة الحيوية esri maplexui وارجو منك رفعهالنا[/align]

[محمد جمال]

وشكرا لك

[فهد المطلق]

هذه الملفات التي تريدها

http://www.zshare.net/download/14472908321f6195/

سوف أرى هذه الاكواد واوافيك بما يجد عندي

[محمد جمال]

شكرا لك اخى فهد
وانا فى انتظار ردك

[سلمى الحسين]

السلام عليكم
مشكور كتير اخى فهد
بس عندى استفسار فى الاكواد



وشكرا

[عبير الركابي]

بسم الله الرحمن الرحيم

جزاك الله خيرا أخي فهد جهد طيب وموضوع جديد ومهم

غفر الله لك به ولوالديك

[سلمى الحسين]

السلام عليكم
وينك اخى فهد