ابو تميم قام بنشر مارس 18, 2012 مشاركة قام بنشر مارس 18, 2012 تحية للجميع في المف المرفق عندما تكون دقة الشاشة 1024×768 يكون الفورم الظاهر أعلى الملف بعرض الشاشة ويكون من أول الشاشة حتى نهايتها بشكل افقي أعلى الشاشة - الملف ولكن عندما نغير دقة العرض إلى أكبر من ذلك مثلا 1366×768 يكون الفورم يصل إلى منتصف الملف فقط هل يمكن تعديل خصائص الفورم بحيث يتناسب مع حجم ودقة عرض الشاشة بحيث إذا كانت الشاشة 1024× 768 يأخذ حجمها وإذا زادت دقة العرض أو حجم الشاشة يزداد طول افورم أفقيا بحسب الشاشة ولكم جزيل الشكر تغيير طول الفورم بحسب حجم دقة عرض الشاشة.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 18, 2012 مشاركة قام بنشر مارس 18, 2012 وعليكم السلام هل هذا ما تقصد Private Sub UserForm_Initialize() Me.Width = Application.Width Me.Height = Application.Height End Sub رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 18, 2012 الكاتب مشاركة قام بنشر مارس 18, 2012 تماما هذا هو المطلوب جزاك الله خيرا أخي عبد الله باقشير عملت المطلوب وزياده أنا كنت أريد فقط Me.Width = Application.Width ولكنك أكملت معروفك وفصلت أكثر جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مارس 18, 2012 مشاركة قام بنشر مارس 18, 2012 السلام عليكم استخدم هذه الأكواد ومن ضمنها كود الاستاذ القدير خبور خير عملها لإخفاء شريط ابداء عند فتح الفورم وإظهاره عند اغلاق الفورم 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 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 18, 2012 الكاتب مشاركة قام بنشر مارس 18, 2012 استاذنا القدير اخ ابو نصار فعلا كود رهيب جدا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 18, 2012 الكاتب مشاركة قام بنشر مارس 18, 2012 وبما أن الموضوع لا زال مفتوحا أرجو أن يكون هناك كود لفعل نفس المطلوب في الملف المرفق ولكن هنا الموضوع يختلف قليلا فأنا لا أريد أن يكون الفورم في أعلى الملف وإنما أريده أن يظهر مباشرة فوق الزر الموجود في الملف أي أنه عند تغيير وتصغير أو تكبير دقة العرض فإن الفورم إما يبتعد كثيرا عن زر الماكرو الذي يشغله وإذا قمنا بتصغير الشاشة وتقليل دقة العرض يختفي الفورم كاملا ولا يظهر هل يمكن عمل كود يبقي الفورم فوق زر الماكرو دوما مهما اختلف حجم الشاشة شكرا للجميع على التعاون تغيير طول الفورم بحسب حجم دقة عرض الشاشة.rar 1 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 19, 2012 الكاتب مشاركة قام بنشر مارس 19, 2012 السؤال قائم مع تعديل بسيط في المشاركة رقم 6 شكرا للجميع رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 الاخ ابو تميم ارجوا ان توضح اكثر او ارفع صورة بالشكل الذي تريده رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 19, 2012 الكاتب مشاركة قام بنشر مارس 19, 2012 في الرفقات صورتين الصورة الاولى دقة العرض 1366×768 توضح وجود الفورم فوق الزر وهو المطلوب الصورة الثانية دقة العرض 1024×768 توضح عدم ظهور الفورم في الشكل بسبب وجوده في المكان الأصلي الذي تم ضبطه فيه على دقة العرض الأصلية 1366 المطلوب هو أن لا يتأثر مكان ظهور الفورم في الملف باختلاف دقة شاشة العرض ونقل الملف من جهاز إلى جهاز آخر أي أن يبقى الفورم دائما يظهر فوق الزر بشكل دائم أي اننا عندما نضغط على زر الماكرو الذي يقوم بإظهار الفورم يظهر الفورم مباشرة على هذا الزر ويغطيه أي يكون الفورم أمام الزر كما في الشكل الأول وشكرا للجميع رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 الاخ الكريم يمكنك التحكم بالفورم عن طريق الخصائص من القيمتين left و Top لكن نظام التشغيل عندك انجليزي و الورقة من اليمين الى اليسار يعني عند تحويل دقة الشاشة يكون يسار الورقة مغلقا ام يمينها يكون مفتوحا بحيث يختفي الفورم لو جربنا العكس مثلا اختر الورقة من اليسار الى اليمين و جرب ضع الخاصية Left = 15 ستلاحظ ان الفورم لا يتغير مكانه بتغير دقة الشاشة و هذا في جميع الاجهزة و الله اعلم رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 19, 2012 الكاتب مشاركة قام بنشر مارس 19, 2012 كلامك صحيح أخي محمد يحياوي وأنا فكرت بنفس التفكير و وصلت إلى نفس النتيجة ولكن ملف العمل عندي اتجاه الصفحة من اليمين إلى اليسار لا يمكنني تغييره الى غير ذلك لأنه سيتم قلب جميع البيانات والأعمدة وبالتالي سوف لن يتم العمل بالشكل المطلوب لأن جميع التقارير سوف تكون مقلوبة وغير ملائمة ولذلك أنا أبحث عن طريقة لتثبيت مكان الفورم على نفس اتجاه الصفحة شكرا جزيلا رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 19, 2012 الكاتب مشاركة قام بنشر مارس 19, 2012 السؤال عالق هل من إجابة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان