كيف يتم توسيط النموذج الفرعي في النموذج الرئيسي بواسطة الكود

ما كان بالامس فقدناه اليوم لماذا ؟

ما معني هذه الجملة ؟؟؟

بالنسبة للسؤال ، هل تريد توسيط الفورم الفرعي مع تثبيت حجمها

أم تريدها أن تكبر مع الرئيسي أي أن تكون أبعادها متغيرة و المسافة الفارغة خارج الفورم الفرعي تكون ثابتة

الجملة تعني:

عند تسجيلي في المنتدى لا يبقى السؤال في المنتدى أكثر من ساعة بدون رد واليوم أرى أسئلة تبقى أكثر من ثلاثة أيام مع أن الأعضاء لا زالوا هم الأولين وأعرف أن معضمهم لديهم إستطاعة للإجابة على تلك الأسئلة وليس سؤالي فقط وأعرف يا اخ مصراوي بتقولي ليش ما أرد انا وأقول معضم تلك الأسئلة للأسف لا أعرف أجابتها وإلا كنت فعلت0

أما بخصوص ما أريده في سؤالي السابق فهو:

أريد أن يتوسط النموذج الفرعي النموذج الرئيسي عند تكبير النموذج الرئيسي على أن يبقى النموذج الفرعي محتفظاً بحجمه الأصلي

هذا ما أردته فقط

أكرر شكري لك0

لم ينجح الكود معي بعد و لكن فكرت أن أضع محاولتي هنا ، لتجرب معي أنت و باقي الاخوة

اصنع فورم و سمها Main و فورم فرعي بداخله اسمه Subf

و اكتب الكود التالي فى حدث تغيير الحجم للفورم الرئيسي

Private Sub Form_Resize()
Dim L1 As Double, l2 As Double, l3 As Double, l4 As Double
Dim h1 As Double, h2 As Double, h3 As Double, h4 As Double

L1 = Me.WindowLeft
l2 = Me.WindowWidth
l3 = Me.subF.Width
l4 = Me.subF.Left

h1 = Me.WindowTop
h2 = Me.WindowHeight
h3 = Me.subF.Height
h4 = Me.subF.Top

MsgBox "Main Left Margin : " + Str(L1) + Chr(13) + _
"Sub Left Margin : " + Str(l4) + _
Chr(13) + Chr(13) + "Main Total width" + Str(l2) + Chr(13) + _
"sub Total width " + Str(l3) + _
 Chr(13) + Chr(13) + "calculated left Margin" + Str(l2 / 2 - l3 / 2) + _
 Chr(13) + "===============" + Chr(13) + _
 Chr(13) + Chr(13) + "Main top : " + _
Str(h1) + Chr(13) + "Sub top Margin: " + Str(h4) + Chr(13) + Chr(13) + _
"Main Form height " + _
Str(h2) + Chr(13) + "sub Form height " + Str(h3) + Chr(13) + Chr(13) + _
"calculated top Margin" + _
Str(h2 / 2 - h3 / 2) + Chr(13)
 Me.subF.Left = (l2 - l3) / 2 - 400
 Me.subF.Top = (h2 - h3) / 2 - 1000
 Me.Repaint
MsgBox "Current Sub Left Margin : " + Str(Me.subF.Left) + "Current Sub Top Margin: " + Str(Me.subF.Top)

End Sub

End Sub

اعتقد أنها نجحت !!

اصنع فورم و سمها Main و فورم فرعي بداخله اسمه Subf

و اكتب الكود التالي فى حدث تغيير الحجم للفورم الرئيسي

Private Sub Form_Resize()
Dim L1 As Double, l2 As Double, l3 As Double, l4 As Double
Dim h1 As Double, h2 As Double, h3 As Double, h4 As Double

L1 = Me.WindowLeft
l2 = Me.WindowWidth
l3 = Me.subF.Width
l4 = Me.subF.Left

h1 = Me.WindowTop
h2 = Me.WindowHeight
h3 = Me.subF.Height
h4 = Me.subF.Top

MsgBox "Main Left Margin : " + Str(L1) + Chr(13) + _
"Sub Left Margin : " + Str(l4) + _
Chr(13) + Chr(13) + "Main Total width" + Str(l2) + Chr(13) + _
"sub Total width " + Str(l3) + _
 Chr(13) + Chr(13) + "calculated left Margin" + Str(l2 / 2 - l3 / 2) + _
 Chr(13) + "===============" + Chr(13) + _
 Chr(13) + Chr(13) + "Main top : " + _
