TreeView - Ağaç Görünümü (v.,basic Kaynak-1)

TreeView - Ağaç Görünümü



Bilgileri ve alt bilgileri dallanarak sistematik bir sekilde gösteren bir liste kutusudur.

Dim dal As Node

Set dal = TreeView1.Nodes.Add(arg1, arg2, arg3, arg4)



arg1 : Yeni düğümün bağlanacağı düğüm

arg2 : Düğüm tipi

tvwChild : Çocuk düğümdür ve bu Visual Basicte parametresi ile belirtilir

tvwFirst : İlişkili düğümle aynı düzeydeki ilk kardeş düğüm

tvwLast : İlişkili düğümle aynı düzeydeki son kardeş düğüm

tvwNext : İlişkili düğümle aynı düzeydeki ve bir sonraki kardeş düğüm

tvwPrevious : İlişkili düğümle aynı düzeydeki ve bir önceki kardeş düğüm

arg3 : Düğüm erişim anahtarı

arg4 : Düğüm adı

EnsureVisible : Oluşturulan ağacı gösterir



Private Sub Form_Load()

Dim noded As Node

Set noded = TreeView1.Nodes.Add(, , , "Lise") ‘ 1. başlık

Set noded = TreeView1.Nodes.Add(1, tvwChild, , "Aşağı Lise")

Set noded = TreeView1.Nodes.Add(1, tvwChild, , "Yukarı Lise")

Set noded = TreeView1.Nodes.Add(2, tvwChild, , "Lise 1")

Set noded = TreeView1.Nodes.Add(2, tvwChild, , "Lise 2")

Set noded = TreeView1.Nodes.Add(2, tvwChild, , "Lise 3")

Set noded = TreeView1.Nodes.Add(3, tvwChild, , "Lise 1")

Set noded = TreeView1.Nodes.Add(3, tvwChild, , "Lise 2")

Set noded = TreeView1.Nodes.Add(3, tvwChild, , "Lise 3")

Set noded = TreeView1.Nodes.Add(, , , "İlkÖğretim") ‘ 2. başlık

noded.EnsureVisible ‘ Tüm ağacı göster

End Sub



Private Sub Form_Load()

Dim nodZ As Node

Set nodZ = TreeView1.Nodes.Add(, , "A", "En Üst", "R1")

Set nodZ = TreeView1.Nodes.Add("A", tvwChild, "B", "Ara", "R2")

Set nodZ = TreeView1.Nodes.Add("B", tvwChild, "C", "En Alt", "R3")

nodX.EnsureVisible

End Sub



Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

Select Case Node.Key

Case "A"

MsgBox "Bu TreeView nesnesindeki en üst bağlantıdır"

Case "B"

MsgBox "A noduna bağlıdır”

Case "C"

MsgBox "B noduna bağlıdır”

End Select

MsgBox "Tıklanan Dal " + Node.Text

End Sub


TreeView - Özellikler


Appearange

BorderStyle

CausesValidation

CheckBoxes

Container

DragIcon

DragMode

DropHighLight

Enabled

Font

FullRowSelect

Height HelpContextID

HideSelection


HotTracking

HWnd

ImageList

Indentation

Index

LabelEdit

Left

LineStyle

Nodes

Object

OleDragMode

OleDropMode

Parent

PathSeparator




Scroll

MouseIcon

MousePointer

Name

SelectedItem

SingleSel

Sorted

Style

TabIndex

TabStop

Tag

ToolTipText

Top

Visible

WhatsThisHelpID

Width



ImageList : TreeView içerisinde görüntülenecek resimlerin saklandığı ImageList


TreeView - Olaylar


AfterLabelEdit

BeforeLabelEdit

Click

Collapse

DblClick

DragDrop

DragOver

Expand




GotFocus

KeyDown

KeyPress

KeyUp

LostFocus

MouseDown

MouseMove

MouseUp




NodeCheck

CodeClick

OleCompleteDrag

OleDragDrop

OleDragOver

OleGiveFeedBack

OleSetData

OleStartDrag

Validate



TreeView - Yöntemler


Drag

GetVisibleCount

HitTest


Move

OleDrag

Refresh


SetFocus

ShowWhatsThis

StartLabelEdit

Zorder