إعـــــــلان

**عبود عبود عبود عبود** · 29-03-2017, 01:53 AM

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

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

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

**فرح صالحي فرح صالحي** · 29-03-2017, 01:15 PM

انت مختص في الفيجوال بيسك
مجرد محاكاة للكود وتصل الى الحل

كود:

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-03-2017, 01:59 PM

المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة

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

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

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

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

شكرا أستاذ

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-03-2017, 02:02 PM

المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة

انت مختص في الفيجوال بيسك
مجرد محاكاة للكود وتصل الى الحل

كود:

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

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

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

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك