المبرمج أحمد

shell "regedit /e C:\xx.reg" ...

من قائمة Project اختاري Add User Control ،،، ثم قومي بتحديد التبويب Existing ، بعد ذلك اختاري ملف الأداة ذو الامتداد ctl ( في حالتنا هذه الملف هو RgheedButton.ctl ) عندها سوف تلاحظين ظهور رمز الأداة في شريط الأدوات ، ويمكن استخدامها كأي أداة أخرى ..

طريقة أخرى وهي إضافة مصدر الأداة ( حيث أنها مفتوحة المصدر ) ، وفي هذه الحالة لن تضطري إلى إرفاق ملف الأداة مع البرنامج ... في المرفقات أدوات برمجها أخونا (رغيد الطيب) جزاه الله خيراً .. وهي : 1- RgheedButton 2-RgheedProgressBar 3-RgheedTitle Rgheed.rar

نعم صحيح ، انسخي الأداة إلى المسار C:\Windows\System32 ، ثم قومي بتنفيذ الأمر الذي أشار إليه أخي أسامة في مربع حوار Run ...

هل قمت بنسخ الأداة RgheedButton مع ملفات البرنامج على الجهاز الآخر ؟

لم أفهم ماذا تقصد بـ title ، هل يمكنك التوضيح أكثر ؟

@galg الكود يعمل معي بشكل صحيح ... هل تظهر لك رسائل خطأ عند تنفيذه ؟

قد يفيدك الرابط : بصمة الاصبع

الكود الذي كتبته أخي صحيح ماعدا خطأ إملائي صغير .. والصحيح هو كما كتبه أخي captinflent ، أو كالتالي : Text1.Move 0,0,Width,Height قصده أنه كلما يتغير حجم الفورم يتغير حجم Textbox تلقائيًا ...

Private Function Encrypt(sText As String, iFactor As Long) As String Dim I As Integer Dim Result As String For I = 1 To Len(sText) Result = Result & Chr(Asc(Mid(sText, I, 1)) Xor iFactor) Next Encrypt = Result End Function ...

بسم الله الرحمن الرحيم تمت الإجابة على الموضوع إدارة الفريق العربي للبرمجة

بسم الله الرحمن الرحيم من كان يهتف باسم ذاتك قبلنا؟؟؟ كتاب البداية والنهاية لابن كثير، والمستطرف للأبشيهي، وربيع الأبرار للزمخشري، ومروج الذهب للمسعودي - وكثير غيرها - تضمنت أوصافا غريبة لأقوام (ليسوا ببشر) وبشر (ليسوا من بني آدم) وأناس يشبهوننا (ولكنهم يختلفو…

Calendar = vbCalHijri Text1.Text = Format(Date, "DDDD") Text2.Text = Format(Date, "YYYY/M/dd")

هل أخذت نسخة احتياطية من قاعدة بيانات البرنامج ؟

في الصورة الثالثة ، اختر Data في القائمة اليسرى ثم اختر الخيار Data CD من القائمة اليمنى ... بعد ذلك قم باختيار الملفات التي تريد نسخها على السيدي ... ومن ثم احرقها Burn :)

فكرة جميلة :)

الطريقة سهلة ، أولاً : قم باستخراج الأرقام من التاريخ ( باستخدام دالة Format أو باستخدام الدوال Day , Month , Year ) ، ثم قم باستخدام دالة تفقيط الأرقام مع مراعاة تسمية الأرقام بصيغة الترتيب .. فمثلاً ، قم باستبدال التسمية "أربعة" إلى "الرابع" ، وهكذا.

لا لم نبدأ العمل بعد ولكننا نبحث عن مدير تنفيذي للمشروع ...

بالنسبة لرسالة الخطأ Type Mismatch ، غير صيغة الشرط IF كالتالي: 'هذه هي الصيغة التي كتبتها أنت If combo.Text = "ذكر" Or "أنثى" Then 'عدلها لتصبح If combo.Text = "ذكر" Or combo.Text = "أنثى" Then