سحب صفحة المشروع في حدود

[ثامر أبو بلقيس]

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

منع لنافذة المشروع من الاختفاء من الشاشة

غير مفهوم طلبي ؟ :
- حبيت نمنع صفحة المشروع عند سحبها من تجاوز حدود شاشة سطح المكتب
أي لما تصل صفحة المشروع عند حدود الشاشة تتوقف و تأبى السحب أكثر
أي تبقى دائما ظاهرة و لا يمكن إخفاء أي جزء منها بالسحب عند أطراف الشاشة
و في كل الاتجاهات مثلا عند وصولها عند شريط المهام " الاسفل" تتوقف عن السحب

معذرة لم أجد طريقة أشرح بها طلبي

ليس بالضرورة كتابة حل فقد تطرح فكرة قابلة للتجسيد

[عبود عبود]

بالنسبة لى كفكرة بسيطة حاضرة الآن

كنت سوف أعتمد على معرفة عرض وإرتفاع المشروع
ومعرفة البوزيشن للشاشة فهى تبدأ من 0 هوريزنال و 0 فيرتيكال طبعا من أعلى اليسار
ومعرفة المقاس المستخدم فى الشاشة 1024 أو غيرة
طبعا ما سبق بالأكواد
وأعتقد هناك علاقة بين البوزيشن سواء X أو Y و المقاس Width أو Hight فكل 1 بوزيشن تعادل 1 من المقاس حسب التحريك فـــ X تساوى العرض يعنى كل تحريك 1 من الـــ X تعادل زيادة أو نقصان فى العرض وهكذا مع الواى والإرتفاع

فبعملية حسابية من خلال تايمر مثلا نستطيع آداء مثل هذة العملية

[فرح صالحي]

انت مختص في الفيجوال بيسك
مجرد محاكاة للكود وتصل الى الحل
Sub InitResizeArray()
Dim i As Integer
On Error Resume Next
ReDim ProportionsArray(0 To Controls.Count - 1)
For i = 0 To Controls.Count - 1
With ProportionsArray(i)
.HeightProportions = Controls(i).Height / ScaleHeight
.WidthProportions = Controls(i).Width / ScaleWidth
.TopProportions = Controls(i).Top / ScaleHeight
.LeftProportions = Controls(i).Left / ScaleWidth
End With
Next i
End Sub

[ثامر أبو بلقيس]

بالنسبة لى كفكرة بسيطة حاضرة الآن

كنت سوف أعتمد على معرفة عرض وإرتفاع المشروع
ومعرفة البوزيشن للشاشة فهى تبدأ من 0 هوريزنال و 0 فيرتيكال طبعا من أعلى اليسار
ومعرفة المقاس المستخدم فى الشاشة 1024 أو غيرة
طبعا ما سبق بالأكواد
وأعتقد هناك علاقة بين البوزيشن سواء X أو Y و المقاس Width أو Hight فكل 1 بوزيشن تعادل 1 من المقاس حسب التحريك فـــ X تساوى العرض يعنى كل تحريك 1 من الـــ X تعادل زيادة أو نقصان فى العرض وهكذا مع الواى والإرتفاع

فبعملية حسابية من خلال تايمر مثلا نستطيع آداء مثل هذة العملية

الفكرة منطقيــــة جدا لكن التنفيذ متاهة في الحسابات

شكرا أستاذ:abc_138:

[ثامر أبو بلقيس]

انت مختص في الفيجوال بيسك
مجرد محاكاة للكود وتصل الى الحل
Sub InitResizeArray()
Dim i As Integer
On Error Resume Next
ReDim ProportionsArray(0 To Controls.Count - 1)
For i = 0 To Controls.Count - 1
With ProportionsArray(i)
.HeightProportions = Controls(i).Height / ScaleHeight
.WidthProportions = Controls(i).Width / ScaleWidth
.TopProportions = Controls(i).Top / ScaleHeight
.LeftProportions = Controls(i).Left / ScaleWidth
End With
Next i
End Sub


من المؤكد أن للمشاركة فائدة لكن جملة " مختص في الفيجوال بيسك " كبيرة شويا عليا

لا لسان و لا أسنان لي في هذه اللغة وربما حتى غيرها مشكور جدا:abc_139: