انا بحاجه لكود الدي يقوم بتسويه مساحه الفورم مع مساحه الشاشه بحيت استطيع نقل البرنامج الى اجهزه مع مساحات مختلفه للشاشات .
كيفيه تسويه مساحه الفورم مع مساحه الشاشه
مغلق
الأخ العزيز
أرفق لك برنامج يكبر الشاشة على مساحة 800 * 600 وبعد إنهاء من البرنامج يستعيد
مساحة الشاشة السابقة بحيث يعيدها إلى وضعها السابق .
أرجو أن أكون وفقت في حل مشكلتك .
مرفق مع البرنامج الأداة .
تم تعديل هذه المشاركة بواسطة أبو عبير 2005 في 29 أكتوبر 2004 في 21:33
الأخ العزيز
أرفق لك برنامج يقوم بتكبير الشاشة إلى مساحة 800 * 600
وبعد إنهاء البرنامج يقوم بإعادة وضع المساحة السابقة للشاشة .
أرجو أن أكون وفقت في حل مشكلتك .
السلام عليكم ورحمة الله وبركاتة
الأمر بسيط:
Me.width=Screen.width
Me.height=screen.height
Me.top=0
me.left=0
حيث ان الكائن Screen هو شاشة الجهاز
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
السلام عليكم
نصيحة مجرب ، اولا مع أختلاف احجام الشاشات واقصد هنا دقة الشاشة ، فمن الطبيعي تغير شكل برنامجك بشكل غير مقبول ،، ولكن هناك حل جربته اكثر من مرة ، وهو :
ان تضع كافة أدوات العمل علي كائن إطار Frame او كائن صورة Picture وأن تقوم بعمل توسيط لهذا الاطار داخل الشاشة بعد فحص دقة الشاشة لديك .
لفحص دقة الشاشة اتبع الكود البسيط التالي :
Dim ScrWidth, Scrheight As Long ScrWidth = Screen.Width / 15 Scrheight = Screen.Height / 15 MsgBox "Width : " & ScrWidth & " Height : " & Scrheight
تحياتي لكم
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
أظن أن الكود الذي سأضعه هو أفضل كود في هذه الأكواد واللي يجرب مايخسر
Me.WindowState = 2 - Maximize
هذا في حالة التكبير أما في حالة رجوعها إلى الأصل
Me.WindowState = 0 - Normal
مارأيك في هذا الكود؟
طبعا ستحتاج إلى ضبط حجم الأدوات كيف؟
يجب عليك أن تأتي بالنسبة بين عرض الفورم في حالته الأولى وعرضه بعد التكبير وطوله في الحالة الأولى وطولة بعد التكبير ثم تجعل عرض الأداوات يساوي عرضها في الحالة الأولى مقسوماً على نسبة العرض وهكذا بالنسبة للطول
وإليك ما أقصد في الملف المرفق
تم تعديل هذه المشاركة بواسطة بلال حمدي في 31 أكتوبر 2004 في 07:39
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subهذا الموضوع مغلق.