درس اختيار الوانك المفضلة بواسطة VBA برمجياً

[SEMO.Pa3x]

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

في الوضع الطبيعي الاكسس يعطينا فقط مجموعة الوان عند تنسيقها في الكود

 

Constant	Value	Description
vbBlack	0x0	Black
vbRed	0xFF	Red
vbGreen	0xFF00	Green
vbYellow	0xFFFF	Yellow
vbBlue	0xFF0000	Blue
vbMagenta	0xFF00FF	Magenta
vbCyan	0xFFFF00	Cyan
vbWhite	0xFFFFFF	White

 

ولكن كثيراً ما نريد ان نقوم بإختيار الواناً غير التي موجودة في الاعلى مثلا اللون الفسفسوري غير موجود في القائمة.

قمنا باخذ قيمة اللون الفسفوري من احد برامج تعديل الصور وليكن مثلا الفوتوشوب

لكن احيانا تواجهنا مشاكل ورسائل مزعجة من الاكسس عند وضع الالوان عن طريق VBA

مثلا انا دائما ماكانت تصادفني رسالة مزعجة Expected Array عندما اقوم بوضع اللون بالصورة الاتية:

 

txt_name.BackColor = RGB(20,30,60)

تظهرلي هذه الرسالة:

 

 

فكرت في تحويل اللون من HEX الى OLE ، وقد تم تغيير اللون بنجاح وبدون اي رسائل خطأ

 

Public Function HEX2OLE(ByVal hexValue As String) As Long

    Dim R, G, B As Long

    If Left(hexValue, 1) = "#" Then hexValue = Replace(hexValue, "#", "")
 
    R = CByte("&H" & Left(hexValue, 2))
    G = CByte("&H" & Mid(hexValue, 3, 2))
    B = CByte("&H" & Mid(hexValue, 5, 2))
 
    HEX2OLE = CLng(R + (G * 256) + (B * 65536))
    
End Function

 

بالتوفيق للجميع.

HEX_2_OLE.accdb

[jjafferr]

وعليكم السلام 🙂

في الواقع هذه ميزات الاكسس ، عندك اكثر من طريقة لعمل اي شيء 🙂

شكرا لك 🙂

 

جعفر

[qathi]

شكرا لك أستاذنا @SEMO.Pa3x على ماتقدمة لنا

قمت بتعديل بسيط حتى يكون اللون ثابت عند تحميل النموذج .. فتم بنجاح

Me.SEMO.BackColor = HEX2OLE("#00838F")

 

بارك الله فيك .. وجزاك الله خيرا

[ابو فتحى]

ممكن نسخة 2003

[king5star]

هيعجبك الموضوع دا #SIMO.Pa3x