najy_zl

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

السلام عليكم... بالطبع سيكون استعمال حلقة بهذا الشكل غير عملي و مرهق و بطيء جداً - تصور لو كانت السجلات بمئات الألوف أو الملايين!!! كما قال أخونا محمد: استخدم استعلاماً (Query) لتنفيذ جملة SQL التالية: UPDATE table_name SET cle = (N_COMPT / 10000000) * 11 حيث …

السلام عليكم... الدالة InputBox دائماً تعيد String. إذا ضغط المستخدم على الزر OK فإنها تعيد ما هو مكتوب في مربع النص الخاص بها، و إذا ضغط على الزر Cancel فإنها تعيد نصاً فارغاً (Empty string): S = InputBox("أدخل العدد اللثاني") If S = "" Then ' تم الإلغاء Else…

السلام عليكم... الرسالة واضحة: المكون لا يدعم اللون الشفاف كلون خلفية. و هذا من أصل تصميم المكون (TextBox في هذه الحالة). لأنه في الواقع اللون الشفاف ليس لوناً فعلاً و إنما هو طريقة لرسم المكون بحيث يظهر ما خلفه عبره. إذا أردته أن يبدو كأنه شفاف فاستعمل اقتراح…

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

السلام عليكم... استعمل جملة SELECT مع تحديد رقم المخزن. مثلاً إذا افترضنا أن أرقام المخازن موجودة في ComboBox اسمه Combo1: Dim SQL As String SQL = "SELECT * FROM table_name WHERE (store_id = " & Combo1.Text & ")" حيث table_name اسم جدول الأصناف، و store_id اسم…

السلام عليكم... هذه إحدى الطرق: أولاً: اضبط الخاصية Tag لكل مربعات النص التي ستحسبها (التي تحتوي على رموز الحضور و الغياب) على نص مشترك. الكود التالي يفترض أن الخاصية Tag لتلك المربعات مضبوطة على كلمة STATUS . الكود لا يعتمد على عدد و لا ترتيب مربعات النص، أي …

السلام عليكم... اسم الملف المطلوب هو vbame.dll هل المشكلة على الجهاز الذي تبرمج عليه و فيه VB6 أم عند نقل البرنامج إلى جهاز آخر ليس عليه VB6 ؟ سلام.

السلام عليكم... السؤال قد يحتاج إلى توضيح أكثر من ناحية تركيب الجدول و بيان الحقول. و لكن على أية حال ستكون جملة SQL قريبة من التالي: UPDATE table_name SET reserve_field_name = True WHERE (id_field_name = selected_row_id) حيث: table_name: اسم الجدول. reserve_f…

السلام عليكم... يمكنك أيضاً إلغاء المفتاح ضمن الحدث OnKeyPress نفسه دون استعمال دوال API: if Key = #13 then begin Key := #0; Edit2.SetFocus; end; نرجو الاستفادة و السلام.

السلام عليكم... تم تقديم الحل هنا. نرجو الاستفادة و السلام.

السلام عليكم... لم أجد بمشروعك ما ذكرته لك. لكنني استطعت إرفاق المثال من عندي. Scrolling Window.rar أرجو أن يكون فيه فائدة. و السلام.

السلام عليكم... ربما لم تقم بضبط الخصائص المطلوبة أو أخطأت في الكود. (كنت أحاول إرفاق مشروع بسيط بنفس ما ذكرته لك لكن التحميل لم يعمل). أرجو أن تتأكد من الكود. لاحظ وجود إشارة السالب في هذا السطر: pbxContainerPage.Top = Me.ScaleY(-vsbPageScroller.Value, vbPixe…

السلام عليكم... أعتقد أنه يمكن ذلك باستعمال دوال API لإضافة أشرطة التدرج (ScrollBars) للـ Form مباشرة. لكنني شخصياً أفضل طريقة أسهل: 1. ضع على الـ Form مكون VScrollBar. لا يهم مكانه و لا حجمه لأنه سيضبط بالكود. 2. اضبط الخصائص التالية للـ ScrollBar: أ. الخاصية…

السلام عليكم... الأمر يبدو غامضاً ! فالبرنامج كأنه يعمل بمزاجية. ربما يتوقف و ربما لا. حسب ما أظن ربما هناك احتمالان: الأول أن للأمر علاقة بـ Windows - خاصة بعد التحديث - و يكون الحل - على الأقل مؤقتاً - منع Windows من التحديث إلى حين معرفة المشكلة، أو ربما تق…

السلام عليكم... هل تقصد أنه بعد تحويله إلى ملف تنفيذي (EXE) لا يعمل على نفس الجهاز الذي به VB أم لا يعمل عند نقله إلى جهاز آخر؟ نرجو التوضيح. و السلام.

السلام عليكم... في المرفقات مثال لاستخدام الـ PictureClip لتقسيم صورة و بعثرتها إلى أجزاء. يمكنك تكرار بعثرة الصورة بإعادة النقر على الزر "بعثر الصورة". في المثال يمكنك أيضاً تحريك الأجزاء المبعثرة بالفأرة. Use PictureClip.rar نرجو الاستفادة و السلام.

السلام عليكم... يمكنك استعمال المكون PictureClip لهذا الغرض (أضف المكون Microsoft PictureClip Control إلى صندوق الأدوات). * يمكنك تقسيم الصورة إلى خلايا باستعمال الخاصيتين Cols (عدد الأعمدة) و Rows (عدد الصفوف) ثم أخذ أي خلية كصورة باستعمال الخاصية GraphicCell…

السلام عليكم.... تم تعديل الكود و وضعه في هذا الموضوع في قسم VB.NET. سلام.

السلام عليكم... أداة الـ Timer تعتمد على تردد دقات ساعة النظام (TickCount) بوحدة الملي ثانية (milliseconds) و بالتالي فأقل قيمة لها هي 1 (أي 1 ملي ثانية) بالإضافة إلى أنها تصبح غير دقيقة عند استعمال قيم صغيرة. البديل هو استعمال ما يسمى بـ "المؤقت ذي الدقة العا…