كيف أحدد مكان أو موضع النموذج ؟

[الشاعر]

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

أخواني الكرام

 

عندي سؤال ، وقد بحثت عن إجابته قبل وضع هذا الموضوع ، ولكنني لم أجد الجواب .

 

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

 

بارك الله فيكم أيها الأحبة

 

تقبلوا تحياتي

الشاعر

[ابو محمد2]

السلام عليكم

اذا كان النموذج منفرد (من اعدادات النموذج يمكنك ان تضعه في الوسط  وليس في وسط الشاشه)

اما اذا كان النموذج مدمج ب نموذج اخر فانك تختار المكان المناسب له عند عمليه التصميم

 

ولو عززت سؤالك بمثال  لتسنى للاخوه الاجابه عليك بشكل عملي ولعلمنا ما تريد بالضبط

بالتوفيق

[الشاعر]

الله يعطيك ألف عافية حبيبنا

 

ما قصدت أن عندي نموذج منبثق ، وهو يتوسط الشاشة تلقائيا

أريد أن أضعه في مكان محدد

 

وجدت كود ولكن لم يخدمني

Private Sub UserForm_Initialize()

Me.StartUpPosition = 0

Me.Top = Application.Top + ((Application.Height - Me.Height) / 2)

Me.Left = Application.Left + ((Application.Width - Me.Width) / 2)

End Sub

 

 

هذا الكود يوسط النموذج المنبثق في وسط الشاشة

ما أريده أن أكتب قيمة محددة مثل :

يسار 1000

أعلى 500

بهذه الطريقة

 

بانتظار ردكم الكريم

تم تعديل ديسمبر 31, 2014 بواسطه الشاعر

[ابوخليل]

السلام عليكم

شكرا للاخ الكريم ssm على الاجابة وجزاه الله خيرا

 

اخونا الشاعر  :

يمكن عمل ما تريد يدويا او بالاستعانة بالكود البرمجي

شريطة ان تكون خصيصة : توسيط تلقائي=لا

اما يدويا فكما ذكر اخونا ssm ففي عرض التصميم اسحب النموذج في المكان المحدد الذي تريد ان يظهر فيه ثم احفظ

اما الكود البرمجي فضع هذا السطر في حدث فتح النموذج

Me.Move Left:=3000, Top:=6000

وغير في الارقام حسب رغبتك

[الشاعر]

الأخ العزيز 

أبو خليل

 

الله يعطيك ألف الف عافية

 

شكرا لكم كثيرا