وقتی برنامه arcmap بالا می اید، عنوان برنامه شامل سه جز است: نام .mxd، نام arcmap، و نام لیسانس نرم افزار(arcview، arceditor، Arcinfor). در این تمرین به بررسی عنوان برنامه می پردازیم.
1.arcmap را باز کنید و برنامه ex10a.mxd را انتخاب کنید.
2. با کلیک بر روی منوی tools، visual basic editor را باز کنید.
3. برنامه thisdocument را فعال کنید.
4.object list را به mxdocument و procedure list را به opendocument تغییر دهید.
5.در رویداد opendocument، دو خط زیر را اضافه کنید تا مقدار گذرواژه به صورت ورودی گرفته شود.
dim strpassword as string
strpassword = inputbox("Enter password")
6.در رویداد opendocument ، دستور زیر را وارد کنید.
If "carter = strpassword then
Else
End if
7. بعد از then و قبل از ELSE، عبارت APPLICATION را تایپ کنید. در این صورت موارد زیر نشان داده می شود.
8.از میان قابلیت های مختلف APPLICATION، ویژگی Caption را انتخاب کنید.
Application.caption = "District Crime"
9.پس از کلید واژه else، کد زیر را وارد کنید که در صورت وارد کردن پس ورد اشتباه، خطای زیر را نشان دهد.
10.در صورتی که گذرواژه اشتباه باشد، یک نقشه جدید باز می شود که با کد زیر این کار انجام می شود.
در نهایت کد نهایی به صورت زیر می شود.
11. visual basic editor را ببندید.
12. بر روی منوی فایل، روی تمرین های chapter10 بروید و برنامه جدید را با نام my_ex10a.mxd ذخیره کنید.
13. در Arcmap، بر روی new map در نوار ابزار استاندارد کلیک کنید.
14.در منوی فایل، روی open کلیک کنید. برنامه my_ex10a.mxd را در تمرین های فصل 10 chapter 10 باز کنید.
15. برای گذرواژه، عبارت arcobjects را تایپ کنید. در این صورت به دلیل عدم تطابق گذرواژه، جعبه محاوره ای زیر ظاهر می شود.
16.بر روی ok کلیک کنید تا جعبه هشدار بسته شود.
17. این بار روی open کلیک کنید و از تمرین های فصل 10 برنامه My_ex10a.mxd را باز کنید.
18.برای گذرواژه، عبارت Carter را وارد کنید. دقت کنید که چون گذرواژه به بزرگ یا کوچک بودن حساس است، حتما C به صورت بزرگ باشد. در این صورت، صفحه زیر ظاهر می شود.
19.اگر کار شما به اتمام رسیده است، از arcmap خارج شوید.
