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

[align=center]~*¤ô§ô¤*~*¤ô§ô¤*~الدرس الثاني~*¤ô§ô¤*~*¤ô§ô¤*~[/align]


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

[align=center]ونقول بالبداية][][§¤°^°¤§][][ ( بسم الله مجريها ومرساها)][][§¤°^°¤§][][[/align]


الخطوة الأولى

الأدوات المطلوبة في تصميم الواجهة

1- Mapcontrol
2- Microsoft Common Dialog Control
3 Toolbar
4- ImageList
5- Label

والحمد الله كل هذه المكونات متوفرة لديكم وتستطيعون إضافتها من خلال النافذة التالية
وأعتقد أنكم تعرفون كيف الوصول إلى هذه النافذة ( راجع الدرس الأول

)http://www.gisclub.net/vb/images/upl...434af17c9c.JPG

الخطوة الثانية

نرسم هذه الأدوات على الواجهة البرمجية

http://www.gisclub.net/vb/images/upl...43720bfcde.JPG

الخطوة الثالثة

نأخذ Right Click على اداة ImageList ثم ناختار Propreties كما هو موضح في الصورة السابقة تظهر لنا النافذه التالية

http://www.gisclub.net/vb/images/upl...438abd12af.JPG

من خلال ايقونة Insert Picture نستطيع إضافة صور الأيقونات ( وأكيد تعرفون مسار مكان صور الايقونات ) راجع الدرس السابق
وهنا يجب علينا الدقة بمانكتبه هل لاحرف كبتل او اصمول وحفظ ترتيب مكان الايقونات ويستحسن احضار ورقة وقلم


Key . Index . Image

صورة فتح ملف . 1 . Open
صورة اضافة طبفة . 2 . LoadData
صورة مؤشر السهم . 3 . Pointer
صورة الزووم . 4 . Zoom
صورة الوضع الطبيعي . 5 . FullExtent
صورة الاستعلام . 6 . Identify
صورة تحديد الظاهرات . 7 . Trackevents

بعد لانتهاء نضغط على OK

الخطوة الرابعة

نأخذ Right Click على اداة Toolbar ثم ناختار Propreties كما هو موضح في الصورة تظهر لك النافذة التالية وقوم بتغير ماهو موضح في رقم ( 2 )
http://www.gisclub.net/vb/images/upl...4d26f5a19a.JPG

بعد ذلك انتقل الى التبويب Button تظهر لك النافذة التالية

http://www.gisclub.net/vb/images/upl...4d3ced70a7.JPG

من هذه النافذة نقوم بإضافة الايقونات التي صممناها في الخطوة الثالثة وهنا تعرفون لماذا طلبنا منكم إخضار ورقة وقلم

في رقم ( 1 ) يمثل رقم ال Index وتفقنا ان رقم واحد هو فتح ملف والان ماعليك الا كتابة Open في خانة رقم ( 4 , 5 , 6 ) وبعد ذلك تضيف الايقونه الثانية من خلال الضغط على رقم ( 7 ) Insert Button وتفقنا انها تكون إضافة بيانات وتكتب LoadData في خانة رقم ( 4 , 5 , 6 ) وهكذا كرر العملية مع كل الايقونات

حتى يخرج شكلها النهائي بهذا الشكل

http://www.gisclub.net/vb/images/upl...4d8b9d0eb6.JPG


الخطوة الخامسة

نقوم بإضافة الأكواد الى الواجهة البرمجية

اعمل دبل كلك على Toolbar وكتب الكود التالي

كود:

---

Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button)
'ÝåÏ ÇáãØáÞ
With MapControl1
 
  Select Case button.Key

    Case "Open"
    CommonDialog1.DialogTitle = "Browse Map Document"
  CommonDialog1.Filter = "Map Documents (*.mxd)|*.mxd"
  CommonDialog1.ShowOpen
  MapControl1.LoadMxFile CommonDialog1.FileName
    Case "LoadData"
    'Get IGxDialog interface
  Dim pGxDialog As IGxDialog
  Set pGxDialog = New GxDialog
  'Get IGxObjectFilter interface
  Dim pGxObjectFilter As IGxObjectFilter
  Set pGxObjectFilter = New GxFilterFeatureClasses
  'Set GxDialog properties
  Set pGxDialog.ObjectFilter = pGxObjectFilter
  pGxDialog.AllowMultiSelect = True
  pGxDialog.Title = "Add Feature Data"
 
  'Get IEnumGxObject
  Dim pEnumGxObject As IEnumGxObject
  'Display the GxDialog and set the EnumGxObject. Exit if user cancel the dialog
  If pGxDialog.DoModalOpen(MapControl1.hWnd, pEnumGxObject) = False Then Exit Sub
  Dim pFeatureLayer As IFeatureLayer
  Dim pFeatureClass As IFeatureClass
  Dim pGxDataset As IGxDataset
 
  'Get IGxObject interface
  Dim pGxObject As IGxObject
  pEnumGxObject.Reset
  Set pGxObject = pEnumGxObject.Next
  'Loop through the GxObjects
  Do While Not pGxObject Is Nothing
    'Query interface for IGxDataset interface
    Set pGxDataset = pGxObject
    'Get IFeatureClass interface
    Set pFeatureClass = pGxDataset.Dataset
    'Get IFeatureLayer interface
    Set pFeatureLayer = New FeatureLayer
    'Set layer properties
    Set pFeatureLayer.FeatureClass = pFeatureClass
    pFeatureLayer.Name = pFeatureClass.AliasName
    'Add the layer to the MapControl
    MapControl1.AddLayer pFeatureLayer, 0
    'Add the layer name to the control
   
    Set pGxObject = pEnumGxObject.Next
  Loop
 
    Case "Zoom"
              .MousePointer = esriPointerZoomIn
    Case "Pointer"
            MapControl1.MousePointer = esriPointerDefault
    Case "Pan"
            MapControl1.MousePointer = esriPointerPan
            MapControl1.Pan
    Case "Fullextent"
            MapControl1.Extent = MapControl1.FullExtent
    Case "Trackevents"
          MapControl1.MousePointer = esriPointerHotLink
    Case "query"
          .MousePointer = esriPointerCrosshair
    Case "Identify"
        MapControl1.MousePointer = esriPointerDefault
          Dim pIdentifyDialog As IIdentifyDialog
                Dim pIdentifyDialogProps As IIdentifyDialogProps
                Dim pEnumLayer As IEnumLayer
                Dim pLayer As ILayer
                Dim pActiveView As IActiveView
                '  Set pMxDoc = Application.Document
                Set pActiveView = Me.MapControl1.ActiveView.FocusMap
               
               
                'Create a new IdentifyDialog and associate it
                'with the focus map and the map's display
                Set pIdentifyDialog = New IdentifyDialog
                Set pIdentifyDialogProps = pIdentifyDialog 'QI
                Set pIdentifyDialog.Map = Me.MapControl1.ActiveView.FocusMap
                Set pIdentifyDialog.display = pActiveView.ScreenDisplay
               
                'Clear the dialog on each mouse click
                pIdentifyDialog.ClearLayers
               
                'Perform an identify on all of the layers the dialog
                'says are searchable
                Set pEnumLayer = pIdentifyDialogProps.Layers
                pEnumLayer.Reset
                Set pLayer = pEnumLayer.Next
                Do While Not pLayer Is Nothing
                  pIdentifyDialog.AddLayerIdentifyPoint pLayer, x, y
                  Set pLayer = pEnumLayer.Next
                Loop
               
                pIdentifyDialog.Show
 
  End Select
 End With
