[RaggiTech]

فى المثال المرافق لنا أن عند تحديد عنصر يتم تحديد الصف بالكامل

كيف ذلك ؟


هذا هو المثال المرافق لنا

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rootNode As New TreeNode
Dim childNode1 As New TreeNode
Dim childNode2 As New TreeNode
Dim grandChildNode1 As New TreeNode
Dim grandChildNode2 As New TreeNode
Dim grandChildNode3 As New TreeNode
rootNode.Text = "الجذر الرئيسى"
childNode1.Text = "الأبن1"
childNode2.Text = "الأبن2"
grandChildNode1.Text = "الحفيد1"
grandChildNode2.Text = "الحفيد2"
grandChildNode3.Text = "الحفيد3"
childNode1.Nodes.Add(grandChildNode1)
childNode1.Nodes.Add(grandChildNode2)
childNode2.Nodes.Add(grandChildNode3)
rootNode.Nodes.Add(childNode1)
rootNode.Nodes.Add(childNode2)
TreeView1.Nodes.Add(rootNode)

TreeView1.ExpandAll()

End Sub

لكن بعد أن ننشأه نضع هذا الكود

كود :

TreeView1.ShowLines = False
TreeView1.FullRowSelect = True

فيجب أولاً جعل الخاصية ShowLines = False

ثم بعد ذلك نجعل الخاصية FullRowSelect = True