الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ابغا كود يفتح مجلد في جهازي ويكون تحت زر

مغلق
بدأه الشخطوب في 6 أبريل 2003 · 3 رد · 513 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

اخواني اخوكم في الله عضو جديد وانا قاعد اتعلم فيجوال بيسك عن طريق كتاب وان شاء الله انا في تقدم لكن عندي طلب وما يكون عليكم امر

يااخواني بغيت اسوي برنامج يسهل علي الامور التالية

1- افتح المجلد الي ابغاة ويكون موجود في جهازي بظغطة زر

2-اشغل ادوات النظام يعني مثلا تفحص الاقراص لة زر وغيرها وهكذا

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

مثلا ابغا افتح مجلد الوندوز يكون لة زر وابغا الكود وادوات النظام كذلك

وتروا يا اخوان موشرط تعطوني الاكواد يكفيني تردون علي

الله يعطيكم العافية

#2

بالنسبة للمجلد راجع قسم الدروس في الاعلى تجد شرح التعامل مع الملفات والمجلدات بالكامل

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

تحياتي

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#3

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

بعد التحية، عزيزي (f)الشخطوب(f) ما تريده سهل.

فيمكنك فتح أي مجلد من خلال وضع الأمر التالي في حدث الضغط على أي زر:

openD = Shell("explorer" & "c:", 1)

كما يمكنك فتح أدوات النظام أيضا بنفس الطريقة:

على سبيل المثال تشغيل الرجستري:

openReg = Shell("regedit.exe", 1)

تشغيل تفحص الأقراص

openScan = Shell("Scandskw.exe", 1)

تشغيل تنظيف القرص

openClean = Shell("cleanmgr.exe", 1)

وهكذا الحال بالنسبة لباقي البرامج

وتحياتي إليك وإلى صديقي العزيز (f)Nop(f)

ani.gif
#4

مشكوريييييييييين وماقصرتم يا اخ عبدالله فتحي ويا اخ NOP

وان شاء الله نكون من المبرمجين النافعين

هذا الموضوع مغلق.

مواضيع مشابهة