الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته
أرسل إليكم الدرس الثاني وأسف للتأخير عليكم
بعد أن أكملنا الدرس الأول والذي نشر على الرابط التالي:
http://www.gisclub.net/vb/showthread.php?threadid=3104
نكمل اليوم الخطوات البرمجية لما عملناه سابقاً وأود أن أشير إلى بعض الأمور الخاصة بهذا الأمر وهي:
1. القاعدة العامة لبرمجة التطبيقات هي تعريف الملف ثم الوصول إليه
2. بعد ذلك يتم الوصول إلى الليرات عند ذلك يتم التعامل مع مكونات الليرات مثل الجداول والرسومات ... الخ
عمل هذا الكود هو الوصول إلى الليرات وعرض أسمائها وطبعا هذا مثال من اجل معرفة الطريقة.
وان شاء الله سأحاول أن أرسل الدرس الثالث حول بعض الأمور المتقدمة للتعامل مع الليرات.
أتمنى من الأخوة من اجل التعلم عدم استخدام النسخ في كتابة هذا الكود عند تطبيقه بل كتابته يدوياً..
وفي الختام ارجوا ان استقبل الردود حول طريقة الشرح وهل هي مجدية أم لا وعن الفائدة وبدون أي مجاملات من اجل الوصول إلى الأسلوب الأمثل لفائدة الأعضاء في المنتدى
مع التقدير
ملاحظة : من اجل عمل هذا الكود يجب ان يحتوي الملف على ليرات
[align=left]Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pMap As IMap
Set pMap = pMxDoc.FocusMap
Dim pLayer As ILayer
Dim pMapLayers As IEnumLayer
Set pMapLayers = pMap.Layers
Set pLayer = pMapLayers.Next
Do Until pLayer Is Nothing
MsgBox pLayer.Name
Set pLayer = pMapLayers.Next
Loop[/align]
رد مع اقتباس