GHOST2010

اخى العزيز اعد ضغط الملف لان الارشيف معطوب :(

تحية طيبة....... اذهب الى قائمة Project ثم Reference وحدد المكتبة Microsoft Scripting Runtime ثم اكتب هذا الكود Private Sub Command1_Click() Dim FSO As New FileSystemObject FSO.DeleteFolder "C:\a" End Sub

تفضل يااخى الملف لقد وضعت الكود للزر الاول ولم اضعه فى الباقى لانى لااعرف هذه المواقع لكن اكتب الكود لباقى الازرار بنفس الطريقة :rolleyes: New Folder.rar

بعد التحية........ API اختصار لكلمة Aplication Programmable Interface وهى تعنى واجهة التطبيقات القابلة للبرمجة ودوال الـAPI هى عبارة عن أوامر مكتوبة مسبقاً يتم استدعاؤها عن طريق مكتبات الربط الديناميكى DLL مما توفر عليك الوقت فى كتابتها :rolleyes: api3.zip

بعد اذن الاخ SHEARER فقد قمت بتعديل الملف ليتوافق مع الطلب الثانى اما بالنسبة للاخ VBSQ فقد وضعت لك طلبك لكن ان كنت تريد استخدام هذه الطريقة فى برنامج معين فأنصحك باستخدام الريجيسترى والامرين SaveSetting و GetSetting فهذا أفضل :rolleyes:

انت دائماً اعمالك رائعة.....نحن فى انتظار المزيد :rolleyes:

رائع جداً......شكرأ لك :rolleyes:

نعم ياأخى انت على حق وشكراً على الايضاح لكن كما قلت فى أول الموضوع الكود ليس لى وانما للاستاذ هيثم القلاف ومافعلته انا انى نسخت الكود من البرنامج ووضعته فى المنتدى....شكراً مرة أخرى :rolleyes:

السلام عليكم ورحمة الله وبركاته اريد من أحدكم أن يوضح لى المميزات الاضافية التى يتميز بها الـVB.NET عن الـVB6 لانى فى معظم المواقع البرمجية التى أدخلها أجد ضجة عن الـVB.NET واكواد كثيرة له وتجاهل للـVB6 فهل من الممكن ان يوضح لى احد هذه المميزات؟ :unsure:

الف شكر على البرنامج الرائع وانا اضم صوتى للاخ هانى سعد :rolleyes:

شكراً لكم جميعاً على المعلومات القيمة ومبروك ياحازم على الـVB.NET :rolleyes:

بعد التحية....... بالنسبة لعروض الباوربوينت فيمكنكى تصميمها ثم ربطها بالفيجوال بيسيك عن طريق الاداة OLE وجعل هذه الاداة مختفية وعرضها يكون بالكود التالى Private Sub Form_Load() OLE1.Action=7 End Sub وبالنسبة لـ فهل تقصدين عمل قاموس؟ ارجو التوضيح :rolleyes:

اخى الفاضل جرب هذه الوظيفة التى تمكنك من تحميل اسماء مجلدات أى مسار الى ليست بوكس Public Function LoadPathFolders(strPath As String, Obj As Object, Optional ObjClear As Boolean = True) On Error GoTo Handle: Dim strFolder As String Dim Attr As Integer If ObjCle…

شكراً يااحمد مرة تانية وفهمت الطريقة لكن اصارحك ان هذه الطريقة لم تخطر على بالى من قبل. انت العبقرى :rolleyes:

انا مستنى رأيك ياحازم وبالنسبة لاحمد لى سؤال انا لاحظت انك لما عدلت واجهة البرنامج استخدمت الـLabel العادى فهل ممكن أن تشرح لى الطريقة لان الـLabel الخاص بالـSkin عمل عندى اكتئاب؟ :rolleyes:

انا مدين لك بالشكر أمام جميع اعضاء المنتدى فأنا دائما ماأجدك بجوارى تساعدنى فيما لا استطيع عمله وانا لااجد مايعبر عن شكرى وامتنانى لك يااخى العزيز وفعلا انا سعيد بمعرفتك كما انى سعيد انى اعطيت ثقتى لمن يستحقها......شكراً جزيلاً لك. :rolleyes:

شكراً على هذه الملاحظات القيمة وأعدك انى سأعدل البرنامج ليتفق مع آرائك أما بالنسبة لواجهة البرنامج فقد تعمدت جعلها بدون Skin لأن الـSkin لاتتعامل مع الـLabel كما أن الـLabel الخاص بالـSkin لايوفر ماأريده مثل وضع خط تحت الكلام وتغيير لون الكلام وبالنسبة للازرار…

اخى العزيز......تحية عطرة اليك المثال الذى طلبته واتمنى أن تجد فيه ضالتك :rolleyes: MDI.rar

البرنامج جيد لكن نريد التعلم ومعرفة كيفية الحماية حتى نستفيد جميعاً :rolleyes:

شكراً على الملفات يا امير البحر :rolleyes: