أولا احب اشكر الجميع
محمد جمال
وندى صالح
مختار الحسانين
ابراهيم ابو مريم
د جمعة داود
د على الغامدي
خميس الاحمد
على كلامهم الطيب
ثانيا أقول
للاخ محمد جمال iهذا الكود الذي تحتاجه إن شاء الله
كود:Case "ZoomOut" .MousePointer = esriPointerZoomOut .Extent = MapControl1.FullExtent
الأخ خميس الاحمد
حسب وجهة نظري اذا رفعت المشروع لم يكن درس و أنا هدفي هو تطبيق الدرس و أكتشاف الاخطاء ومعالجتها سوياً بهذا الشكل تكون الفائدة اكبر
بخصوص مشكلتك
مشكلتك هو في اضافة ملفات النظام فيجب عليك التأكد انك اضفت كل الملفات المطلوبه وأكيد يظهر لك الون الاصفر على الكود وهذا يعني ان الكود صحيح لكن يحتاج ملف داعم له فراجع صور الخطوه السادسة
واذا ستمرة معك المشكلة ارسل لي تمرينك على الخاص
[align=center][mshosh2]http://up1.mlfnt.net/images/nyfiy0fvtw9p7m9yp1n1.gif[/mshosh2][/align]
[align=center]موقع الشخصي
[http://faculty.ksu.edu.sa/falmutlaq/default.aspx[/align]
الاخت سلمى
الان فهمت قصدك وسوف أرى كيف اساعدك
انتظري قليلا
[align=center][mshosh2]http://up1.mlfnt.net/images/nyfiy0fvtw9p7m9yp1n1.gif[/mshosh2][/align]
[align=center]موقع الشخصي
[http://faculty.ksu.edu.sa/falmutlaq/default.aspx[/align]
هلا اخوى فهد
مشكور كتير وانا بانتظارك
وشكرا
اخى العزيز فهد لقد قمت بتجربة ذالك الكود
ولكنة لم يعمل انا اقصد ان zoom in خاص بالتكبير
اما zoomout خاص بالتصغير
فكيف يكون فية الدالة fullextent
وشكرا لك
سف اخ جمال
أعمل الآتي
كود:Case "ZoomOut" .MousePointer = esriPointerZoomOut
وهذا الكود تضعه في Mapcontrol1
لاحط الكلمة الي بالون الاحمر لابد تغير الكود السابق من tbrPressed إلى tbrUnpressedكود:ElseIf .Item("ZoomOut").Value = tbrUnpressed Then Dim pEnv As IEnvelope Set pEnv = MapControl1.Extent pEnv.Expand 1.5, 1.5, True MapControl1.Extent = pEnv
واذا لم تنجح هذه العمليه اخبرني علماً انها ناجحه عندي
[align=center][mshosh2]http://up1.mlfnt.net/images/nyfiy0fvtw9p7m9yp1n1.gif[/mshosh2][/align]
[align=center]موقع الشخصي
[http://faculty.ksu.edu.sa/falmutlaq/default.aspx[/align]
الاخت سلمى
لقد فكرت بمشروعك ولكن وحسب اعتقادي لن ينجح وذلك لأخطاء المستخدم في الكتابة فمثلاً لو كتب المستخدم في TextBox في بداية الكلمة سمول وهي بقاعدة البيانات كبتل لن يتعرف عليها ولو كتب التاء المربوطة من غير نقط وهي بقاعدة البيانات بنقط كذلك لن يتعرف عليها وقيسي على ذلك باختصار TextBox لن ينفعانا بدى اعمل تكست بوكس وكوماند ،
فى التكست يكتب اليوزر اسم المنطقة مثلا ، ويضغط ع الكوماند ويعطيه تقرير عن هدى المنطقة فقط
فقترح وضع ListBox على الواجهة وتحميل جميع الظاهرات عليها وبمجرد الضغط الى الظاهره يظهر لك تقرير عنها
وهذه الطريقة لا تطلب من المستخدم كتابة اي كلمة ماعليه الا التحديد الظاهرة فقط
أسمع ردك
[align=center][mshosh2]http://up1.mlfnt.net/images/nyfiy0fvtw9p7m9yp1n1.gif[/mshosh2][/align]
[align=center]موقع الشخصي
[http://faculty.ksu.edu.sa/falmutlaq/default.aspx[/align]
السلام عليكم
مشكور كتير اخوى فهد
انا كنت عاوزة اعمل الطريقة اللى انا قلتها
بس اقتنعت بكلامك وح اعمل بطريقتك
وشكرا
انا فى انتظار ردك
السلام عليكم
اخوى فهد كنت سألتك فى مشاركة سابقة انه اريد لما احرك الماوس فى الخرطة يعطينى احداثيات النقطة (x,y ) وانت كتبت كود بس هدا الكود ما بيشتغل معى ، مع انى اضفت الملفات الحيوية
ممكن تقللى مشكلتى فين
وشكرا
بارك الله فيك وفيما تقدم جزاك الله عنا خيرا
فعلا أنا مع أخي مختار في انك يا اخ فهد قد أعدت الروح للمنتدى بهذه الدروس المتخصصة جدا والتى تنطلق بالمنتدى إلى أفاق جديدة لم يتطرق إليها أى موقع أخر ونحن في انتظار المزيد منك كما نرجو من الاخوة الأعضاء التفاعل ونريد ان نقراء اقتراح علي الاقل من كل واحد مني ونطرح الأفكار حتى يكون هناك تعاون وتكامل بين افراد وأعضاء المنتدى الحبيب وانا مثلا عندي اقتراح عن كود يربط بين الجوجل ايرث وبين الارك جي أي اس وذلك لما في فائد خصوص في المخططات العامة لمدن او للقري
او خرائط استخدمات الاراضي .
واخير بارك الله فيك اخى فهد المطلق ونرجوا الاستمرار والاستمرار والاستمرار
الحمد لله خلق الإنسان علمه البيان وصلوات الله وسلامه على سيد ولد عدنان سيدنا محمد بن عبدالله القائل ( طلب العلم فريضة على كل مسلم ومسلمة )
[align=center]ما الفخر إلا لأهل العلم إنهم على الهدى لمن استهدى أدلاء
ففز بعلم تعش حيا به أبدا الناس موتى وأهل العلم أحياء
موقعي علي جوجل
url]http://www.panoramio.com/photo/5859412[/url]
ALI74HASSAN@HOTMAIL.COM
[email]ALI74TOLBA@YAHOO.COM[/email[/align]]
درس مفيد جدا وبالفعل يدخل الحافز في هذا المجال للتعلم والاستفادة من الخبرات لموجودة في نادينا المختص وشكرا لك اخ فهد