• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mrx_ta7ady

الخبراء المعتمدون
  • عدد المشاركات

    818
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

4 عادي

عن mrx_ta7ady

  • الرتبة
    خبير فيجوال بيسك
  • تاريخ الميلاد 04/11/1987

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : الأسكندرية
  1. السلام عليكــم ورحمـة الله وبركاتــه ،، تم الرد في موضوعك الأصلي ما المقصود من هذه الرساله المرفق صوره منها ؟؟ كما ان هذه المشاركة مخالفة لقوانين المنتدى .. يرجى قراءة قوانين المشاركات
  2. السلام عليكــم ورحمـة الله وبركاتــه ،، الأخ السائل .. كل ما تفضلت به وذكرته في الموضوع لا يوضح المشكلة بالمرة كان اولى ان تذكر لنا ان المشكلة تظهر في جهاز العميل فقط وليس في جهازك كما كان ينبغي عليك ذكر الملفات التي وضعتها في ملف الـ Setup او الملفات التي نقلتها للجهاز الهدف عموما وكان يكفي ارفاق الملف التنفيذي فقط .. المشكلة ليست في الكود بالمرة ارجو التنبه لذلك في المرات القادمة ان شاء الله وعموما وبما ان المشكلة تخص الـ Crystal فينبغي عليك نقل الـ craxdrt.dll والـ crviewer.dll إلى الجهاز الهدف على ان تكون مساراتهم كالتالي \Program Files\Seagate Software\Report Designer Component\craxdrt.dll \Program Files\Seagate Software\Viewers\ActiveXViewer\crviewer.dll
  3. السلام عليكــم ورحمـة الله وبركاتــه ،، الاخ ماجد .. بإمكانك إستخدام إسم الـ Class بدلا من عنوانه وللحصول على إسم الـ Class المطلوب قم بفتح الـ Spy++ بعد فتح البالتوك وخصوصا النافذة الهدف ثم قم بالضغط على الـ Alt+F3 لتجد نافذة صغيره ظهرت وعنوانها Window Search قم بعدها بتفعيل خيار الـ Hide Spy++ ليخفي البرنامج الأصلي لعدم الإزعاج ثم قم بسحب ايقونة الـ Finder Tool الى النافذة الهدف او الاداة الهدف ايا كان نوعها ثم دع زر الماوس لتجد معلومات هدفك ظاهره في النافذة الصغيرة سالفة الذكر .. إضغط Ok منها الآن لتجد نفسك عدت إلى الـ Spy++ ومعلومات الهدف واضح تماما امامك الآن .. مثلا كالصورة ادناه الـ SystemTray_Main هو إسم الـ Class الـ Parent والـ Static هو إسم الـ Class الـ Child والهدف .. وصلنا الآن لجزئية كتابة الـ Code بالـ Visual Basic قم بفتح المثال الموجود في المشاركة السابقة وإستبدل السطرين الشبيهين بما ادناه hCtrl = FindWindowEx(hForm, 0, vbNullString, Text2.Text) hForm = FindWindowEx(0, 0, vbNullString, Text1.Text) بالصيغة المناسبة وهي كالتالي hCtrl = FindWindowEx(hForm, 0, Text2.Text, vbNullString) hForm = FindWindowEx(0, 0, Text1.Text, vbNullString) وهذا باعتبار ان اسماء الـ Classes مكتوبة بداخل الـ TextBoxes اما للتعويض يدويا فستكون على سبيل المثال hCtrl = FindWindowEx(hForm, 0, "Static", vbNullString) hForm = FindWindowEx(0, 0, "SystemTray_Main", vbNullString) مع تغيير اللازم .. واعذرني .. لا املك هذا البالتوك لذا اضطررت للشرح على شيء وهمي لكن هذا لا يمنع ان سؤالك مخالف وليس في مكانه ;) التمس انا الآخر العذر من الإدارة .. اجبت من منطلق الشيء بالشيء يذكر وعلى فكره .. طريقة الاخ جوست قياسية وجميلة .. لكن انا كمان معنديش وقت :lol: وبالمناسبة كمان .. اشار الاخ جوست الى ان الطريقة التي تحدث عنها بالـ API جدير بالذكر ايضا ان الفيجوال بيزك لا يدعم اي من ما قلناه .. لابد من الـ API هنا وشكرا للجميع والسلام عليكم ورحمة الله وبركاته
  4. السلام عليكــم ورحمـة الله وبركاتــه ،، شكرا للاستاذ ماجد على التنبيه وعلى اسلوب التنبيه :) واعتذر جدا عن هذا الخطا الفادح .. قرات كلمة ( نقر ) قراءتها ( نقل ) العتب على النظر :$ وفي المرفقات المثال نفسه بعد التعديل لكن لي ملاحظة بسيطة على المثال المرفق .. عند فتح كود المشروع الأول ستجد الامر ادناه مكرر مرتين تلو بعض Call SendMessage(hCtrl, BM_Click, 0, ByVal 0&) هذا التكرار فقط في حالة ان الزر المطلوب نقره خارج النافذة الحالية .. ما دون ذلك يمنع التكرار وشكرا لسعة صدركم SendMessege.rar
  5. السلام عليكم ورحمة الله وبركاته يمكنك الإستغناء عن قاعدة البيانات لإنشاء تقرير ولكن لا يمكنك الإستغناء عن مكتبة الـ ADO المثال المرفق تطلب إضافة مكتبة Microsoft ActiveX Data Object Report.rar
  6. السلام عليكــم ورحمـة الله وبركاتــه ،، إجعل لكل عداد Timer منفصل .. وايضا افصل المتغيرات اي لكل عداد متغيراته و Timer خاص به وكينونته الخاصة به وحده
  7. السلام عليكــم ورحمـة الله وبركاتــه ،، مرفق مثال بسيط مكون من مشروعين .. Target و Simple الـ Target هو المشروع الذي يحوي الزر المطلوب نقله والـ Simple هو المشروع الذي سينقل الزر من المشروع الأول المهم تقوم بتشغيل الـ Target.exe والـ Simple.exe .. ثم تضغط على زر ( نقل الزر ) وشاهد ماذا سيحدث SetParent.rar
  8. السلام عليكــم ورحمـة الله وبركاتــه ،، اذا ما فهمته صحيحا وانك تري فتح برنامجين منفصلين من إختصار Shortcut واحده فهذا يكون بإعطاء امر تشغيل للبرنامج الثاني في حدث فتح البرنامج الأول وان لم يكن التعديل على اي منهما جائز فقم بصنع برنامج خفيف كـ Loader للبرنامجين المطلوبين وتكون الايقونة او الإختصار لهذا الـ Loader وليس لاي من البرنامجين
  9. السلام عليكــم ورحمـة الله وبركاتــه ،، قم بإغلاق قاعدة البيانات الموجوده في المسار ادناه قبل تنفيذ هذا الأمر App.Path & "\database\db1.mdb" كما يجب ايضا اغلاق قاعدة البيانات الموجوده في المسار ادناه ان وجدت s & "\Database.mdb" اي يجب التاكد من ان الملفين الموجود منهما غير مفتوح بالمرة .. ثم تنفيذ امر النسخ بعدها
  10. السلام عليكــم ورحمـة الله وبركاتــه ،، الاخ الفاضل .. انظر انت في المثال جيدا وستجد بعض السطور اوقفتها كما قمت بإعادة كتابة هذه السطور بشكلها الصحيح .. وتركت لك الاثنين لتعرف ما تم تغييره وعلى سبيل المثال .. امر إستخراج سجلات من قاعدة البيانات 'Set TabN = con.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges) والأمر الصحيح مكتوب اسفله مباشرة .. وهو كالتالي Call dbs.Open(SQL, con, adOpenStatic, adLockOptimistic) والفرق بين الأمرين انك تعمل على مكتبة الـ DAO ولكنك تستخرج البيانات كما لو كنت تستخدم مكتبة الـ ADO واعتقد ان مثالك يعمل الآن .. اليس كذلك ؟؟
  11. السلام عليكــم ورحمـة الله وبركاتــه ،، ردا على السؤال الأول .. فإستبدل الـ Command.com بـ cmd.exe بالنسبة للـ XP او دعها كلهما واحد تقريبا والمعامل C المذكور هو لإغلاق نافذة الدوس بعد تنفيذ الأمر مباشرة اذا لتنفيذ الأمر ( ipconfig /all ) .. سيكون باي من الأمرين Call Shell("command.com /c ipconfig /all", vbHide) Call Shell("cmd.exe /c ipconfig /all", vbHide) والـ vbHide هي لإخفاء نافذة الدوس اثناء التشغيل بإمكانك استبدالها بـ vbNormalFocus لفتح النافذة ظاهرة بشكل طبيعي وبإمكانك إستبدال المعامل C بالمعامل K لعدم إغلاق نافذة الدوس بعد تنفيذ الأمر .. ليصبح هكذا مثلا Call Shell("command.com /k ipconfig /all", vbNormalFocus) Call Shell("cmd.exe /k ipconfig /all", vbNormalFocus) اما السؤال الثاني .. فيهيالي ان ما فهمته خطا والله اعلم في المرفقات مثال بسيط ردا على سؤالك كما فهمته انا ويرجى في المرة القادمة الإلتزام بقوانين المنتدى ورفع مثال يوضح الإستفسار بشكل افضل :) Run_Query.rar
  12. السلام عليكــم ورحمـة الله وبركاتــه ،، الأخت المسلمة .. بداية موفقه ان شاء الله واهلا بكي وسط اخوانك اعضاء الفريق العربي للبرمجة لن اضيف عن ما سبقوني اخوتنا في الله كردودا على هذا الموضوع الا توجيه إلى موضوع اراه في غاية الاهمية وهو ( دليلك الأسرع ) للأخ HnHn ولن اعلق على كلماتك الدالة على عدم وجود دورات كاملة .. لان ما اراه مكتملا قد يكون ناقصا في نظرك المهم .. ان يكتمل الوعاء في أعين الجميع .. وعاء العلم والمعرفة واسمحيلي ان اسالك انا الآن ان تقدمي دروسا متكاملة لمن يمشون معكي الطريق ولمن سياتون بعدك على ان تكون دروسك من الصفر حتى ما شاء الله .. وتكون بمثابة تصوير لمراحل دراستك اختي في الله .. لا تستغربي الامر فهو جائز جدا .. فانا لا امزح انتي ومن مثلك الآن الأجدر على الإطلاق في كتابة اقوى المناهج للمبتدئين وان احتجتي اي دعم كشرح نقاط محددة او استكمالها .. فان شاء الله ستجدينا من المجيبين وبالتوفيق ان شاء الله
  13. وعليكــم السـلام ورحمة الله وبركاتـه.. لو لاحظت اخي الفاضل بعد ركن الـ WHERE ستجد كل معاملين يفصل بينهما كلمة Or وهذا مقياس .. حتى وان كثرت المعاملات .. الجديد في الموضوع هو كيف سنقوم بكتابة الجملة بهذا المقياس والإجابة ستكون بإستخدام Loop بإضافة الشروط الى جملة الإختيار للحصول على إجابة اكثر دقة .. اضرب لنا مثالا وانتظر الإجابة عليه بشكل عملي حتى تتضح الرؤية
  14. السلام عليكــم ورحمـة الله وبركاتــه ،، اخي العزيز عبود .. اولا لا اعلم عن تلك اللغات كثيرا وقد يكون جائزا فيها ولكني اعتقد ان السؤال عن الفيجوال بيزك وفي قسم الفيجوال بيزك ولكل مقام مقال وكلمة Compile اعلم لها معنيين .. تجميع او تصنيف .. الاولى ارجح في وضعنا هذا ولو ذهبت لخصائص اي مشروع وبالتحديد Tab الـ Compile وتمعنت فيه .. اعتقد لن تجد ما يشير الى وجود هذه الخاصية اما فكرة إضافة جزء معين إلى ملف تنفيذي فهي جائزة .. ويتطلب هذا الإلمام بالـ Structure الخاص بنوعية الملف المذكور هذا والله اعلى واعلم وقد اكون مخطئا .. دعنا من الحديث النظري واثبت لي ان فكرته جائزة في الفيجوال بيزك ;)
  15. السلام عليكــم ورحمـة الله وبركاتــه ،، وحتى عودة الأخ عبود سالما ان شاء الله .. التعديل في المرفقات layan.rar