Private Sub _treelistview_initonalize(ByRef trv As TreeListView) With trv Dim columns() As String = New String() {"Test Item", "횟수", "T/C", "랜덤"} ' TreeListView 컬럼 추가하기 For i As Integer = 0 To columns.Length - 1 If i = 0 Then ' 맨 처음 컬럼은 아이템이 들어가므로 넓어야 함 .Columns.Add(columns(i), 300, Windows.Forms.HorizontalAlignment.Center) Else .Columns.Add(columns(i), 45, Windows.Forms.HorizontalAlignment.Cent..

Private Sub TreeListViewToDataTable(dt As DataTable, ByRef nodes As TreeListNodeCollection) For Each node As TreeListNode In nodes If node.Level = 3 Then Dim fullPath As String = node.FullPath Dim strNodes() As String = fullPath.Split("\") Debug.Print(node.Nodes.Item(0).ToString) For Each s As TreeListNode In node.Nodes dt.Rows.Add(strNodes(0), strNodes(1), strNodes(2), strNodes(3), s.ToString, ..

Private Sub TreeListView_GetAvg(ByRef Trv As TreeListNodeCollection) Dim avgValue As Double Dim row As DataRow() Dim strQuery As String Dim strDepth0 As String : Dim strDepth1 As String : Dim strDepth2 As String : Dim strDepth3 As String For Each p_node As TreeListNode In Trv strDepth0 = p_node.Text strDepth1 = p_node.Nodes.Item(0).Text strDepth2 = p_node.Nodes.Item(0).Nodes.Item(0).Text strDept..

TreeListView Property 변경 AllowDrop = True AllowDefaultDragDrop = True ItemDragEventArgs Private Sub treeView_ItemDarag(sender As Object, e As ItemDragEventArgs) Handles trv_Model.ItemDrag If e.Button = MouseButtons.Left Then DoDragDrop(e.Item, DragDropEffects.Move) End If End Sub ItemDragEventArgs Private Sub Drag_n_Drop_Functions(sender As Object, e As ItemDragEventArgs) Handles trv_Model.ItemD..