End Sub

---

نضيف الكود التالي الى Mapcontrol عن الحدثOnMouseDown

كود:

---

If button = vbLeftButton Then
MapControl1.Extent = MapControl1.TrackRectangle
End If
With Toolbar1.Buttons
If .Item("Zoom").Value = tbrPressed Then
MapControl1.Extent = MapControl1.TrackRectangle
ElseIf .Item("Pan").Value = tbrPressed Then
MapControl1.Pan
ElseIf .Item("Trackevents").Value = tbrPressed Then
AddGeoEvent mapX, mapY
ElseIf .Item("query").Value = tbrPressed Then
 SearchShape
End If
End With

---

نضيف الكود التالي الى Mapcontrol عن الحدثOnMouseMove

كود:

---

Label1.Caption = "1:" & MapControl1.MapScale  'ÝåÏ ÇáãØáÞ

---

الخطوة السادسة

والآن نضيف ملفات النظام المطلوبة من References حتى لا تظهر لكم الرسائل المزعجة وتخبركم بوجود خطأ

http://www.gisclub.net/vb/images/upl...4e9d9d8bff.JPG

والملفات المطوبة هي ( أنظر الصورة)

http://www.gisclub.net/vb/images/upl...4ea355e104.JPG

[align=center]
والآن تمتع ببرنامجك الجديد[/align]