Str(h1) + Chr(13) + "Sub top Margin: " + Str(h4) + Chr(13) + Chr(13) + _
"Main Form height " + _
Str(h2) + Chr(13) + "sub Form height " + Str(h3) + Chr(13) + Chr(13) + _
"calculated top Margin" + _
Str(h2 / 2 - h3 / 2) + Chr(13)
Me.subF.Left = 0
Me.subF.Top = 0
 Me.subF.Left = (l2 - l3) / 2
 Me.subF.Top = (h2 - h3) / 2

 Me.Repaint
MsgBox "Current Sub Left Margin : " + Str(Me.subF.Left) + _
"Current Sub Top Margin: " + Str(Me.subF.Top)

End Sub

هذا مثال رائع بارك الله فيك يا أخ مصراوي

الأخ/مصراوي

أعتذر لتأخري في الرد لأنني لم اطلع على الأنتر نت منذ امس

ثانياً : شكرا لك فعلا هذا ما أردته بارك الله فيك وكثر الله من امثالك

لك تحياتي0

وهذا رابط المثال

http://mypage.ayna.com/mtarafa/FormResize.zip

الأخوة الكرام

الحقيقة أن المنتدى به أمور عجيبة غريبة

وإلى الآن لا أفهم ما يدور هنا !!!

لقد اقتنعت حاليا أنه إذا أردت يا "أبو هادي" بإنهاء أو تعطيل أي موضوع فقم بالرد أو الاشتراك فيه !!!

لا تستغربوا هذا الإحساس مني .. تابعوا ردودي على بعض المواضيع سوف ترونه دائما هو الأخير .. وقناعتي أن طالب السؤال أو غيره من الأعضاء قد استخدمه واستفاد منه ولكنه لا يريد البوح بذلك وإبداء الرأي فيه ومناقشته .

قد يتهمني البعض بأني أنتظر الشكر والثناء لما أكتب !! وهذا غير صحيح أبدا ولكن من باب الأدب والتأدب وحسن التعامل مع الآخرين أن يبدي برأيه برد أخيه ولا يتجاهله أو يهمشه .

كما قد يرى آخرون وأعجب لذلك كما وضح أحدهم بأنه لا داعي لآخر بأن يرد ما دام أن الرد السابق من غيره قد أدى الغرض ووفى بالمطلوب .. ولكني أرى أنه ما دام أن الرد الآخر يحتوي على اختلاف ولو قليلا يميزه عن غيره من الردود فلما لا ؟ وهذا ليس إنقاصا من الآخرين فربما يكون هذا الاختلاف البسيط عند الآخرين ميزة كبيرة ينتفع منها وبها . وهنا أود أن أقول فليكن المنتدى كسلة فواكه جميلة بما تحتويه من كل الألوان والمذاقات والروائح الطيبة ولينتفع منه المنتفعون .

وهناك أمور أخرى ولكن سأوضحها فيما بعد .

آمل أني لم أثقل عليكم بهذه الملاحظات وأن يتقبلها الجميع بصدر رحب .. والله من وراء القصد .

ولكم خالص تحياتي .

شكراً لك أخي مصراوي على المثال هذا رائع الله ينور لك بعلمك ويزيدك علم ونور0

شكراً

أشكرك كثيرا 5060 (f) (f)

أبو هادي هذا بريدي

mtarafa@yahoo.com

هل ممكن تفصيل أكثر عن ملحوظتك ( و أرجو ان يكون بالبريد(f) )

أخوتي الكرام لقد تعلمت من مواقف سابقة هنا فى المنتدي ضرورة أن يكون من طرح السؤال هو آخر من يرد عليه ، ليس ليشكر من تفاعل معه و لكن علي الاقل لكي يوضح هل قضي طلبه أم لا . و صراحة انا شخصيا لم أكن أهتم بذلك و لكن لم يكن ذلك نكرانا لمن أجابني و لكن اعتقادا مني بأن الموضوع سؤال و جواب و خلاص

فأرجو ألا تتأثر لذلك يا أبو هادي ، فان كان ذلك يحدث من بعض الاخوة فثق أنه يحدث بحسن نية :)

و أنتهز هذه الفرصة لكي أدعوكم لتكثيف المشاركة و التفاعل ،ففعلا من الممكن وجود فائدة للجميع ان لم نكتفي باجابة و احدة علي السؤال حتي و ان كانت المثلي أو تفي بغرض السائل

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

(f)