‫ درس 20 : حرکت بر روی نمودار مدل شی گرا ( بخش اول ) | انجمن

مدیریت
مدیریت 26 شهریور 1396

در این تمرین، به دنبال ایجاد یک ابزار  با نام rescue site  هستیم که عرض و طول جغرافیای هر نقطه از نقشه را به ما گزارش دهد.

1.برنامه arcmap را باز کرده و تمرین  ex12a.mxd را کلیک کنید. در این صورت شکل زیر باز می شود.

 

2.بر روی منوی tools کلیک کرده و customize را انتخاب کنید. پس از انتخاب command  tab از categories list، روی UIControls  کلیک کنید.

3.با کلیک روی UIControl، گزینه UIToolControl را انتخاب کنید.

4. بر روی create  کلیک کنید.

5. نام پیش فرض را به project.rescuesite تغییر دهید.

6.project.rescuesite را به پایین نوار ابزار tools بکشید.

7.روی ابزار جدید، راست کلیک کرده و button image را انتخاب کنید و روی browse را کلیک کنید.

8.در مسیر c:\arcobjects\data، شکل helicopter.bmp را انتخاب کنید که در این صورت شکل ابزار به صورت زیر در می آید.

9. روی ابزار rescuesite کلیک کرده و view source  را انتخاب کنید.

10. برای تنظیم شکل اشاره گر، رویداد rescuesite_cursorID()  را به صورت زیر تنظیم کنید.

RescueSite_CursorID = 3

پس از تغییرات کد به صورت زیر می شود.

12.visual basic editor را ببندید.

13.روی rescuesite کلیک کرده و نشانگر موس را بر روی نقشه ببرید.

13.بر روی ابزار rescuesite  کلیک کرده و view source  را انتخاب کنید.

14. در رویه mousemove event، کد زیر را وارد کنید.

dim pmxdoc as imxdocument

set pmxdoc = thisdocument

15.برای گرفتن مختصات، ابتدا نیاز است که اطلاعات نقطه فعلی گرفته شود.

dim ppoint as ipoint

set ppoint = pmxdoc.currentlocation

16.برای نمایش اطلاعات طول و عرض در پایین نقشه، باید از نوار حالت status bar استفاده کنید. برای تنظیم این نوار، از کد زیر استفاده می کنیم.

dim pstatus as istatusbar

set pstatus=application.statusbar

17. برای نمایش طول و عرض در نوار حالت، کد زیر را وارد کنید.

کد نهایی به صورت زیر می شود.

18.visual basic editor را ببندید

19.پس از کلیک rescuesite، روی نقاط مختلف نقشه حرکت کنید تا عرض و طول نقطه را در محور پایین نقشه نشان دهد.

20. اگر تغییر در برنامه را می خواهید ذخیره کنید بر روی save کلیک کنید.

ویرایش شده توسط مدیریت (26 شهریور 1396)