PCBat

بسم اللهالرحمن الرحيم إن كنت ما ترغب بطباعته عبارة عن فقرة بسيطة فيمكنك الاعتماد على كائن الطباعة Printer و سوف تجد مثالا في منتدى فيجوال بيسك بعنوان "البحث ضمن تاريخ معين ؟؟ " و إن كنت من المحترفين الجادين فيمكنك تطوير مكتبة عن طريق كائن الطباعة لتأدية جميع ا…

بسم الله الرحمن الرحيم تحية طيبة و بعد أن كنت متأكدا من رأيك هذه المرة فالحل في المثال المرفق mouse_cursor.zip

بسم الله الرحمن الرحيم تحية طيبة المثال قريبا إن شاء الله

بسم الله الرحمن الرحيم تحية طيبة و بعد أما بعد أن كنت ترغب في إعطاء الكود لأحد - مع أن الفكرة غير محبذةغن لم تكن تثق به - فالأفضل وضع جميع الفانكشن و الإجراءات مكتبات Dll ووضع بصمة خاصة بك للتعامل مع المكتبة و عدم طرح أي شيئ من السورس المفتوح إلا كاستدعاء للإج…

بسم الله الرحمن الرحيم تحية طيبة و بعد الأخ أبو زيد المكتبة تتعامل جيدا مع العربي و لكن ما نوع الوندز لديك هل هو إكس بي ؟ إن لم يكن إكس بي أبلغني بنوعه و أبشر بالخير و لك جزيل الشكر على فكرة كنيتي أبا زيد أيضا

بسم الله الرحمن الرحيم أعيد إليك نص برنامجك و عليه التعديل الخاص بالطباعة باستخدام كائن الطباعة كما طلبت و الأفضل استخدام طرق أخرى للطباعة و عفوا على التأخير كما أرجو منك تجربة دالة التحويل من أرقام إلى أحرف و اختبارها لاكتشاف وجود أخطاء بها و ستجدها في فيجوال…

بسم الله الرحمن الرحيم تحية طيبة مكتبة Dll مع مثال على استخدامها من تصميمي يمكنك تنزيلها و تجربتها أعدك بالكود قريبا عندما أجده فهي فقد صممتها من مدة طويلة و لم أجد الكود الخاص بها كما أنني لم يسبق لي إخضاعها لتجارب عديدة فأرجو من الأخوة تجربتها و إبداء الرأي …

بسم الله الرحمن الرحيم هاتان طريقتان مختلفتان للحصول على بيانات الهارد Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Cur…

بسم اللخ الرحمن الرحيم تحية طيبة يتعلق الأمر أساسا بما تريد طباعته فهناك عدة طرق من بينها 1- كريستال ريبورت 2- داتا ريبورت 3- الكائن Printer 4- الطريقة PrintForm 5- كائنات طباعة جاهزة Component و لو توضح ما تريد طباعته لكي تجد الرد المناسب على طلبك

بسم الله الرحمن الرحيم تحية طيبة و بعد لم أفهم قصدك تماما حول قرعة من خلال قاعدة البيانات و لكن أظن ان الكوذ التالي يفيدك حسب فهمي و إن لم ينفع فأرجو منك التوضيح حيث سيقوم الكود التالي بالانتقال الى سجل عشوائي في قاعدة بيانات Randomize Data1.Recordset.GetRows …

بسم الله الرحمن الرحيم تحية طيبة و بعد يمكنك استخدام الدالة datediff لتنفيذ المطلوب كالتالي MsgBox DateDiff("s", Time1, Time2) حيث الوسيط الأول هو المدة المراد القياس بها ثانية s أو دقيقة M أو ساعة h و لو كان المقصود من السؤال غير هذا فبين ذلك

بسم الله الرحمن الرحيم الأخ العزيز استقبال رقم المتصل على الجهاز لا يكفي وجود أداة برمجية فقط بل تحتاج لمودم خاص أو إضافة دارة بسيطة للجهاز و في هذا مباحث مختلفة . أما إن كنت تقصد استقبال إشارات أرقام مرسلة من الطرف الآخر بعد رفع السماعة فالموضوع مختلف.

بسم الله الرحمن الرحيم تحية طيبة لا أدري ما هو طلبك تحديدا و لكن Microsoft Comm (mscomm1) قد يفي بالغرض و هو موجود مع فيجوال بيسك مباشرة

بسم الله الرحمن الرحيم تحية طيبة الدالة التي أخبرتك عنها تنفذ العديد من المهام و هذه إحداها بأبسط طريقة ضع الكود التالي في وحدة نمطية Module Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Type MONITORINFO cbSize As Long …

بسم الله الرحمن الرحيم تحية طيبة و بعد الشهر قبل اليوم في التاريخ هذا النظام المعمول به في الولايات المتحدة الأمريكية و الذي تضبط عليه الأجهزة عموما و لكي تتخلص من المشكلة يمكنك تعديل النظام في الجهاز ، و لكن الأنسب و الأصح هو استخدام الدالة Format(Date, "dd/m…

بسم الله الرحمن الرحيم تحية طيبة و بعد المسألة بسيطة و لكن يوجد لها عدة إجابات لأن السؤال يحتمل عدة معاني فإن كان الجواب غير الذي تريده فأرجو توضيح السؤال لأجيبك عليه على كل حال لقد اخترت الطريقة التي تغطي جميع حالات طلبك لأجيب بها و إن لم تكن الأمثل و الجواب …

بسم الله الرحمن الرحيم يمكنك استخدام لدالة GlobalMemoryStatus للحصول على حجم الرام Private Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dw…

بسم الله الرحمن الرحميم تحية طيبة و بعد إن كنت تريد تنفيذ المشروع بنفسك فأنصحك أن تقسم خانات العدد و تعالجها ثلاثة ثلاثة مبتدئا من العدد الأيسر فالأيمن فالأوسط و باستخدام الدالة choose أو بنية select case و الأفضل استخدامهما معا و مما أود الإشارة إليه أن تحاول…

بسم الله الرحمن الرحيم تحية طيبة أن كنت فهمت قصدك فيمكنك استعمال الدالة GetMonitorInfo لتأدية ما تحتاجه

بسم الله الرحمن الرحيم تحية طيبة يمكنك استخدام دالة SwapMouseButton من توابع API كما في المثال Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long Private Sub command1_click() ‘تحويل زر الماوس SwapMouseButton 1 End Sub Private S…