وبلاگ رسمی مهدی غلامی میاندهی

من خودم خیلی دنبال این آموزش بودم و میتوانم به جرات بگم که تمام سایت های منبع رو زیر و رو كردم تا اون رو یاد گرفتم. گفتم حالا كه خودم یاد گرفتم به شما هم یاد بدم.

ابتدا یك فرم استاندارد باز كنید و از منوی Project گزینه ی Components… را انتخاب كنید یا این كه دكمه های تركیبی Ctrl+t را بفشارید تا پنجره ی Components باز شود. حالا از لیست ظاهر شده برروی گزینه ی Microsoft Windows Common Controls 6.0 (sp6) كلیك كنید تا تیك آن فعال شود. حالا از جعبه ی ابزار شیء TreeView را به برنامه اضافه كنید.

كار با این كنترل:

شیء TreeView یك متد دارد به نام Nodes كه با استفاده از آن می توان لیست های درختی ساخت و یا آن ها را حذف نمود. برای ساخت لیست درختی به شكل زیر عمل می كنیم:

TreeView1.Nodes.Add , , "Key", "Text"

این دستور باعث ساخته شدن یك شاخه ی اصلی به نام Text و با كلید Key می شود. برای اضافه كردن زیر شاخه به این شاخه هم به شكل زیر عمل می كنیم:

TreeView1.Nodes.Add "Key", tvwChild, "KeyChild", "Child"

شاید در مرحله ی قبل برایتان سؤال شده بود كه كلید دیگر به چه درد می خوره؟ در اینجاست كه كار كلید را می فهمیم. ما با استفاده از كلید شاخه ی Text زیر شاخه ای با عنوان Child به آن اضافه كردیم و اون كلمه ی tvwChild به این معناست كه شاخه ای كه جدیداً وارد كرده ایم به عنوان شاخه ی فرزند یا همان زیر شاخه قرار گیرد.

یك مثال:

یك پروژه ی جدید باز كنید و یك شیء TreeView به آن اضافه كنید و سپس دو منو با نام های AddMain و AddChild به برنامه اضافه كنید و كد زیر را در قسمت جنرال فرمتون كپی كنید.

Private Sub AddChild_Click()
Dim sr As String
sr = InputBox("Enter the new child title", "Add New", "Child(" & Int(Rnd * 100) & ")")
TreeView1.Nodes.Add TreeView1.SelectedItem.Key, tvwChild, sr, sr
End Sub

Private Sub AddMain_Click()
Dim st As String
st = InputBox("Enter the new main title", "Add New", "Main(" & Int(Rnd * 100) & ")")
If st = "" Then Exit Sub
TreeView1.Nodes.Add , , st, st
End Sub

خروجی برنامه به صورت زیر در خواهد آمد.

نکته : برای ایجاد علامت چک باکس کنار گزینه های کنترل TreeView در قسمت Properties این کنترل، خاصیت Checkboxes را برابر با True قرار دهید. برای قرار دادن علامت + () کنار شاخه های اصلی کنترل TreeView در قسمت Properties این شی، خاصیت LineStyle را برابر با tvwRootLines قرار دهید. برای قرار دادن علامت + () کنار زیر شاخه های کنترل TreeView در در قسمت Properties این شی، خاصیت Style را برابر با tvwTreeLinesPlusMinusText قرار دهید.