نطاق دينامكى للفريم

[عمر الجزاوى]

السلام عليكم ورحمة الله وبركاته بعد اذنكم ممكن عمل نطاق دينامكى للفريم الموجود في اليوزر فور عند الضغط الليست بوكس 1 يدرج الصنف الى الليست بوكس 2 المطلوب كلما دخل صنف داخل الليست بوكس يتسع الليست والفريم حتى يأخذ 10 أصناف ويتم عمل إزاحة لليبل الخاص بعدد الاصناف والاجمالى والخصم وزر الطباعة مثل الموجود فى الصورة وجزاكم الله خير

المصنف1.xlsm

[احمد عبدالحليم]

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

ضع هذا قبل اخر End If

Me.Frame1.Height = Me.Frame1.Height + 14
Me.ListBox2.Height = ListBox2.Height + 14
Me.Label8.Top = Me.Frame1.Top + Me.Frame1.Height + 10: Me.Label9.Top = Me.Label8.Top + Me.Label8.Height: Me.Label10.Top = Me.Label9.Top + Me.Label9.Height
Me.TextBox1.Top = Me.Label8.Top: Me.TextBox2.Top = Me.TextBox1.Top + Me.TextBox1.Height: Me.TextBox3.Top = Me.TextBox2.Top + Me.TextBox2.Height
Me.CommandButton1.Top = Me.Label8.Top

 

تم تعديل سبتمبر 23, 2023 بواسطه احمد عبدالحليم

[عمر الجزاوى]

استاذ احمد منذ الوهلة الاولى لرؤيتك ومشاركتك هذا الموضوع ايقنت ات الخير أت لا محالة تقبل وافر تقديرى واحترامى 

اقسم بالله انت عبقرى حققت المطلوب الله يبارك فى حضرتك تبقى معى نقطة واحدة وهى الطباعة ان شاء الله اجهز الشيت الخاصة بنقطة الطباعة واتمنى مشاركتك فى الموضوع وجزاكم الله خير

[عمر الجزاوى]

استاذ احمد السلام عليكم ورحمة الله وبركاته بعد اذنك ياستاذ احمد بعد العمل الفورم بيكبر وبيكبر المطلوب الفريم يقف عند 20 صنف ويخزن  الباقى فى الليست واظهر باقى الاصناف من السكرول بار مثل مافى الصورة 

[احمد عبدالحليم]

قم باضافة التالى

Me.Frame1.Height = Me.Frame1.Height + 14
If Me.Frame1.Height > 365 Then
Me.Frame1.Height = 365
Me.ListBox2.Height = 280
End If

 

[عمر الجزاوى]

انا اتشرفت بردكم الكريم وحلك المبهر بارك الله فيكم استاذنا الفاضل وجعله الله فى ميزان حسناتك