http://www.gisclub.net/vb/images/upl...4ec58bc870.JPG


[align=center]«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»وأخيراً نسألكم الدعاء لي و لي والدي«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»[/align]

سلمت يداك يا أخ فهد وبارك الله فيك ولك

علي فكرة تم حذف الموضوع المكرر

بالتوفيق

بارك الله فيك وفيما تقدم جزاك الله عنا خيرا
دمت في امان

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

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

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

[align=center]غفر الله لك و لوالدك وجزاكما خير الجزاء

[/align]

بارك الله فيك وفي جهودك يا فهد
وأقول لمختار نعم ثم نعم فأنت والجميع لها

اخى العزيز فهد المطلق
شكرا كثيرا لك فقد قمت بحل الكثير من المشاكل التى واجهاتنى
والحمد لله بفضل الله ثم لك قد تمكنت فى التغلب عليها
ونتمنى عدم التوقف عن هذا الابداع ومحاولة التقدم الى الوصول الى مرحلة الاحتراف باذن الله
ولى استفسار صغير ماهو الكود الخاص بعمل zoom out
وارجو من حضرتك التواصل معنا وايضا من الاخوة الاعضاء ونتمنى ايضا طرح الاسئلة والمناقشات للاستفادة
وغفر الله لك ولواالدك
فى امن الله

شكرا لك اخي فهد ما قصرت

جزاك الله كل خير

يا طيب انا جربت الدرس التاني طلعلعى غلط وخصوصا في كود toolbar وخصوصا المتغيرا x ,y

بتعمل معرف اذا بتحمل المشروع اللى عملتو مفتوح المصدر

شكرا مسبقا

السلام عليكم
مشكور كتير اخى فهد على هدا المجهود
وجارى التنفيذ
كان لدى استفسار فى مشاركة ماضية عن الاستعلام ، وقد تكرمت ورفعت بروقرام
بس لقيته ما الشئ اللى انا طالبته ، انا بدى اعمل تكست بوكس وكوماند ،
فى التكست يكتب اليوزر اسم المنطقة مثلا ، ويضغط ع الكوماند ويعطيه تقرير عن هدى المنطقة فقط



وشكرا
انا فى انتظار الرد

أولا احب اشكر الجميع
محمد جمال

وندى صالح

مختار الحسانين

ابراهيم ابو مريم

د جمعة داود

د على الغامدي

خميس الاحمد

على كلامهم الطيب

ثانيا أقول

للاخ محمد جمال iهذا الكود الذي تحتاجه إن شاء الله

كود:

---

Case "ZoomOut"
        .MousePointer = esriPointerZoomOut
        .Extent = MapControl1.FullExtent

---

الأخ خميس الاحمد

حسب وجهة نظري اذا رفعت المشروع لم يكن درس و أنا هدفي هو تطبيق الدرس و أكتشاف الاخطاء ومعالجتها سوياً بهذا الشكل تكون الفائدة اكبر

بخصوص مشكلتك

مشكلتك هو في اضافة ملفات النظام فيجب عليك التأكد انك اضفت كل الملفات المطلوبه وأكيد يظهر لك الون الاصفر على الكود وهذا يعني ان الكود صحيح لكن يحتاج ملف داعم له فراجع صور الخطوه السادسة
واذا ستمرة معك المشكلة ارسل لي تمرينك على الخاص

الاخت سلمى

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

انتظري قليلا

هلا اخوى فهد
مشكور كتير وانا بانتظارك



وشكرا

اخى العزيز فهد لقد قمت بتجربة ذالك الكود
ولكنة لم يعمل انا اقصد ان zoom in خاص بالتكبير
اما zoomout خاص بالتصغير
فكيف يكون فية الدالة fullextent
وشكرا لك

سف اخ جمال

أعمل الآتي

كود:

---

Case "ZoomOut"
        .MousePointer = esriPointerZoomOut

---

وهذا الكود تضعه في Mapcontrol1

كود:

---

ElseIf .Item("ZoomOut").Value = tbrUnpressed Then
    Dim pEnv As IEnvelope
    Set pEnv = MapControl1.Extent
    pEnv.Expand 1.5, 1.5, True
    MapControl1.Extent = pEnv

