الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد كود توسيط الادوات في الفيجوال

مغلق
بدأه همسة حائرة في 27 يناير 2008 · 11 رد · 2,982 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم اخواني خواتي الاعضاء و المشرفين

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

اريد كود توسيط الادوات في الفيجوال

بحيث اني لو فتحت مشروعي على اي جهاز

يظهروا لي في الوسط زي ما اني مرتبتنه

لان اذا شغلته على لابتوب

يختلف تمام اذا شغلته على جهاز مكتبي

ويش الحل ارجوكم ساعدوني في الخطوه

و اجركم على الله

و السلام

#2

قم بتوسيط الفورم بتعديل خاصية Form1.StartUpPosition إلى center screen

ألا بذكر الله تطمئن القلوب

#4

السلام عليكم

مشكورين اخواني

اني حطيت في حدث اللود هذا الكود

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

توسيط الفورم و توسطت الفورم و زبط ويايي بس زي ما قلت اليكم الادوات

في جهازي المكتبي تظهر لي الادوات زي ما اني مرتبتنها

و لمن شغلت البرنامج في جهاز محمول تظهر لي الادوات من الجزء اليسار و الباقي فاضي

طيب اخوي مزمجر رحت الى الخصائص

و تظهر لي هذه الرساله

Invalid property value

طيب لو بكتب في الكود ويش اكتب

اسمحوا لي بتعبكم لاني مبتدئة

اسم الفورم . الخاصيه = القيمة

Form1.StartUpPosition = center screen

؟؟؟؟؟؟؟؟؟؟ كذا اكتب و هل اكتبه في حدث اللود و لا ايش

#5

أسم الأداه . الخاصيه = القيمه

كل أداه لها مجموعه من الخصائص

للتحكم بموقع الأدوات يمكن إستخدام خاصيتي Left للإزاحة الأفقيه من اليسار و الخاصيه Top للإزاحة العمودية من الأعلى .

#6

اخوي

بالصراحه ماني فاهمه عليك

يعني افتح البرنامج في حدث اللود و اكتب ايش

لان كتبت في حدث اللود

Form1.StartUpPosition = centerscreen

يطلع لي غلط في StartUpPosition

لو اكتب هالكود في قسم الجنرال ؟؟

#7

للتوسيط كوديا 

Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
End Sub

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

الضغط على الفورم بالماوس

الذهاب إلى خاصية  StartUpPosition

تغييرها إلى centerscreen

ألا بذكر الله تطمئن القلوب

#8

هذه المشكلة تحدث عند تشغيل البرنامج على دقة شاشة غير التي صمم عليها

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

FreeSize.rar

ResizerXT.rar

Active_Resize.rar

#9

المزمجر اخوي تطلع لي رسالة اذا

غيرت الخصائص الى سكرين سنتر

Invalid property value

النص اللي فوق الرساله اللي تظهر لي

و بالنسبة الى الاخ فيجوال ستديو

لازم شراء و اذا فتحت اي ملف نصي او اي شيء

الكلام مو مفهوم

مشكورين اخواني و في ميزان اعمالكم و ما قصرتوا

و السلام

#10

بالنسبة لرسالة الخطأ فسببها هو انك فعلت خاصية MDIChild للــ Form

اجعل الخاصية MDIChild = False

ألا بذكر الله تطمئن القلوب

#11

إضافة إلى كلام أخي المزمجر

الكود الذي وضعته يقوم (كما هو معلوم) بتوسط الفورم في وسط الشاشة , ولكني حسب مافهمت أنها تريد كودا لتوسيط الأدوات في الفورم

أعتقد ان ذلك ممكن أن يتم بطريقة بسيطه وهي وضع الأدوات وترتيبها في داخل Frame معينه ومن ثم توسيط ال Frame وسط ال Form

بتعديل بسيط على كود الأخ المزمجر

Private Sub Form_Load()
Frame1.Top = (Form1.Height - Frame1.Height) / 2
Frame1.Left = (Form1.Width - Frame1.Width) / 2

End Sub

هذا من وجهة نظري ...

#12

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

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

بالتوفيق

ألا بذكر الله تطمئن القلوب

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…