الدرس الثاني في استخدام الفيجوال بيسك للتطبيقات Vba

[فهد المطلق]

مشكور اخوي وسام على هذا الدرس

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

أما بخصوص عرض ادرس اقترح عليك اذا عملت برنت سكرين ان تقص الجزء المطلوب حتى يكون حجم الصورة صغير
هكذا




وكتابة الكود بهذه الطريقة

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

وفي النهاية تمنيت ان أرى نتيجة عملك


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

اخوك فهد