جديد التحكم بحجم الفورم

[الجموعي]

بسم الله الرحمن الرحيم

الاخوه الكرام

بعد فترة انقطاع عن المنتدى بسبب الظروف وبعودتي الميمونة  

 احببت أقدم لكم اليوم بمشيئة الله

درس حول التحكم بحجم الفورم

=====================================

الأدوات

=====================================

تكست بوكس/TextBox

ليبل/Lebel

 

أو أيقونات كما في الصورة

  

 

zoom_in

  

zoom_out

 

=====================================

الكود البرمجي

=====================================

 

'====================================================
Private Sub UserForm_Initialize()
Dim i As String
i = Me.TextBox.Value
If i <= 0 Or i = "" Or Not IsNumeric(i) Then i = 100
Me.Zoom = i
Me.Width = 712.5 * i / 100
Me.Height = 579.75 * i / 100
End Sub
'====================================================

Private Sub zoom_out_Click()
If Me.Zoom <= 80 Then Exit Sub
j -10
End Sub
'====================================================

Private Sub zoom_in_Click()
j 10
End Sub
'====================================================

Private Sub j(ByVal s)
Me.Zoom = Me.Zoom + s
Me.Width = 712.5 * Me.Zoom / 100
Me.Height = 579.75 * Me.Zoom / 100
Me.TextBox.Value = Me.Zoom
End Sub
'====================================================

وفي الاخير أتمنى الفكرة نالت إعجابكم

في إنتظار تجربتكم

التحكم بحجم الفورم.rar

 

[أبوبسمله]

حمدالله على السلامه

نورت بيتك ومطرحك التانى اوفيسنا ان شاء الله تنورنا دايما

وهديه مقبوله من اخ فاضل

ممكن تقبل رخامة اخوك الصغير وتشرحلنا الكود بالراحه حتى نفهم ونتعلم

جزاك الله خيرا

تم تعديل مارس 17, 2016 بواسطه أحمد الفلاحجى

[خالد الشاعر]

استاذ الجموعى

الملف عندى عند فتحة يعطى مشكلة فى اكسل

[ياسر خليل أبو البراء]

أخي وحبيبي الجموعي

لكم افتقدتك الآونة الأخيرة .. عوداً حميداً يا رجل ولا تحرمنا من تواجدك معنا فنحن أخوة ونشتاق لإخواننا فلا تحرمنا من رؤياك ولو لدقائق كل يوم

مشكور على الهدية القيمة والرائعة

تقبل وافر تقديري واحترامي

 

[أبو قاسم]

السلام عليكم 

الملف لايعمل يهنج عند الفتح لو فية تعديل