السلام عليكم ورحمة الله
إخواني وأخواتي الكرام في قسم الأكسيس بمنتديات الفريق العربي
أقدم لكم اليوم خلاصة تجربة في مجال التحكم بعناصر التحكم على
النموذج من حيث اللون والخط نوعا وحجما .. وايضا لون عنصر التحكم
نفسه .. ميزة هذا الكود انه صالح لجميع عناصر التحكم في غير تكرار
اي أننا هنا لن نشير الى أي عنصر تحكم أنما التغيير بحسب التضمين في الكود
لأريد الاطالة .. الصورة أبلغ .. والكود قصير لكنه مفيد جدا لهواة التلاعب في
تصميم الالوان والخطوط على النماذج .
أترككم مع الصور
=======================
=======================
=======================
======================
======================
وهذا هو كود الإجراء
Public Sub EkCtrControl(frm As Form) On Error Resume Next Dim EkCtr As Control For Each EkCtr In frm If TypeOf EkCtr Is TextBox Then EkCtr.ForeColor = Me.m EkCtr.FontSize = Me.S EkCtr.FontName = Me.F EkCtr.BackColor = Me.BF If TypeOf EkCtr Is CommandButton Then EkCtr.ForeColor = Me.m EkCtr.FontSize = Me.S EkCtr.FontName = Me.F If TypeOf EkCtr Is Label Then EkCtr.ForeColor = Me.m EkCtr.FontSize = Me.S EkCtr.FontName = Me.F EkCtr.BackColor = Me.BF If TypeOf EkCtr Is ListBox Then EkCtr.ForeColor = Me.m EkCtr.FontSize = Me.S EkCtr.FontName = Me.F EkCtr.BackColor = Me.BF Next EkCtr End Sub
أرجو من الله تعالى أن يكون فيه الفائدة لكل من تصفحه أو أطلع عليه وأن لايحرمنا أجره
أخوكم : اكسيرالحياة




