نرجس الورد قام بنشر مارس 7, 2008 الكاتب قام بنشر مارس 7, 2008 (معدل) شكرا لأخي أكسيسنا وأختي نرجس على تفاعلهما أختي نرجس الفرق في طريقة التحكم بالقائمة فعندي هي بالأزرار وعند أخي أكسيسنا هي بالجر والإفلات للأولوية والضغط المزدوج لتغير طريقة الترتيب السلام عليكم شكرا لجهدك المتميز أخي الكريم محب العلم ولمثابرتك المشهودة في هذا المنتدى الأصيل شكرا لتوضيحك للفرق بين التطويرين .. وبالفعل الخطا مني فقد حصل خطأ تكرار في التحميل ..................... أخي المثابر محب العلم قمت بتطبيق المثال في نموذج منفصل وواجهت بعض المعضلات أرجو أن يتسع وقتك دون عجالة لأتشرف بمساعدتك الكريمة الأولى : واجهتني هذه المشكلة عند فتح النموذج حسب الصورة: والثانية : هي أنني أول مرة أقوم بإنشاء مربع قامة فلم أستطيع التعامل معها والتطبيق موجود في المرفق في انتظار مساعدتك وقت ماتستطيع DevelopedsortingTESTTT.rar تم تعديل مارس 7, 2008 بواسطه نرجس الورد
محب العلم قام بنشر مارس 7, 2008 قام بنشر مارس 7, 2008 وعليكم السلام ورحمة الله وبركاته حياك الله أختي نرجس ، بالنسبة للمشكلة الأولي يبدو أنك نسيت تنقلي للتطبيقك مربع القائمة المخفي والمصغر في وضع التصميم أنظري الصورة : بالنسبة للموضوع الثاني ، لم أفهم بالضبط ما الذي تريدني أن أعمله مع وافر الاحترام
نرجس الورد قام بنشر مارس 7, 2008 الكاتب قام بنشر مارس 7, 2008 (معدل) وعليكم السلام ورحمة الله وبركاته حياك الله أختي نرجس ، بالنسبة للمشكلة الأولي يبدو أنك نسيت تنقلي للتطبيقك مربع القائمة المخفي والمصغر في وضع التصميم أنظري الصورة : بالنسبة للموضوع الثاني ، لم أفهم بالضبط ما الذي تريدني أن أعمله مع وافر الاحترام جزاك الله خير على التوضيح أخي الكريم محب العلم الموضوع الثاني خاص بطريقة انشاء مربع اختيار حقول الفرز فكيف أستطيع عمل مربع مثله ويحتوي على العمود الأول للحقول والثاني لطريقة الفرز حفظك الله ورعاك تم تعديل مارس 7, 2008 بواسطه نرجس الورد
محب العلم قام بنشر مارس 8, 2008 قام بنشر مارس 8, 2008 حياك الله أختي نرجس ،، 1. تنشئين مربع قائمة بالمواصفات الآتية : الاسم / cbolookup مصدر الصف / QSchoolers نوع مصدر الصف / قائمة الحقول عمود منضم / 1 متعدد التحديد / عادي مرئي / لا 2. تنشين مربع قائمة أخر المواصفات الآتية : الاسم / L نوع مصدر الصف / قائمة القيم عمود منضم / 1 متعدد التحديد / عادي مرئي / نعم عدد الأعمدة / 2 عرض الأعمدة / 3سم 3. في قسم التعريفات لأكواد النموذج تعرفين متغيرين هكذا Option Compare Database Private theList(19, 2) As String Private theFields As Byte المتغير thefields سيحفظ به عدد الحقول المصفوفة thelist مؤلفة من ثلاث أعمدة العمود 0 لأسم الحقل والعمود 1لنوع الفرز والعمود 2لأغراض برمجية 4. في حدث عند الفتح للنموذج تضعين الكود الأتي Private Sub Form_Open(Cancel As Integer) For i = 0 To Me.cboLookup.ListCount - 1 ItemStr = cboLookup.ItemData(i) & ";A to Z" l.AddItem Item:=ItemStr, Index:=i theList(i, 0) = cboLookup.ItemData(i) theList(i, 1) = "A to Z" Next i theFields = Me.cboLookup.ListCount Me.godown.Enabled = False Me.goup.Enabled = False End Sub وهنا كما تلاحظين ما يحصل هو أننا نقوم بتعريف سطور القائمة L مستقين البيانات من cboLookup وكذلك نقوم بتخزين البيانات في المصفوفة thelist لأن العمل البرمجي سيتم عليها لاحقا ومنها ننقل التعديلات إلى القائمة L . ويمكنك تتبع العمل البرمجي من احداث الأزرار المختلفة ... مع وافر الاحترام والتقدير
نرجس الورد قام بنشر مارس 14, 2008 الكاتب قام بنشر مارس 14, 2008 (معدل) عذرا لتأخري في الرد فقد كنت متابعة ولكني أتحين الفرصة المناسبة للمشاركة حياك الله أختي نرجس ،، شكرا لطيب وسمو أخلاقك أخي الفاضل محب العلم 1. تنشئين مربع قائمة بالمواصفات الآتية : الاسم / cbolookup مصدر الصف / QSchoolers نوع مصدر الصف / قائمة الحقول عمود منضم / 1 متعدد التحديد / عادي مرئي / لا 2. تنشين مربع قائمة أخر المواصفات الآتية : الاسم / L نوع مصدر الصف / قائمة القيم عمود منضم / 1 متعدد التحديد / عادي مرئي / نعم عدد الأعمدة / 2 عرض الأعمدة / 3سم جميل جدا وشرح دقيق قمت بإنشاء هذه المربعات حسب تعليماتك 3. في قسم التعريفات لأكواد النموذج تعرفين متغيرين هكذا Option Compare Database Private theList(19, 2) As String Private theFields As Byte المتغير thefields سيحفظ به عدد الحقول المصفوفة thelist مؤلفة من ثلاث أعمدة العمود 0 لأسم الحقل والعمود 1لنوع الفرز والعمود 2لأغراض برمجية تبقت علي هذه النقطة الثالثة فقط واعذرني فلم أعرف أين يكون " قسم التعريفات لأكواد النموذج" ؟ ولم أجد هذا الكود في المثال بعد تعديلك عليه! ربما هي نقاط صغيرة ولكني لا أعرفها فلم أدرس الـ Sql ولا الفيجوال بيسك فأنا أتعلم من فيض علمكم مع مرور الوقت أما النقطة الرابعة فلا مشكلة لدي بها والحمد لله 4. في حدث عند الفتح للنموذج تضعين الكود الأتي Private Sub Form_Open(Cancel As Integer) For i = 0 To Me.cboLookup.ListCount - 1 ItemStr = cboLookup.ItemData(i) & ";A to Z" l.AddItem Item:=ItemStr, Index:=i theList(i, 0) = cboLookup.ItemData(i) theList(i, 1) = "A to Z" Next i theFields = Me.cboLookup.ListCount Me.godown.Enabled = False Me.goup.Enabled = False End Sub وهنا كما تلاحظين ما يحصل هو أننا نقوم بتعريف سطور القائمة L مستقين البيانات من cboLookup وكذلك نقوم بتخزين البيانات في المصفوفة thelist لأن العمل البرمجي سيتم عليها لاحقا ومنها ننقل التعديلات إلى القائمة L . ويمكنك تتبع العمل البرمجي من احداث الأزرار المختلفة ... مع وافر الاحترام والتقدير جزاك الله خيرا وحفظك لمحبيك في انتظار توضيحك للنقطة الثالثة وتقبل مني وافر الشكر والتقدير تم تعديل مارس 14, 2008 بواسطه نرجس الورد
محب العلم قام بنشر مارس 14, 2008 قام بنشر مارس 14, 2008 لا داعي للإعتذار أختي العزيزة حياك الله ،، تفضلي توضيح النقطة الثالثة المطلوب مع وافر الاحترام
محب العلم قام بنشر مارس 14, 2008 قام بنشر مارس 14, 2008 ولم أجد هذا الكود في المثال بعد تعديلك عليه! ما يحاول قوله هذا الرجل أن الكود موجود ...
نرجس الورد قام بنشر مارس 19, 2008 الكاتب قام بنشر مارس 19, 2008 (معدل) السلام عليكم ورحمة الله وبركاته ولم أجد هذا الكود في المثال بعد تعديلك عليه! ما يحاول قوله هذا الرجل أن الكود موجود ... بالفعل أخي المحترم الكود موجود لقد اتبعت تعليماتك السابقة واستطعت من تطبيق مربع القائمة بنجاح ولكن اعذرني هذه المرة أيضاً فقد اتبعت أحداث الأزرار وطبقتها ولكن الأزرار لم تعمل ارجو أن يتسع صبرك كما عهدناك يا محب العلم وتجد المشكلة في المرفق DevelopedsortingTEST3.rar تم تعديل مارس 19, 2008 بواسطه نرجس الورد
نرجس الورد قام بنشر أبريل 8, 2008 الكاتب قام بنشر أبريل 8, 2008 السلام عليكم ورحمة الله وبركاته عسى المانع خير أخي الفاضل ننتظر عودتك سالماً وكما عهدنا جهدك المميز يثري هذا المنتدى الأصيل الله يحفظك ويرعاك وينير دربك
نرجس الورد قام بنشر أبريل 17, 2008 الكاتب قام بنشر أبريل 17, 2008 (معدل) السلام عليكم ورحمة الله وبركاته أخي المحترم محب العلم ننتظر أن نسمع أخبارك الطيبة بفارغ الصبر وانشاء الله هذه الغيبة كلها خير وسلام أخواني الأفاضل هل أجد منكم مساعدة .. فالمشكلة لازالت عندي قائمة وهي هامة ضرورية أرجو مساعدتكم يحفظكم الله تم تعديل أبريل 17, 2008 بواسطه نرجس الورد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.