تغيير طول الفورم بحسب حجم دقة عرض الشاشة

[ابو تميم]

تحية للجميع

في المف المرفق

عندما تكون دقة الشاشة 1024×768 يكون الفورم الظاهر أعلى الملف بعرض الشاشة ويكون من أول الشاشة حتى نهايتها بشكل افقي أعلى الشاشة - الملف

ولكن عندما نغير دقة العرض إلى أكبر من ذلك مثلا 1366×768 يكون الفورم يصل إلى منتصف الملف فقط

هل يمكن تعديل خصائص الفورم بحيث يتناسب مع حجم ودقة عرض الشاشة بحيث إذا كانت الشاشة 1024× 768 يأخذ حجمها وإذا زادت دقة العرض أو حجم الشاشة يزداد طول افورم أفقيا بحسب الشاشة

ولكم جزيل الشكر

تغيير طول الفورم بحسب حجم دقة عرض الشاشة.rar

[عبدالله باقشير]

وعليكم السلام

هل هذا ما تقصد

Private Sub UserForm_Initialize()

Me.Width = Application.Width

Me.Height = Application.Height

End Sub

[ابو تميم]

تماما هذا هو المطلوب

جزاك الله خيرا أخي عبد الله باقشير

عملت المطلوب وزياده

أنا كنت أريد فقط

Me.Width = Application.Width

ولكنك أكملت معروفك وفصلت أكثر جزاك الله كل الخير

[الـعيدروس]

السلام عليكم

استخدم هذه الأكواد

ومن ضمنها كود الاستاذ القدير خبور خير

عملها لإخفاء شريط ابداء عند فتح الفورم

وإظهاره عند اغلاق الفورم

Private Const SWP_HIDEWINDOW = &H80

Private Const SWP_SHOWWINDOW = &H40

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub UserForm_Activate()

Dim T As Long

T = FindWindow("Shell_traywnd", "")

Application.EnableEvents = False

Call SetWindowPos(T, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

Application.EnableEvents = True

End Sub

Private Sub UserForm_Initialize()

Me.Width = Application.Width

Me.Height = Application.Height

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim T As Long

T = FindWindow("Shell_traywnd", "")

Application.EnableEvents = False

Call SetWindowPos(T, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

Application.EnableEvents = True

End Sub

[ابو تميم]

استاذنا القدير اخ ابو نصار

فعلا كود رهيب جدا

جزاك الله خيرا

[ابو تميم]

وبما أن الموضوع لا زال مفتوحا

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

أي أنه عند تغيير وتصغير أو تكبير دقة العرض فإن الفورم إما يبتعد كثيرا عن زر الماكرو الذي يشغله وإذا قمنا بتصغير الشاشة وتقليل دقة العرض يختفي الفورم كاملا ولا يظهر

هل يمكن عمل كود يبقي الفورم فوق زر الماكرو دوما مهما اختلف حجم الشاشة

شكرا للجميع على التعاون

تغيير طول الفورم بحسب حجم دقة عرض الشاشة.rar

[ابو تميم]

السؤال قائم مع تعديل بسيط في المشاركة رقم ₆

_{شكرا للجميع}

[محمد يحياوي]

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

[ابو تميم]

في الرفقات صورتين

الصورة الاولى دقة العرض 1366×768 توضح وجود الفورم فوق الزر وهو المطلوب

الصورة الثانية دقة العرض 1024×768 توضح عدم ظهور الفورم في الشكل بسبب وجوده في المكان الأصلي الذي تم ضبطه فيه على دقة العرض الأصلية 1366

المطلوب هو أن لا يتأثر مكان ظهور الفورم في الملف باختلاف دقة شاشة العرض ونقل الملف من جهاز إلى جهاز آخر

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

وشكرا للجميع

[محمد يحياوي]

الاخ الكريم يمكنك التحكم بالفورم عن طريق الخصائص من القيمتين left و Top لكن نظام التشغيل عندك انجليزي و الورقة من اليمين الى اليسار يعني عند تحويل دقة الشاشة يكون يسار الورقة مغلقا ام يمينها يكون مفتوحا بحيث يختفي الفورم لو جربنا العكس

مثلا اختر الورقة من اليسار الى اليمين و جرب ضع الخاصية Left = 15 ستلاحظ ان الفورم لا يتغير مكانه بتغير دقة الشاشة و هذا في جميع الاجهزة و الله اعلم

[ابو تميم]

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

ولذلك أنا أبحث عن طريقة لتثبيت مكان الفورم على نفس اتجاه الصفحة

شكرا جزيلا

[ابو تميم]

السؤال عالق

هل من إجابة