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

الفرمة مش راية تتظبط في عرضها مع الميدي فورم

مغلق
بدأه sameh_ibm في 14 يوليو 2006 · 4 رد · 497 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

يا جماعة انا عندي مشروعي عبارة عن 22 فورم وفي ميدي فورم وكل الفرم دي ميدشيلد للميدي فورم وكنت عامل في خصائص الفرم انها تظهر في وسط الشاشة وده بيحصل فعلا بس دلوقتي بعد ما خليت كل الفرم بتاع المشروع ميد شيلد للميدي فورم الوضع اختلف تمام واصبح بيعترض علي عرض الفرمة في منتصف الشاشة وبيديني رسالة ان الفرمة مش هتنفع تتعرض كدة فدلوقتي انا عندي مشكلة ازاي اعرض الفرم دلوقتي بطريقة مظبوطة مع العم اني مستخدم علي الميدي فورم دي شريط قوائم وشريط ادوات toolbar وكمان شريط حالة Statusbar بس هو ده سؤالي ياريت لو حد عنده الإجابة يساعدني واكون شاكر ليه جدا واحب انوه عن حاجة انا عاوز اعرض الفرم في السماحة الخالية اللي بين التول بار وشريط الحالة يعني في النص برده بس بينهم ومتبقاش مدارية علي اي اداة انا مستخدمها وشكرا في انتظار الرد

سلامو عليكم

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#2

ما في حد عنده اجابة لسؤالي يا جماعة ؟ ارجوكم مساعدة

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#3

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

طيب ليه ما تتعرف على عرض وارتفاع الشاشة ، ثم تنقص منها عرض وارتفاع النموذج

مثلا الشاشة ارتفاعها 600 والنموذج ارتفاعه 450

600-450 = 150

بعدها نقسم 150 على 2 يصبح 75 وبذلك اجعل الـTOP للفورم 75

وهكذا اعمل مع العرض

460.gif

#4

مش فاهم يا باشا والله دي تتعمل ازاي بالكود انا غارف االي انت باقول عليع ده بالنسبة للإرتفاع والطول بس دي اترجمها للكود ازاي ؟

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#5

هذا الكود عملته لتوسيط النموذج داخل الشاشة

Private Sub Form_Load()
Dim SrcWidth, SrcHeight, FrmWidth, FrmHeight As Integer

SrcWidth = Screen.Width
SrcHeight = Screen.Height
FrmWidth = Me.Width
FrmHeight = Me.Height

topform = (SrcHeight - FrmHeight) / 2
leftform = (SrcWidth - FrmWidth) / 2


Me.Top = topform
Me.Left = leftform
End Sub

والله الموفق

460.gif

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

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

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

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

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

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