السلام عليكم ورحمة الله وبركاته
يا جماعة كيف أتحكم في مواقع النوافذ الفرعية :wacko:
يعني عند عرض نافذة من النوافذ الفرععية لا تظهر في الموقع الذي أريده
في الشاشة .
تظهر في أماكن مختلفة عشوائياً .
وهناك سؤال آخر
أريد لما أفتح نافذة فرعية لا يمكن للمستخدم
الذهاب إلى أي قائمة من القوائم أو أي
شيء آخر داخل البرنامج حتى يغلق النافذة التي :unsure:
هو عليها .
وشكراً لكم .
لو سمحتم
عليكم السلام ورحمة الله وبركاته
في حد load للفورم اكتب المقاسات التي تريد
Private Sub Form_Load() Form1.Left = 700 Form1.Top = 700 End Sub
السؤال الثاني
لا تجعل المستخدم يعرض النموذج الثاني حتى تقوم باخفاء النموذج الاول !
اتمنى ان اكون فهمتك
اقتباسأريد لما أفتح نافذة فرعية لا يمكن للمستخدمالذهاب إلى أي قائمة من القوائم أو أي
شيء آخر داخل البرنامج حتى يغلق النافذة التي
هو عليها .
يمكنك استخدام الكود
Form2.Show vbModal , Form1
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم ورحمة الله وبركاته
أخى الفاضل محمد المهدى
هل جربت هذا الكود مع النماذج التابعة MdiChild ؟
أعتقد يا أخى Comfort أن الحل فى أن تفصل النماذج التى تريدها VbModal ولا تجعلها MdiChild
ولكنى لا أقول أن هذا هو الحل الوحيد لأنى صادفنى حلول لمثل هذه المشكلة ولكن لست أتذكر أين ولم أحتفظ بها
عموما ابحث عن الموضوع بالانجليزى وستجد حلول لا حصر لها على النت - بعون الله
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
أخي الكريم المتميز لقد
قمت بعمل ذلك فعلاً و لم يتغير شيء نهائياً
أخي GHOST2010 شكراً على مساعدتك
ولكن هذا الكود لا يعمل مع MdiForm .
أخي abulyaman أتمنى أن توضح لي أكثر .
اسف جداً والله لم الاحظ انك تتحدث عن MdiForm :( :(
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
قصد الاخ العزيز abulyaman هو ان تغير خاصية MdiChild للفورم الذى تريد اظهاره فوق باقى النوافذ الى False وسيعمل الكود أو من الممكن أن تعتمد على خاصية Enabled :rolleyes:اقتباسأعتقد يا أخى Comfort أن الحل فى أن تفصل النماذج التى تريدها VbModal ولا تجعلها MdiChild
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخي الكريم GHOST2010
قمت بعمل بعمل ذلك و ظهرت الرسالة المرفقة .
اقتباسقصد الاخ العزيز abulyaman هو ان تغير خاصية MdiChild للفورم الذى تريد اظهاره فوق باقى النوافذ الى False وسيعمل الكود أو من الممكن أن تعتمد على خاصية Enabled
اخى العزيز جداً Comfort , ماهو الذى قمت بعمله فكلا الطريقتين تعملان بشكل ممتاز فأرجو ان توضح لى ماقمت بعمله حتى استطيع المساعدة أو ترفق الملف ويتم التعديل عليه , وتقبل تحياتى اليك :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
1. ما قمت بعمله هوو أنني قمت بتغير الخاصية
MdiChild إلى False واستخدمت الكود :
Form1.Show vbModal , MdiForm1
لعرض النوافذ .
2. وأما طريقة Enabeld فعندما أقوم بتحويلها إلى False
مع عرض النموذج :
MdiForm.Enabeld = False
فإن النافذة الفرعية أيضاً تصبح Enabeld = False :unsure:
تم تعديل هذه المشاركة بواسطة COMFORT في 8 يونيو 2005 في 17:31
اقتباسالسلام عليكم ورحمة الله وبركاتهيا جماعة كيف أتحكم في مواقع النوافذ الفرعية :wacko:
يعني عند عرض نافذة من النوافذ الفرععية لا تظهر في الموقع الذي أريده
في الشاشة .
تظهر في أماكن مختلفة عشوائياً .
:unsure: :unsure: :( :(
:unsure: :unsure:
اقتباس1. ما قمت بعمله هوو أنني قمت بتغير الخاصيةMdiChild إلى False واستخدمت الكود :
Form1.Show vbModal , MdiForm1
اخى Comfort هل انت متأكد ان هذا الكود لايعمل معك , من فضلك تأكد مرة أخرى :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخي الكريم GHOST2010
لقد جربت الطريقة وعملت بشكل صحيح
ولكن على هذا المثال لم تعمل معي .. :unsure:
و جزاك الله خيراً .
وهذا تكملة الملفات للمثال
:unsure:
أرجو المساعدة
لقد واجهتني هذه المشكله في احد البرامج واليك الحل الذي إستخدمته
اكيد عند فتحك لأي نافذه من النوافذ ستستخدم زر امر او من القوائم الموجوده في mdi form
سأتحدث عن القوائم
القوائم موجوده في mdiform وانت مثلاً تريد فتح الفورم رقم 1
اذن عند القائمه الموجود بها امر الأنتقال وليكن form1 موجود هذا الأمر في قائمه إسمها ويندوز مثلاً
اضغط عليها وكتب التالي
form1.Top = (750)
form1.Left = (2295)
form1.Show
حيث top وleft id هي الأبعد التي تريد ان تظهر عليها الشاشه الفرعيه داخل الشاشه الرئيسيه
ملاحظه / هذه الأرقام إفتراضيه ويمكنك الزيادة او النقصان على حسب الرغبه
وتحياتي لك وإذا كان في اي مشكله ان شاء الله ماراح نقصر معاك
هذا كود لكي تلزم المستخدم بان لايفتح اكثر من نافذه اكتب هذا الكود لجميع الفورمات وفي جميع اوامر الإنتقال بحيث
إذا كانت النافذه رقم 3 مفتوحه واراد فتح نافذه اخرى تلزمه بإغلاق الحاليه
وانتبه يجب كتابة جميع النوافذ والمثال التالي يوضح ذلك بنسبه لنافذه واحده فقط ويمكنك إضافة جميع النوافذ
If form1.Visible = True Then
MsgBox "الرجاء إغلاق النافذه الحاليه"
else
تنفيذ الأجراء المراد فعله
End If
شكراً جزيلاً لك الحيوتي
وشكراً ايضا للأخ GHOST2010
ولكن أخي الحيوتي
الكود الخاص
لعدم فتح أكثر من نافذة
طويل لأنه يحتاج كتابة جميع
النوافذ الموجودة في البرنامج
مع كل أمر لتحميل نافذة .
و الأخ GHOST2010 قد أفادني بكود صغير ومختصر
ولكنه لا يعمل على المثال الموجود أو بالأصح هناك خطأ عند استعماله مع المثال السابق
في مشاركتي السابقة .
تم تعديل هذه المشاركة بواسطة COMFORT في 12 يونيو 2005 في 13:20
لاشكر على واجب
وهذه الطريقه التي اعرفها في إغلاق الفورم
-waf
هذا الموضوع مغلق.