jamal2080 قام بنشر مارس 8, 2023 مشاركة قام بنشر مارس 8, 2023 كيفية جعل صفحة عرض مناسبة مع جميع شاشات الحواسيب ضع هاذا التعريف فوق الفروم لود Dim ProportionsArray() As CtrlProportions وفي الفروم لود ضع هاذا الكود Informload() End Sub Private Structure CtrlProportions Dim HeightProportions As Single Dim WidthProportions As Single Dim TopProportions As Single Dim LeftProportions As Single End Structure Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Resizeform() End Sub Sub Informload() On Error Resume Next Application.DoEvents() ReDim ProportionsArray(0 To Controls.Count - 1) For I As Integer = 0 To Controls.Count - 1 With ProportionsArray(I) .HeightProportions = Controls(I).Height / Height .WidthProportions = Controls(I).Width / Width .TopProportions = Controls(I).Top / Height .LeftProportions = Controls(I).Left / Width End With Next End Sub Public Sub Resizeform() On Error Resume Next For I As Integer = 0 To Controls.Count - 1 Controls(I).Left = ProportionsArray(I).LeftProportions * Me.Width Controls(I).Top = ProportionsArray(I).TopProportions * Me.Height Controls(I).Width = ProportionsArray(I).WidthProportions * Me.Width Controls(I).Height = ProportionsArray(I).HeightProportions * Me.Height Next 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر مارس 9, 2023 مشاركة قام بنشر مارس 9, 2023 مشكور اخى الكريم ممكن حضرتك ترفق لنا مثال بارك الله فيك رابط هذا التعليق شارك More sharing options...
qathi قام بنشر مارس 10, 2023 مشاركة قام بنشر مارس 10, 2023 20 ساعات مضت, abouelhassan said: مشكور اخى الكريم ممكن حضرتك ترفق لنا مثال بارك الله فيك اويد كلام اخي أبو الحسن اخي جمال يفضل بأن ترفق الملف 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر مارس 10, 2023 مشاركة قام بنشر مارس 10, 2023 وانا كمان اؤيد كلام الاستاذ/ ابو الحسن 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر مارس 13, 2023 مشاركة قام بنشر مارس 13, 2023 في 9/3/2023 at 23:48, abouelhassan said: ممكن حضرتك ترفق لنا مثال بارك الله فيك تفضل اخي ابو الحسن @abouelhassan هذا مثال لطيف من احد المواقع ولايحتاج لاستدعاء دوال API لكنه يحتاج الى تدريب قليلا لان يحتاج الى التعامل مع ال Tag لكل عنصر موجود في النموذج PDTech_FormResizer_code.rar 2 رابط هذا التعليق شارك More sharing options...
ابو فتحى قام بنشر مارس 13, 2023 مشاركة قام بنشر مارس 13, 2023 ممكن نسخة 2003 من فضلك 1 ساعه مضت, Eng.Qassim said: يحتاج الى التعامل مع ال Tag لكل عنصر موجود في النموذج يعنى ايه ؟ ممكن توضيح ؟ رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر مارس 13, 2023 مشاركة قام بنشر مارس 13, 2023 1 ساعه مضت, ابو فتحى said: ممكن نسخة 2003 من فضلك تفضل..حينما تفتح النماذج ..انظر الى ال Tag لكل عنصر في اعتقادي ..الكود فعال جدا لكن يحتاج الى ممارسة PDTech_FormResizer_code.rar رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر مارس 14, 2023 مشاركة قام بنشر مارس 14, 2023 في 13/3/2023 at 17:42, Eng.Qassim said: تفضل اخي ابو الحسن @abouelhassan هذا مثال لطيف من احد المواقع ولايحتاج لاستدعاء دوال API لكنه يحتاج الى تدريب قليلا لان يحتاج الى التعامل مع ال Tag لكل عنصر موجود في النموذج PDTech_FormResizer_code.rar 55.52 kB · 17 downloads اشكرك اخى مهندس قاسم زادك الله من فضله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان