عبد الله فتحي

أنا أعتقد أن هناك كلمة تقوم بذلك، ولكني لا أعرفها:confused:

للرفع

(f)(f)(f)

ايش هو الدنق هذا ؟؟؟؟!!!!!

بإمكانك فعل ذلك بسهولة عن طريق وضع أداة Timer في البرنامج: على سبيل المثال الكود التالي سيغلق البرنامج في تمام الساعة الواحدة وإحدى وأربعين دقيقة وأربعين ثانية: Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() If Time = "01:41:40 …

المشكلة أني لست خبير قواعد بيانات ولكن أرجو من الأعضاء مساعدة الأحمري

بسم الله الرحمن الرحيم السادة الكرام أعضاء المنتدى (f) السلام عليكم ورحمة الله وبركاته: تواجهني الآن مشكلة ، حيث أنني لا أستطيع فتح أي برنامج مصمم على الفيجول بيسيك، وتأتيني الرسالة التالية: System Error {خطأ تطبيق} فشل التطبيق في التهيئة بصورة ملائمة [0xc0000…

تابع للبند الرابع: هناك طريقة تحصر الماوس داخل نطاق الفورم بحيث لا يمكن إخراجها من داخل الفورم، ويمكن أن تفيدنا في هذا البند. هذه الطريقة موجودة في موضوع (تصويت: أكواد للمبتدئين). (f)(f)(gift)(f)(f)

البند الأول: يمكن إخفاء البرنامج من إدارة المهام عن طريق الأمر التالي: App.TaskVisible = False (f)(f)(f)(f)(f)(f)

بسم الله الرحمن الرحيم صديقي العزيز (f) NOP (f) كيف حالك؟ أرجو أن تكون بخير وفي صحة طيبة، وأتمنى لك التوفيق. يبدو أن الأمر صعب بعض الشيء، ولكن يمكننا تقسيم متطلبات البرنامج إلى بنود صغيرة ومحاولة حلها تدريجيا بمساعدة باقي أعضاء المنتدى: فنحن نحتاج إلى: (1) كود…

بسم الله الرحمن الرحيم بعد التحية، عزيزي (f)الشخطوب(f) ما تريده سهل. فيمكنك فتح أي مجلد من خلال وضع الأمر التالي في حدث الضغط على أي زر: openD = Shell("explorer" & "c:", 1) كما يمكنك فتح أدوات النظام أيضا بنفس الطريقة: على سبيل المثال تشغيل الرجستري: openReg =…

تحياتي أنس (f)(f) وماذا بشأن مشروعك عن العراق. أين اختفى

فهرس الأكواد السابقة (1) لمعرفة اسم اليوم (f) (2) لمعرفة اسم الشهر (f) (3) لإضافة نص متحرك (f) (4) هل الجهاز متصل بالإنترنت (f) (5) التأكد من وجود ملف (f) (6) حجم الملف بالبايت (f) (7) وقت تشغيل الويندوز (f) (8) تشغيل ملف صوتـMDIــي (f) (9) ملف فيديو في صورة (…

(f)الكود الخامس والعشرون(f) جعل الماوس منحصرة داخل نطاق معين Private Declare Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINT) Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub OffsetRect Lib "user32" (lpRect …

(f)الكود الرابع والعشرون(f) معرفة مسار مجلد الـ System ضع الكود التالي في الـ Module Declare Function GetSystemDirectory Lib "Kernel32.dll" Alias "GetSystemDirectoryA" (ByVal strBuffer As String, ByVal lngSize As Long) As Long والكود التالي في الفورم Public Fu…

(f)الكود الثالث والعشرون(f) إنشاء مجلد جديد Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Boolean End Type Private Declare Function CreateDirectory Lib "kernel32.dll" Alias "CreateDirectoryA" (ByVal lpPathName …

(f)الكود الثاني والعشرون(f) التحكم في رفع وخفض الصوت Private Declare Function waveOutSetVolume Lib "Winmm.dll" (ByVal DevID As Integer, ByVal Vol As Long) As Long Sub SetVol(Volume As Long) Dim Vol& Vol = CLng("&H" & Hex(Volume + 65536)) waveOutSetVolume 0, Vo…

(f)الكود الحادي والعشرون(f) إغلاق الفورم بطريقة جميلة Sub SlideWindow(frmSlide As Form, iSpeed As Integer) While frmSlide.Left + frmSlide.Width < Screen.Width DoEvents frmSlide.Left = frmSlide.Left + iSpeed Wend While frmSlide.Top - frmSlide.Height < Screen.He…

الموقع يعمل بشكل جيد:cool:

والله يا (f)NOP(f) ودي لو أجاوب على سؤالك، لكن للأسف فأنا لا أعرف الجواب، ولكنني سأحاول أن أجيبك في الأيام المقبلة وأرجو من الإخوة أعضاء المنتدى المساعدة. مع تحياتي(f)