أريد أن يكون الفورم في وسط الشاشة

بالنسبة للسؤال الأول : روح خصائص الفورم واختار من startupposition > sentersceen

بالنسبة للسؤال الثاني ... ليست عندي فكرة

بالنسبة للسؤال الثانى

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
	If Button = 2 Then Me.PopupMenu Menu2, , X, Y
End Sub

بالنسبة للسؤال الأول راجع الرابط التالي ( هنا )

وجواب الأخ salehr3 صحيح أيضا ، لكن يظهر أن الأخ السائل يستفسر عن الطريقة برمجيا

أما السؤال الثاني فقد أجابك به الأخ عبدالفتاح حسن مشكورا

مع أني أرى أن الكود لا يحتاج إلى تحديد إحداثيات ، فيكفي كتابة :

If Button = 2 Then Me.PopupMenu Menu2

اخي الكريم "شبه جسم"

هذا هو طلب السائل

فاظن هو يريد ظهور القائمة في المكان الذي يضغط عليه بزر الايمن للفارة

حيث x , y تحددان احداثيات مؤشر الموس

و المكان الذي تركه الاخ عبدالفتاح حسن فراغ بين الفاصلتين هو المسافة التي نريدها بين مؤشر الماوس و مكان ظهور القائمة

seazer1 كتب:

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

من يصحح لي الكود التالي وهل الكود صحيح أو يحتوي على خطأ

CenterForm Me

أريد أن يكون الفورم في وسط الشاشة

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

السؤال الثاني :

أرجوا الإفادة يا أهل الخبرة والرد علي ضروري

الكود التالي يقوم بعرض القائمة تحت الزر فيحنما أغير موقع الزر وأقوم بالضغط

علية يبقى موقع القائمة في مكانة حتى لو كان الزر في يمين الفورم تبقى القائمة في موقعها

في اليسار فكيف أغير الكود هذا عشان تكون القائمة تحت الزر عند الضغط

Me.PopupMenu Menu2, , 73, 81

فما الحل

وشكراً

النسبة للسؤال الأول صحسح إذا كان هناك function

كالكود

Private Sub Form_Load()

CentreForm Me
End Sub
Function CentreForm(frm As Form)
	With frm
		.Left = (Screen.Width - .Width) / 2
		.Top = (Screen.Height - .Height) / 2
	End With
End Function

حتى لو كتبت

Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
CentreForm Me
End Sub
Function CentreForm(frm As Form)
	With frm
		.Left = (Screen.Width - .Width) / 2
		.Top = (Screen.Height - .Height) / 2
	End With
End Function

ستبقى النتيجة نفسها :lol:

أخي Super_Pro

عندما لا يتم ذكر الإحداثيات فإن الفيجوال بيسك يعيد الإحداثيات مباشرة إلى إحداثيات المكان الذي تم ضغط الماوس عليه .. جرب الكود الذي قمت بوضعه ( بدون ذكر الإحداثيات ) وسوف تجد أن القائمة ستظهر في المكان الذي ضغطت عليه بالماوس

لكن هذا لا يمنع أن نقول بأن كتابة الإحداثيات صحيح تماما ، غير أن عدم كتابته أيضا صحيح ، بل هو الأبسط في رأيي .

وعموما كلا الكودين يؤديان الغرض نفسه .. إنما ذكرت ذلك كملاحظة ليس إلا .

وشكرا على التعقيب

أشكركم أخوتي على مساعدتكم لي وردودكم الجميلة

وجعلها في موازين حسناتكم

وكل عام وأنتم بألف خير

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

وحاولت مع الكود التالي : If Button = 2 Then Me.PopupMenu Menu2

ولكن ما نفعت فما الحل ...

أخوي طبق الكود كامل .. يعني بهذي الطريقة :

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
	If Button = 2 Then Me.PopupMenu Menu2, , X, Y
End Sub

لا تكتفي بهذا الكود وحده : If Button = 2 Then Me.PopupMenu Menu2, , X, Y

المثال مرفق

Menu2.rar

آسف أخوي على التأخير في الرد بسبب إنشغالي

والله أخوي شبه جسم ما أدري لية ما تضبط معي أنا عندي تقريباً خمسة أزرار في الواجهة الرئيسية وكل

ما حاولت وضع الكود وتغيير مكان الزر ما تجي ما أدري إيش الحل تكفى الله يخليك

سؤال ثاني : لو عندي أكثر من كود في حدث الفورم كيف أحطها

وشكراً

أرفق البرنامج وإن شاء الله نعدل فيه

وبالنسبة للسؤال الثاني حط الأكواد بالترتيب إللي تريد البرنامج يقوم بها .. أو حط الأكواد هنا وإحنا نخبرك إن شاء الله

وأخيراً ضبطت معي الحمدلله

وألف شكر لكم أخوتي وشكر خاص لك أخوي شبه جسم