كيف اجعل زر الامر في اعلاء اليسار من الفورم مهما كانت اعدادت الشاشة ؟؟

السلام عليكم...

إذا أنا فهمت السؤال فأعتقد أن المحافظة على موقع عنصر من ناحيتي الأعلى و اليسار لا يحتاج إلى أي كود أو إجراء لأن المكون سيحتفظ بقيم الخاصيتين Top و Left في كل الأحوال. أما الاحتفاظ به محاذى إلى اليمين أو الأسفل (أو كليهما) فهذا يحتاج إلى سطر واحد من الكود.

في الحدث Resize للـ Form اكتب الكود التالي:

Private Sub Form_Resize()
    Command1.Move ScaleWidth - Command1.Width - ScaleX(8, vbPixels, ScaleMode), ScaleHeight - Command1.Height - ScaleX(8, vbPixels, ScaleMode)

الكود السابق يحتفظ دائماً بالزر عند الزاوية السفلية اليمنى للنافذة (يبتعد عن حد النافذة بمقدار 8 بكسل من الناحيتين اليمنى و السفلية).

نرجو الاستفادة و السلام.

najy_zl كتب:

السلام عليكم...

إذا أنا فهمت السؤال فأعتقد أن المحافظة على موقع عنصر من ناحيتي الأعلى و اليسار لا يحتاج إلى أي كود أو إجراء لأن المكون سيحتفظ بقيم الخاصيتين Top و Left في كل الأحوال. أما الاحتفاظ به محاذى إلى اليمين أو الأسفل (أو كليهما) فهذا يحتاج إلى سطر واحد من الكود.

في الحدث Resize للـ Form اكتب الكود التالي:

Private Sub Form_Resize()
    Command1.Move ScaleWidth - Command1.Width - ScaleX(8, vbPixels, ScaleMode), ScaleHeight - Command1.Height - ScaleX(8, vbPixels, ScaleMode)

الكود السابق يحتفظ دائماً بالزر عند الزاوية السفلية اليمنى للنافذة (يبتعد عن حد النافذة بمقدار 8 بكسل من الناحيتين اليمنى و السفلية).

نرجو الاسهتفادة و السلام.

[/quote

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

استاذي العزيز

السلام عليكم ورحمة وبركاتة

هنا مشكله انت تعرف ان انواع شاشات الحاسب فيها الكبير والصغير والمتوسط وكل مره اعمل برنامج لا بد ان اعرف حجم الشاشة عشان اقد عدل على الكود

انا اريد كود يضع زر الامر في اعلاء يسار شاشة المستخدم مهما كان نوع الشاشة نامل من الله ثم منكم المساعدة العاجله والله يحفظكم ويرعامن

اقتباس

كيف اجعل زر الامر في اعلاء اليسار من الفورم مهما كانت اعدادت الشاشة ؟؟

هذا كود يجعل لك الزر Command2 في اعلاء اليسار من الفورم عند الضغط على الزر Command1

Private Sub Command1_Click()
Me.ScaleTop = Me.Top
Me.ScaleLeft = Me.Left
Command2.Top = Me.Top
Command2.Left = Me.Left
Rem"لاحظ أن كلمة ME  المقصود بها هو اسم الفورم "
Rem" فمن الممكن كتابة الجملة الأخيرة مثلآ  هكذا  Command2.Left = Form1.Left  "

End Sub

Private Sub Form_Activate()
Me.ScaleTop = Me.Top
Me.ScaleLeft = Me.Left
Command2.Top = Me.Top
Command2.Left = Me.Left
Rem"لاحظ أن كلمة ME  المقصود بها هو اسم الفورم "
Rem" فمن الممكن كتابة الجملة الأخيرة مثلآ  هكذا  Command2.Left = Form1.Left  "

End Sub

الأخ/athen25

هل انتهت مشكلتك أم لا؟