Abboodd

لعل السبب هو أن قاعدة البيانات فارغة، جرب إضافة سجل فارغ، ثم اكتب الأسماء وأضف، ستنجح العملية. لكني لست متأكداً من السبب

أخي المرفق هذا Exe وأنا آسف، لكني لن أخاطر بفتح ملف Exe لما رأيته من قبل. إذا كنت تريد إصدار صوت Beep عند تشغيل الفورم إليك التالي: Private Sub Form_Load() Beep End Sub

السلام عليكم ورحمة الله خوارزمية تحليل الكلمة: يمنع حل الواجبات في هذا المنتدى، لذلك لا تخبر أحداً عن هذا الدرس، لأننا سوف نحل واجب العربي للصف الأول! حلل الكلمة التالية: أحمد = أ + ح + م + د هذا ما سنصنعه، برنامج يحل واجبات طلاب الصف الأول :) ولنبدأ: إذا نظرت…

بسم الله هناك عدة نقاط في هذه الأسئلة، وبرأيي الطريقة الأمثل لما تريده، هو جعل خاصية Enabled للتيكست بوكس False ، وجعل خاصية KeyPreview للناقذة True ، ثم تستعمل الحدث KeyPress للنافذة، لكتابة الأرقام التي تريدها. أما بالنسبة للفاصلة العشرية الواحدة، فيمكنك است…

شيء جميل!!! جزاك الله خيراً على الإفادة. وهذا فعلاً تطبيق عملي على بعض الـAPI .

ممكن.... ولكن هذه الطريقة غير عملية. خصوصاً للسبب الذي أريد النقر على Line لأجله. فلو كانت لديك الكثير من الخطوط المتقاربة. أو لو كانت الخطوط مائلة، ما الذي سأفعله؟ جزاك الله خيراً

السلام عليكم ورحمة الله إخواني، أريد عند النقر على نقطة معينة من أداة الخط Line القيام بأمر ما، فهل هذا ممكن؟ وإن لم يكن، فما الحل؟ جزاكم الله خيراً

بالنسبة لصندوق نعم أو لا عند الخروج، فيمكنك استخدام الحدث QueryUnload للنافذة، وهو يحدث عندما يريد المستخدم إغلاق النافذة، إليك المثال التالي: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim A As Integer A = MsgBox("Are you sure you …

طلب أخير يا سيدي، أرجو مثال على السجل SECURITY_ATTRIBUTES مع الدالة RegCreateKeyEx . جزاك الله كل خير.

جزاك الله خيراً أخي، فقط سؤال آخر صغير: عندما أريد استعمالها مع الAPI اكتب هكذا مثلاً: Dim MyPoint As PointAPI With MyPoint .X=500 .Y=400 End With GetCursorPos(MyPoint) هل هذا صحيح؟ جزاك الله خيراً

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

ممكن تشرح/تشرحي ما الذي تقوم به هذه الخوارزمية، لأنها ليست مفهومة أبداً وفقك الله.

بصمة الإصبع أظن أن هذا يمكن أن يساعدك، علماً أنه مثبت في قسم الدروس والمواضيع الهامة، وكان يمكنك البحث. وفقك الله

السلام عليكــم ورحمـة الله وبركاتــه إخواني ما معنى Type ، أنا بحثت ولكن لم أجد عنها ما أريد، يعني أستعلمها هكذا Type MyType مجموعة ثوابت، على ما أظن End Type وأظن أنني أستعملها في الدوال عندما أدخل وسيطاً، يعني: Function MyFunction(MyParameter As MyType) ولكن…

باستعمال دالة الـAPI التي هي SetPixel وهي كالتالي: Private Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long حيث hdc هو مقبض الأداة التي تريد الرسم عليها ، مثلاً Picture1…

إرسال إيميل

السلام عليكــم ورحمـة الله وبركاتــه الخوارزمية الثانية (خوارزمية ترتيب الأعداد): لا تبدأ بمحاولة التفكير في هذه الخوارزمية، قبل أن يكون أمامك كأس أو فنجان، من الشاي أو القهوة، بالإضافة إلى اطلاع على المصفوفات Arrays وحلقات التكرار For. سنستعمل في خوارزميتنا ه…

أختي إذا كنت تقصدين الطباعة على ورق، فالمنتدى مليء بالموضوعات التي تتحدث عن ذلك، ويمكنك مراجعة المواضيع التي تتحدث عن DataReport و CrystalReport وغيرها. ملاحظة: أرجو تغيير الصورة الرمزية، لأنها تتعارض مع مبادئ المنتدى. وفقك الله

قد يكون الخطأ هو نسيان علامات التنصيص، يعني "1111" و "2222" ..... والله أعلم، ما الخطأ الذي تواجهه أخي؟

الصراحة.. سؤالك غير واضح تماماً.... ولكن، إذا كنت تقصد أن يقوم البرنامج بعمل محدد عند ضغط الأزرار الثلاثة Ctrl+Alt+1 فيمكنك استعمال الحدث KeyDown ، إليك هذا الكود: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 49 And Shift = 6 The…