---

لاحط الكلمة الي بالون الاحمر لابد تغير الكود السابق من tbrPressed إلى tbrUnpressed

واذا لم تنجح هذه العمليه اخبرني علماً انها ناجحه عندي

الاخت سلمى

اقتباس:

---

انا بدى اعمل تكست بوكس وكوماند ،
فى التكست يكتب اليوزر اسم المنطقة مثلا ، ويضغط ع الكوماند ويعطيه تقرير عن هدى المنطقة فقط

---

لقد فكرت بمشروعك ولكن وحسب اعتقادي لن ينجح وذلك لأخطاء المستخدم في الكتابة فمثلاً لو كتب المستخدم في TextBox في بداية الكلمة سمول وهي بقاعدة البيانات كبتل لن يتعرف عليها ولو كتب التاء المربوطة من غير نقط وهي بقاعدة البيانات بنقط كذلك لن يتعرف عليها وقيسي على ذلك باختصار TextBox لن ينفع

فقترح وضع ListBox على الواجهة وتحميل جميع الظاهرات عليها وبمجرد الضغط الى الظاهره يظهر لك تقرير عنها
وهذه الطريقة لا تطلب من المستخدم كتابة اي كلمة ماعليه الا التحديد الظاهرة فقط

أسمع ردك

السلام عليكم
مشكور كتير اخوى فهد
انا كنت عاوزة اعمل الطريقة اللى انا قلتها
بس اقتنعت بكلامك وح اعمل بطريقتك





وشكرا

انا فى انتظار ردك

السلام عليكم
اخوى فهد كنت سألتك فى مشاركة سابقة انه اريد لما احرك الماوس فى الخرطة يعطينى احداثيات النقطة (x,y ) وانت كتبت كود بس هدا الكود ما بيشتغل معى ، مع انى اضفت الملفات الحيوية
ممكن تقللى مشكلتى فين



وشكرا

بارك الله فيك وفيما تقدم جزاك الله عنا خيرا
فعلا أنا مع أخي مختار في انك يا اخ فهد قد أعدت الروح للمنتدى بهذه الدروس المتخصصة جدا والتى تنطلق بالمنتدى إلى أفاق جديدة لم يتطرق إليها أى موقع أخر ونحن في انتظار المزيد منك كما نرجو من الاخوة الأعضاء التفاعل ونريد ان نقراء اقتراح علي الاقل من كل واحد مني ونطرح الأفكار حتى يكون هناك تعاون وتكامل بين افراد وأعضاء المنتدى الحبيب وانا مثلا عندي اقتراح عن كود يربط بين الجوجل ايرث وبين الارك جي أي اس وذلك لما في فائد خصوص في المخططات العامة لمدن او للقري
او خرائط استخدمات الاراضي .
واخير بارك الله فيك اخى فهد المطلق ونرجوا الاستمرار والاستمرار والاستمرار

درس مفيد جدا وبالفعل يدخل الحافز في هذا المجال للتعلم والاستفادة من الخبرات لموجودة في نادينا المختص وشكرا لك اخ فهد

السلام عليكم جميع

اخت سلمى لقد عملت لك هذا المثال حملت لك قاعدة البيانات على ListBox وجعلت المستخدم يظهر التقرير من خلال ضغط المؤشر على الظاهرة ولم استطع اظهارة من الضغط على ListBox
أنتي حاولي في إيجاد حل وانا كذلك سوف احاول في وقت فراغي

رابط المثال

http://www.zshare.net/download/144200806ea91874/

اهلاً بك اخي علي طلبه وشكرك على هذا الكلام الجميل

أنا دائما أقول أنني في مرحلة التعلم ولم اصل الى درجة تمكنني من معرفة اسرار البرمجة ولكن احاول اقدم لكم ماتعلمته خلال اشهر وكذلك احاول مساعدت اخواني بما استطيع واطلب منهم المعذرة بمالا استطيع

وهدف من هذه الدروس هو رمي حجر صغير في هذا النهر الكبير لعله يغير مجراه

