تحية طيبة اخي اسلام
بداية احرجني قسمك عليي فانا اخذت هذا المثال من احد الاصدقاء في المنتدى و لم ابحث فيه كثيرا
بالنسبة الى الاستخدام
استورد الى برنامج كافة الوحدات النمطية للفئة ( كلاس موديول Class module )
انشئ نموذج جديد في طريقة ورقة البيانات
في قسم التصريحات اكتب هذا الكود
Private clsFreeze As clsFreezeColumnWidths
في حدث ( عند التحميل ) للنموذج اكتب هذا الكود
Set clsFreeze = New clsFreezeColumnWidths
' Call the Setup method
clsFreeze.SetupFreeze Me
في حدث (عند تحريك الماوس ) اكتب هذا الكود
clsFreeze.ResetAllColumnWidths Me
في حدث ( عند الغاء التحميل ) اكتب هذا الكود
Set clsFreeze = Nothing
اجريت تعديلا بسيطا للوحددات النمطية لتثبيت ارتفاع الاعمدة
كل ما عليك فعله هو اختيار القيمة المناسبة لك
هذه القيمة تجدها في الوحدة النمطية ( clsFreezeColumnWidths ) ضمن الكودين ( ResetAllColumnWidths ) و ( SetupFreeze )
اسم الكود frm.RowHeight
القيمة الافتراضية لارتفاع الحقل هي ( 230 ) غيرها كما يناسبك ( طبعا يجب تغييرها ضمن هذين الكودين معا )
والمرفق سيشرح افضل مني واي استفسار انا بخدمتك
db2.rar