IntegralUI TreeListView User Guide - Lidor Systems

progressValue = RandomValue(progressValue)
pBar.Value = progressValue
subItem.Control = pBar
Exit Select
Case ColumnContentType.[Custom]
' Create and add a checkbox to the subitem
Dim cBox As New CheckBox()
cBox.Size = New Size(13, 13)
If nodeIndex Mod 3 = 1 Then
cBox.Checked = True
End If
subItem.Controls.Add(cBox)
' Set the image index
Dim imgIndex As Integer = nodeIndex Mod 9
' Create a custom content
Dim content As String = ""
content += "More info"
content += ""
content += ""
' Add the created content to the subitem
subItem.Content = content
Exit Select
Case Else
subItem.Text = ("Item " & sufix) + j.ToString()
Exit Select
End Select
. . .
End Sub
36