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

[محمد جمال]

[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]