لقد أسعدني قدوم بعض الاعضاء الجدد وعودة بعض الاعضاء المنقطعين مثل أخينا ياسر نور الدين الذي يمتلك مخزون ثقافي عالي في برمجة نظم المعلومات الجغرافية واتمنى ان يستمر في عطاءه بأي لغة كانت وأي أداة كانت لان الهدف هو التعلم وعلى وزن المثال المشهور (( واذا اختلفت الادوات والبرمجة واحده))


تحياتي

السلام عليكم
مشكور كتير اخى فهد
راح احاول واعطيك الرد



وشكرا

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

وشكرا لك

هذه الملفات التي تريدها

http://www.zshare.net/download/14472908321f6195/

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

شكرا لك اخى فهد
وانا فى انتظار ردك

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



وشكرا

بسم الله الرحمن الرحيم

جزاك الله خيرا أخي فهد جهد طيب وموضوع جديد ومهم

غفر الله لك به ولوالديك

السلام عليكم
وينك اخى فهد

السلام عليكم
خوانى انا بدى ايقونات لبرنامجى ( لعمل الزوم ان وآوت ، واضافة ، وفتح ملف، ..........واخريات )
اللى عندو يبعتهملى .
ثانيا : اخى فهد بحاول اضيف ايقونات للبروقرام بس بتظهر ليا الازرار من غير الصور ، طبعا طبقت الطريقة اللى
انت شرحتها لنا فى مشاركة


وشكرا
انا فى انتظار الرد

هلا اخت عبير

مشكوره على هذا الكلام الطيب


الاخت سلمى

جميع ماتطلبينه من اكواد موجوده في شرح الدرس

أولاً لابد ان تطبقي الدرس بحذافيره لانه حساس جدا وخاصة بكتابة مسمى الايقونات لانه بمجرد اختلاف بسيط مثل تغير حرف من كبتل الى سمول لان يتعرف عليها البرنامج ولا نعمل ثانيا لا بد ان تكون صور الايقونات بامتداد Bitmap

السلام عليكم
وينك اخى فهد
شنو هدى الغيبة الطويلة ام شاء الله تكون بخير
نحن فى انتظار شروحاتك
انا لدى بعض الاستفسارات وابغى الرد منك بسرعة
لو ممكن انا ح ابعت لك مسج فى ايميلك اللى فى الهوتميل





وشكرا
انا فى انتظار ردك

[align=center]نور حياتك بالهدى.... واسلك طريق التائبين... وأعمر فؤادك بالتقى ....فالعمر محدود السنين.. وارضِ الإله بطاعة.... تسعدك في دنيا ودين.... واحمل بصدرك مصحفاً.... يشرح فؤادك كل حين.. ودع الغواية إنها.... لشقاوة للغافلين.... الدين مشكاة الحياة.... يضئ درب الحائرين عد للكريم بتوبة.... واركب جناح العائدين.... تلقى السعادة كلها.... فلنعم درب الصالحين[/align]

انا من المهتمين بالبرمجة يا اخ فهدارجو منك ان تساعدنا في هذا المجال شاكرين لك ذلك وارجو ان اجدة الدرس الاول

شكرا جزيلا استاذنا الجليل وجعل الله كل هذا في ميزان حسناتك.

شكرا على الدرس القيم , أستخدم arcgis 9.2 و vb6 و لم أجد ال Mapcontrol ضمن ال components عندما أستدعيها لتوقيعها على ال Form , أرجو المساعدة .

شكرا على الدرس الممتاز و جزاك الله خيرا

لكن عندما انفذ الدررس فى بعض الادوات تتطلب منى ترخيص اخر لاستخدام هذه الاداه
مثل Esri Map Control
لا تعمل فااريد المساعده لو سمح
وشكرا

اقتباس:

---

شكرا على الدرس القيم , أستخدم arcgis 9.2 و vb6 و لم أجد ال Mapcontrol ضمن ال components عندما أستدعيها لتوقيعها على ال Form , أرجو المساعدة

---

اقتباس:

---

لكن عندما انفذ الدررس فى بعض الادوات تتطلب منى ترخيص اخر لاستخدام هذه الاداه
مثل Esri Map Control
لا تعمل فااريد المساعده لو سمح

---

غريبة تحدث معكم هذه الاشياء انا عملت على اصدار 9.1 و 9.2 ولم تحدث معي مشاكل لكن اصدار 9.3 لم اعمل عليه

وايضا عند استخدام اداه Microsoft Common Dialog Control

تظهر رسالة فى ما معناه ان الاداه غير مرخصه للاستخدام