الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]كيف يتم تنسيق هذا الكود في الموديل ليقوم بعمله بكافة نماذج المشروع؟؟

بدأه shadi77 في 15 فبراير 2009 · 8 رد · 577 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرحبا

اقتباس
If Trim(Text1.Text)= "" Then

MsgBox " الحقول يجب ان تكون قيمة حقيقية "

Exit Sub

End If

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

لكن في مشروع يحتوي عشرات الحقول يصعب كتابة رقم كل تكست بالكود السابق لذا قمت بعمل Public في الموديل لاستدعائه في الفورم ولم تنجح المحاولة نظرا لكون هناك اكثر من تكست بالفورم

استفساري:

ما الطريقة الصحيحة لتعديل هذا الكود في الموديل وادراجه في لود الفورم ليقوم بعمله مع كافة حقول تكست الفورم وباختلاف ارقامها؟؟

ودمتم سالمين

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

#2

بصراحة السؤال غير واضح تماماًن لكن إن كنت تقصد التحقق من كل الـTextBoxes الموجودة، وفي حال وجود فراغ في أحد منها يمكنك ان تكتب التالي:

  1.  
  2. Dim MyControl As Control
  3. For Each MyControl In Form1.Controls
  4.     If TypeOf MyControl Is TextBox Then
  5.         If MyControl.Text = "" Then
  6.             Msgbox "You Must enter a value"
  7.             Exit Sub
  8.         End If
  9.     End If
  11.  

هل هذا ما تريده؟

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#3
        
        

      
نعم اخي عبود هو ما اريده لكن الكود السابق محدد ب form1 فقط كيف استبدله ليشمل جميع الفورمز

      
      

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

    

  

    
    

      
#4
        
        

      
  1.  
  2. Dim MyForm As Form
  3. Dim MyControl As Control
  4. For Each MyForm In Forms
  5.     For Each MyControl In Form1.Controls
  6.         If TypeOf MyControl Is TextBox Then
  7.             If MyControl.Text = "" Then
  8.                 Msgbox "You Must enter a value"
  9.                 Exit Sub
  10.             End If
  11.         End If
  14.  

:)

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#5
        
        

      
اقتباس
For Each MyControl In Form1.Controls
ان كان وضع الكود السابق في الموديل فما الحل وكون الForm1 محددة باسم الفورم فقط
وان كان في  لود الفورم هل فقط اقوم بتغيير اسم الفورم السابق فقط ؟
وتشكر يا كابتن

      
      

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

    

  

    
    

      
#6
        
        

      
عفواً، خطأ مني، بدل:
For Each MyControl In Form1.Controls
اكتب:
For Each MyControl In MyForm.Controls
تمام الآن ؟ ;)

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#7
        
        

      
اخر وحدة ياكابتن قبل اجرب
الكود في الفورم الهدف  ام في الموديل؟
وكل سنة وانتا طيب

      
      

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

    

  

    
    

      
#8
        
        

      
في الـModule فأنت لا تريد تكراره، ضعه في إجراء ما واستدعه عندما تحتاجه

      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#9
        
        

      
تمام
 B)

      
      

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

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…