تخصيص الوان لخلفية و عناصر عنصر التحكم TreeView
صفحة 1 من اصل 1 • شاطر
تخصيص الوان لخلفية و عناصر عنصر التحكم TreeView
مقال اليوم عن كيفية استخدام وظائف Api SendMessage لتغير ووضع لون مخصص لخلفية و عناصر شجرة البيانات TreeView ...حيث أن دالة Api التي تقوم بتعيين لون الخلفية إلى TreeView هي SendMessage عن طريق إرسال TVM_SETBKCOLOR كمعلمة
أولا سنقوم بانشاء موديل وكتابة الاكواد التالية به
ثانيا انشاء عنصر التحكم و تطبيق اللون علية
أولا سنقوم بانشاء موديل وكتابة الاكواد التالية به
- الكود:
Option Explicit
' الثوابت ل SendMessage
Private Const TVM_SETBKCOLOR = 4381& 'اللون الافتراضي للخلفية
Private Const TVM_GETBKCOLOR = 4383& 'اللون الافتراضي لعناصر
' SendMessage الاعلان عن
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
'تغير لون خلفية اداة التحكم ان لم يكن موجود يطبق اللون الافتراضي الاخضر الفاتح
Function Cambiar_Color_TreeView(TreeView As TreeView, Color As Long) As Boolean
Cambiar_Color_TreeView = SendMessage(TreeView.hwnd, TVM_SETBKCOLOR, 0, ByVal Color)
End Function
ثانيا انشاء عنصر التحكم و تطبيق اللون علية
- الكود:
Private Sub Form_Load()
Dim nodX As Node
With TreeView1
Set nodX = .Nodes.Add(, , "R", "Root")
Set nodX = .Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = .Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = .Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = .Nodes.Add("R", tvwChild, "C4", "Child 4")
.Style = 7
.BorderStyle = vbFixedSingle
nodX.EnsureVisible
End With
Dim i As Integer
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).BackColor = &HFFC0C0
TreeView1.Nodes(i).ForeColor = vbRed
TreeView1.Font.Bold = True
Next
' يتم إرسال التحكم TReeView واللون
Call Cambiar_Color_TreeView(TreeView1, &HFFC0C0)
End Sub
جورج صبحى- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft