البحث في الموقع
Showing results for tags 'تكبير عناصر النماذج'.
تم العثور علي 1 نتيجه
-
السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله. من المعروف أنه حين نجعل النموذج في وضعية ملأ الشاشة يزداد حجم النموذج و تبقى العناصر بنفس حجمها السابق مما يجعل شكل النموذج غير لائق نوعا ما. و نستطيع أن نتجاوز هذه المشكلة باستعمال الطريقة التالي: نقوم بإنشاء وحدة نمطية جديدة و نلصق بها الكود التالي: Function salah(frm As Form) On Error Resume Next Dim x, y, x1, y1 As Integer Dim moyH, moyW As Double Dim obj As Control Dim str As String x = frm.InsideHeight 'ارتفاع النموذج قبل التكبير y = frm.InsideWidth ' عرض النموذج قبل التكبير DoCmd.Maximize x1 = frm.InsideHeight 'ارتفاع النموذج بعد التكبير y1 = frm.InsideWidth ' عرض النموذج بعد التكبير moyH = x1 / x 'معامل الإرتفاع moyW = y1 / y ' معامل العرض For Each obj In frm.Controls With obj .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH .FontSize = .FontSize * moyH End With Next End Function و أيضا أضف هذا الكود في حدث عند التحميل للنموذج: salah Me و لا تنسى أن تغير خاصية النموذج منبثق إلى نعم هذه الطريقة سوف تقوم بتكبير النموذج إلى وضعية ملأ الشاشة و تقوم بتكبير عناصر النموذج لملاءمة الوضعية الجديدة لنموذج. و الله هو الموفق. تكبير العناصر مع ملأ الشاشة لنموذج.rar
