sx1 قام بنشر مايو 30, 2007 مشاركة قام بنشر مايو 30, 2007 بسم الله الرحمن الرحيم مرفق ملف به توضيح ما اريده db1.rar رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر مايو 30, 2007 مشاركة قام بنشر مايو 30, 2007 مرحباً بك اخي sx1 ان يقوم النموذج بهذه المقارنة بدون الضغط على زر الامر هل ما تريده في الفقرة الاولى هو ماتريد النموذج ان يقوم به في الفقرة الثانية ؟ اذا كان كذلك فالرجاء التكرم بتوضيح الهدف من ذلك ولماذا لا يكتفى بعمله اما من خلال كود بزر الامر او من خلال كود بحدث في الحالي للنموذج. مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
sx1 قام بنشر مايو 31, 2007 الكاتب مشاركة قام بنشر مايو 31, 2007 بسم الله الرحمن الرحيم بارك الله فيك اخي يوسف واشكرك على الرد اخي الكريم قصدت من طلبي امرين 1- ما اريده فعلا ان يقوم النموذج بالتاكد من الشرط ولكن عندما يكون الناتج الذي اريد مقارنته عبارة عن ناتج معادلة من نموذج فرعي فقد لاحظت انه عند عمل حدث في الحالي فانه لا ينفذ الشرط ولا يلتفت اليه 2- طلبت تنفيذ ذلك على زر امر لكي اقوم بالالمام بالموضوع كاملا وعلى ذلك يمكنك اخي الكريم ان تحل هذه المشكلة على ان يقوم النموذج بمطابقة الشرط باستمرا في حالة التغير يقوم هو بالمقارنة .... وانا ساقوم بالتطبيق على زر الامر ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر مايو 31, 2007 مشاركة قام بنشر مايو 31, 2007 اخي / sx1 بارك الله فيك تم التعديل وبامكانك كتابة الرقم الذي تريده بمربع النص va والضغط على انتر او تاب وسيتم تغيير اللون بناءً على المقارنة المطلوبة وايضاً بامكانك المقارنة بزر الامر. ارجو ان يكون هو المطلوب تفضل المرفق وبالتوفيق dbsx1.rar رابط هذا التعليق شارك More sharing options...
sx1 قام بنشر يونيو 2, 2007 الكاتب مشاركة قام بنشر يونيو 2, 2007 بسم الله الرحمن الرحيم بارك الله فيك اخي يوسف هو بالضبط ما اردت ولكن هل تسمح لي بتوضيح جزء وهو في اعتقادي - وارجو ان تصحح لي - فانا تلميذ صغير الكود الذي قد كتبته يوافق تقريبا ما كتبته ما عدا setfoucs فهل هي السبب ارجو بيان ذلك وشرح هذه الدالة باختصار ومتى يتم استعمالها رابط هذا التعليق شارك More sharing options...
يوسف أحمد قام بنشر يونيو 2, 2007 مشاركة قام بنشر يونيو 2, 2007 بارك الله فيك اخي / sx1 لقد رأيت الكود الذي كتبته انت وما شاء الله عليك ... تقول بانك تلميذ صغير ... الله يعين لما تكبر ما قمت بعمله صحيح ولكن هناك ليس فقط setfocus الدالة هي الاجراء الذي يؤدي او ينجز مهمة محددة ويعيد قيمة المنهج هو الاجراء الذي يقوم بمهمة ما على الكائن ( وفي المثال السابق يعتبر setfocus منهجاً وليس دالة ) في البداية بما انك استخدمت مربعي نص غير منضمين بالنموذج ... مهما كانت وظيفتهما .. فعند الرغبة في عمل مقارنة بينهما في القيمة فلابد ان يتم تعريفهما قبل ذلك Dim t1 As Integer Dim t2 As Integer تم تعريف t1 و t2 بانهما رقم صحيح وبامكانك تعريفهما بطريقة اخرى Dim t1,t2 As Integer يتم بعد ذلك اسناد القيم لتك المتغيرات t1 = Val(eq.Text) t2 = Val(va.Text) هنا يتم استخدام الدالة val لترجع قيمة عددية او رقمية لمربعات النصوص وبعد ذلك ستتم المقارنة بين t1 و t2 بالنسبة للمنهج setfocs ... عند اسناد القيم للمتغيرات سيتم المرور على خاصية text لمربعات النصوص او قرائتها مثل الجزء من الكود اعلاه eq.text وهنا سيتم رفض العملية او اي عملية على مربع النص لقراءة خاصيته text ما لم يتم اجراء المنهج setfocus عليه اي بنقل التركيز عليه. ارجو ان اكون قدمت لك المعلومة المفيدة لاستفسارك وتاكد بانني ايضاً تلميذ صغير جداً اتعلم من هذه المنتديات المباركة واحاول بقدر المستطاع رد ولو جزء من الجميل بما اعلم . والله اعلى واعلم وبالتوفيق اخي الكريم رابط هذا التعليق شارك More sharing options...
sx1 قام بنشر يونيو 3, 2007 الكاتب مشاركة قام بنشر يونيو 3, 2007 بسم الله الرحمن الرحيم بارك الله فيك اخي الكريم في مالك وعلمك وصحتك اشكر لك كريم ردك وحسن شرحك وسعة صدرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.