تخصيص الوان لخلفية و عناصر عنصر التحكم TreeView

إرسال مساهمة في موضوع

اذهب الى الأسفل

تخصيص الوان لخلفية و عناصر عنصر التحكم TreeView

مُساهمة من طرف جورج صبحى في الجمعة نوفمبر 02, 2018 9:15 am

مقال اليوم عن كيفية استخدام وظائف 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
avatar
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 114
النقاط : 242
التقيم : 4
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى