تم تطوير برنامج VB ليقوم بتشغيل TreeView باستخدام واجهة برمجة التطبيقات (API).
Private Declare Function SendMessage Lib User32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
وظيفة الإعلان الخاص GetWindowLong Lib User32 الاسم المستعار GetWindowLongA (ByVal hWnd As Long، ByVal nIndex As Long) طالما
الإعلان الخاص عن وظيفة SetWindowLong Lib User32 Alias SetWindowLongA (ByVal hWnd As Long، ByVal nIndex As Long، ByVal dwNewLong As Long)
التصميم الخاص GWL_STYLE = -16&
العرض الخاص TVM_SETBKCOLOR = 4381&
العرض الخاص TVM_GETBKCOLOR = 4383&
TVS_HASLINES الخاصة = 2&
خافت frmlastForm كنموذج
نموذج فرعي خاص_تحميل()
خافت nodX كعقدة
تعيين nodX = TreeView1.Nodes.Add(, , R, Root)
تعيين nodX = TreeView1.Nodes.Add(R, tvwChild, C1, Child 1)
تعيين nodX = TreeView1.Nodes.Add(R, tvwChild, C2, Child 2)
تعيين nodX = TreeView1.Nodes.Add(R, tvwChild, C3, Child 3)
تعيين nodX = TreeView1.Nodes.Add(R, tvwChild, C4, Child 4)
nodX.EnsureVisible
TreeView1.style = tvwTreelinesText ' النمط 4.
TreeView1.BorderStyle = vbFixedSingle
نهاية الفرعية
أمر فرعي خاص1_Click()
خافت lngStyle طالما
اتصل بـ SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))
'مرحبا بكم في المنزل
lngStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)
استدعاء SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES)
استدعاء SetWindowLong(TreeView1.hWnd, GWL_STYLE, lngStyle)
نهاية الفرعية
الخيار صريح
وظيفة الإعلان الخاص SendMessage Lib User32 الاسم المستعار SendMessageA (ByVal hWnd As Long، ByVal wMsg As Long، ByVal wParam As Long، lParam As Long)
وظيفة الإعلان الخاص GetWindowLong Lib User32 الاسم المستعار GetWindowLongA (ByVal hWnd As Long، ByVal nIndex As Long) طالما
الإعلان الخاص عن وظيفة SetWindowLong Lib User32 Alias SetWindowLongA (ByVal hWnd As Long، ByVal nIndex As Long، ByVal dwNewLong As Long)
التصميم الخاص GWL_STYLE = -16&
العرض الخاص TVM_SETBKCOLOR = 4381&
العرض الخاص TVM_GETBKCOLOR = 4383&
TVS_HASLINES الخاصة = 2&
نموذج فرعي خاص_تحميل()
العقدة الخافتة كعقدة
خافت ط كعدد صحيح
خافت lStyle طالما
اتصل بـ SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))
lStyle = GetWindowLong(TreeView1.hWnd, GWL_STYLE)
استدعاء SetWindowLong(TreeView1.hWnd, GWL_STYLE, lStyle - TVS_HASLINES)
استدعاء SetWindowLong(TreeView1.hWnd, GWL_STYLE, lStyle)
TreeView1.Style = tvwTreelinesPlusMinusPictureText
TreeView1.BorderStyle = ccFixedSingle
مع TreeView1.Nodes
تعيين العقدة = .Add(, , R, الجذر)
nodex.BackColor = RGB(255, 0, 0)
لأني = 1 إلى 10
تعيين العقدة = .Add(R, tvwChild, C & i, Child & i)
nodex.BackColor = RGB(255, 0, 0)
nodex.EnsureVisible
التالي
نهاية مع
نهاية الفرعية