Demo entry 6783320

hoi

   

Submitted by anonymous on Feb 07, 2019 at 15:44
Language: VB.net. Code size: 522 Bytes.

Private Sub CreateNoteNodes
	
	'add 10 items, each with a child item
	For i = 1 To 5
		Dim ti As TreeItem
		ti.Initialize("ti", "Item" & i)
		Dim cti As TreeItem
		
		If i = 1 Then
			cti.Initialize("ti", "sample")
			ti.Children.Add(cti) 'add the child
			cti.Initialize("ti", "sample2")
			ti.Children.Add(cti) 'add the child
		Else
			cti.Initialize("ti", "Add item")	
			ti.Children.Add(cti) 'add the child
		End If
		
		tvNoteNodes.Root.Children.Add(ti) 'add the father to the root
	Next

End Sub

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).