685:
|
Type of wraps the cell's caption support (Sample 2)

With Extree1
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns
With .Add("Single-Line (exCaptionSingleLine)")
.Width = 96
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,-1)
End With
With .Add("Word-Wrap (exCaptionWordWrap)")
.Width = 96
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,0)
.FormatColumn = "%0"
End With
With .Add("Break-Wrap (exCaptionBreakWrap)")
.Width = 96
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,1)
.FormatColumn = "%0"
End With
End With
With .Items
.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
End With
.EndUpdate()
End With
|
684:
|
Type of wraps the cell's caption support (Sample 1)

Dim h
With Extree1
.BeginUpdate()
.HeaderSingleLine = False
.HeaderHeight = 36
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionWordWrap)
h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
End With
.EndUpdate()
End With
|
683:
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

With Extree1
.BeginUpdate()
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
.Columns.Add("Default").Width = 128
With .Items
.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXTREELib.CellSingleLineEnum.exCaptionBreakWrap)
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
|
682:
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

With Extree1
.BeginUpdate()
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exRowLines
.ColumnAutoResize = False
.ScrollBySingleLine = True
With .Columns.Add("Default")
.Width = 128
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,1)
End With
With .Items
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
End With
.EndUpdate()
End With
|
681:
|
How can I change the visual appearance/color of the Filter For ... field

Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.BackColorHeader = Color.FromArgb(1,0,0)
.ForeColorHeader = Color.FromArgb(255,255,255)
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,Color.FromArgb(240,240,240))
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Bump
With .Columns.Add("Items")
.FilterOnType = True
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exNoItems
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
End With
.EndUpdate()
End With
|
680:
|
How can I display the cell's caption without spaces on both sides

With Extree1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
End With
With .Items
.AddItem("")
.AddItem("Item A")
.AddItem(" Item B")
.AddItem(" Item C ")
End With
.EndUpdate()
End With
|
679:
|
How can I highlight the spaces within the column (sample 2)

With Extree1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
End With
With .Items
.AddItem("")
.AddItem("Item A")
.AddItem(" Item B")
.AddItem(" Item C ")
End With
.EndUpdate()
End With
|
678:
|
How can I highlight the spaces within the column (sample 1)

With Extree1
.BeginUpdate()
.ColumnAutoResize = True
With .Columns.Add("Default")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
End With
With .Items
.AddItem("")
.AddItem("Item A")
.AddItem(" Item B")
.AddItem(" Item C ")
End With
.EndUpdate()
End With
|
677:
|
How can I change the visual aspect of the drop down filter-calendar

With Extree1
.BeginUpdate()
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateScrollRange,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateHeader,.get_Background(exontrol.EXTREELib.BackgroundPartEnum.exBackColorFilter))
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(128,128,128))
With .Columns.Add("Date")
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exDate
.DisplayFilterButton = True
.DisplayFilterDate = True
.DisplayFilterPattern = False
End With
.EndUpdate()
End With
|
676:
|
Export Data in HTML format

Dim h,sFile
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.BackColorAlternate = Color.FromArgb(240,240,240)
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = &Ha13
.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
With .ConditionalFormats
.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
With .Add("%0 like `*child*`","child")
.ForeColor = Color.FromArgb(255,128,128)
.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
End With
With .Add("%0 like `*B*`","b")
.ForeColor = Color.FromArgb(0,0,255)
.Bold = True
.Italic = True
.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
End With
End With
With .Columns
With .Add("Value")
.Width = 128
.HTMLCaption = "<b>VA</b><r>sko"
End With
With .Add("APos")
.FormatColumn = "0 apos ``"
.AllowSort = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
.Position = 0
End With
With .Add("RPos")
.FormatColumn = "0 rpos ``"
.AllowSort = False
.Position = 1
End With
With .Add("Index")
.FormatColumn = "0 index ``"
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
.Position = 2
End With
With .Add("Data 1")
.FormatColumn = "0 index `A-Z`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Data 2")
.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
End With
With .Add("Data 3")
.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
End With
End With
With .Items
h = .AddItem("ParentA")
.InsertItem(h,,"Child A")
.InsertItem(h,,"Child B")
.set_CellState(h,4,1)
.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
.set_ExpandItem(h,True)
.AddItem("Item A")
h = .AddItem("ParentB")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
.set_CellState(h,5,1)
.AddItem("Item B")
.AddItem("Item C")
.AddItem("Item D")
.set_ExpandItem(h,True)
End With
.EndUpdate()
sFile = "c:/temp/export.html"
.Export(sFile,"vis")
With New SHDocVw.ShellBrowserWindow()
.Navigate2(sFile)
End With
End With
|
675:
|
Export Data in CSV format

Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.BackColorAlternate = Color.FromArgb(240,240,240)
.DrawGridLines = exontrol.EXTREELib.GridLinesEnum.exAllLines
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = &Ha13
.FilterBarPromptType = exontrol.EXTREELib.FilterPromptEnum.exFilterPromptContainsAny
With .ConditionalFormats
.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
With .Add("%0 like `*child*`","child")
.ForeColor = Color.FromArgb(255,128,128)
.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
End With
With .Add("%0 like `*B*`","b")
.ForeColor = Color.FromArgb(0,0,255)
.Bold = True
.Italic = True
.ApplyTo = exontrol.EXTREELib.FormatApplyToEnum.exFormatToColumns
End With
End With
With .Columns
With .Add("Value")
.Width = 128
.HTMLCaption = "<b>VA</b><r>sko"
End With
With .Add("APos")
.FormatColumn = "0 apos ``"
.AllowSort = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellBackColor,15790320)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
.Position = 0
End With
With .Add("RPos")
.FormatColumn = "0 rpos ``"
.AllowSort = False
.Position = 1
End With
With .Add("Index")
.FormatColumn = "0 index ``"
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowCheckBox
.Position = 2
End With
With .Add("Data 1")
.FormatColumn = "0 index `A-Z`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Data 2")
.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellSingleLine,False)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
End With
With .Add("Data 3")
.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
End With
End With
With .Items
h = .AddItem("ParentA")
.InsertItem(h,,"Child A")
.InsertItem(h,,"Child B")
.set_CellState(h,4,1)
.set_CellBackColor(.InsertItem(h,,"Child C"),5,Color.FromArgb(0,255,0))
.set_ExpandItem(h,True)
.AddItem("Item A")
h = .AddItem("ParentB")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_CellBackColor(.InsertItem(h,,"Child 3"),5,Color.FromArgb(0,255,0))
.set_CellState(h,5,1)
.AddItem("Item B")
.AddItem("Item C")
.AddItem("Item D")
.set_ExpandItem(h,True)
End With
.EndUpdate()
Debug.Print( .Export("","vis") )
End With
|
674:
|
Is it possible to check multiple-items at once

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim bHasParent
With Extree1
bHasParent = .FormatABC("value != 0",.Items.get_ItemParent(Item))
With .Items
.set_CellHasCheckBox(Item,0,False)
End With
End With
End Sub
Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
End With
.HeaderVisible = True
.SingleSel = False
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
hChild = .InsertItem(h,,"Task 2")
hChild = .InsertItem(h,,"Task 3")
.set_ExpandItem(h,True)
.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,1)
.set_CellCaption(.get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.TopAlignment,0),0,"<c>Select multiple items and press the <b>SPACE</b> key")
End With
.EndUpdate()
End With
|
673:
|
How can I get the icon from the cell when using the Items.CellImages property (icon index)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extree1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extree1.MouseMoveEvent
Dim c,hit,i
With Extree1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,.Items.get_CellImages(i,c)) )
End With
End Sub
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Default")
With .Items
.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
.set_CellImages(.AddItem("Item 2"),0,"2,3")
.set_CellImages(.AddItem("Item 3"),0,"2,")
End With
.EndUpdate()
End With
|
672:
|
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Extree1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Extree1.MouseMoveEvent
Dim c,hit,i
With Extree1
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
End With
End Sub
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Columns.Add("Default")
With .Items
.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
.set_CellImages(.AddItem("Item 2"),0,"2,3")
.set_CellImages(.AddItem("Item 3"),0,"2")
End With
.EndUpdate()
End With
|
671:
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

With Extree1
.BeginUpdate()
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.Etched
With .Columns
.Add("Column 1")
.Add("Column 2")
.Add("Column 3")
End With
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
.Add(2,"CP:1 0 -36 0 0")
End With
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
.EndUpdate()
End With
|
670:
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

With Extree1
.BeginUpdate()
.ColumnAutoResize = True
.DefaultItemHeight = 20
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
With .Columns.Add("Default")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("Position")
.FormatColumn = "1 rindex ``"
.Visible = False
End With
With .ConditionalFormats.Add("%C1 mod 2")
.BackColor32 = &H1000000
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
.AddItem("Item 4")
End With
.EndUpdate()
End With
|
669:
|
How can I specify alternate background colors for each root item, similar with BackColorAlternate

Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Default")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("Position")
.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
.Visible = False
End With
With .ConditionalFormats.Add("%C1 mod 2")
.BackColor = Color.FromArgb(240,240,240)
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
h = .AddItem("Root 3")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
End With
.EndUpdate()
End With
|
668:
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
With Extree1
.Columns.Add("ColumnName").Caption = "NewName"
.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With
|
667:
|
FilterBarCaption ALL Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
666:
|
FilterBarCaption ALL Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "all"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
665:
|
FilterBarCaption ALLUI Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
664:
|
FilterBarCaption ALLUI Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "allui"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
663:
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
662:
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Extree1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AddItem
Dim i
With Extree1
i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
.Items.set_CellImage(Item,3,i)
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exImage
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
h = .AddItem("Item B")
.set_CellCaption(h,1,"Sub-Item B")
.set_CellState(h,2,1)
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value + ` ` + available"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.Columns.Item(2).Filter = 1
.ApplyFilter()
.EndUpdate()
End With
|
661:
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

With Extree1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
660:
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

With Extree1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.FilterBarFont = .Font
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
659:
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

With Extree1
.BeginUpdate()
With .Columns.Add("Col-1")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Col-2")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
End With
.set_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXTREELib.DescriptionTypeEnum.exFilterBarAnd)))
.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarToggle
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
With .Columns.Item(1)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exPattern
.Filter = "*B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
658:
|
Is it possible to automatically displays the control's filter label to the right

With Extree1
.BeginUpdate()
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = &H500
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
657:
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)

With Extree1
.BeginUpdate()
With .Columns.Add("Item")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowExclude Or exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsAsc
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
.FilterBarPromptVisible = &He07
.EndUpdate()
End With
|
656:
|
How can I get the number of results being shown in the control's filter bar (sample 3)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
.FilterBarPromptVisible = &H807
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
655:
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = &H817
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
654:
|
How can I get the number of results being shown in the control's filter bar (sample 1)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = &H7
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
653:
|
FilterBarCaption Predefined Keywords

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Extree1_AfterExpandItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Extree1.AfterExpandItem
With Extree1
.Refresh()
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Check")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exCheck
End With
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
h = .AddItem("Item B")
.set_CellState(.InsertItem(h,,"Sub-Item B1"),1,1)
.InsertItem(h,,"Sub-Item B2")
.set_ExpandItem(h,True)
.AddItem("Item C")
End With
.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exItemsWithChilds
.FilterBarFont = .Font
.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = &H7
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
652:
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarFont = .Font
.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = &H813
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
651:
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = &H501
.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
.EndUpdate()
End With
|
650:
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

With Extree1
.BeginUpdate()
.RightToLeft = True
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = &H101
.EndUpdate()
End With
|
649:
|
How can I change the visual appearance of the filter bar's close button (EBN)

With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = &H101
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
.EndUpdate()
End With
|
648:
|
How can I change the visual appearance of the filter bar's close button (solid)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
.EndUpdate()
End With
|
647:
|
Is it possible to prevent definitely showing the filter bar's close button

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exFooterFilterBarButton,-1)
.EndUpdate()
End With
|
646:
|
Is it possible to show the close button only if there is a filter applied

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = &H201
.EndUpdate()
End With
|
645:
|
The control's filter bar is not closed once I click the close button (toggle)

Dim h
With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
.set_LockedItemCount(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,1)
h = .get_LockedItem(exontrol.EXTREELib.VAlignmentEnum.BottomAlignment,0)
.set_ItemDivider(h,0)
.set_CellCaption(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
End With
.FilterBarCaption = "`<r><fgcolor=808080>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = &H913
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
644:
|
How can I display the control's filter on a single line

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
.FilterBarPromptVisible = &H12
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
643:
|
How can I display the control's filter on a single line (prompt-combined)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = &H813
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
642:
|
How can I get the number of results after a filter is applied

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Extree1_Click(ByVal sender As System.Object) Handles Extree1.Click
With Extree1
.ClearFilter()
End With
End Sub
' FilterChange event - Notifies your application that the filter is changed.
Private Sub Extree1_FilterChange(ByVal sender As System.Object) Handles Extree1.FilterChange
With Extree1
Debug.Print( "Items.MatchItemCount" )
Debug.Print( .Items.MatchItemCount )
Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
End With
End Sub
With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "Item"
.EndUpdate()
End With
|
641:
|
How can I programmatically clear the control's filter

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Extree1_Click(ByVal sender As System.Object) Handles Extree1.Click
With Extree1
.ClearFilter()
End With
End Sub
With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "B"
.EndUpdate()
End With
|
640:
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = &H3
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
639:
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "B"
.EndUpdate()
End With
|
638:
|
Is it possible to prevent closing the control's filter bar, so it is always shown

With Extree1
.BeginUpdate()
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
.FilterBarPromptVisible = exontrol.EXTREELib.FilterBarVisibleEnum.exFilterBarVisible
With .Columns.Item(0)
.FilterType = exontrol.EXTREELib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
637:
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
.Columns.Add("Column")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child")
End With
.EndUpdate()
End With
|
636:
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

Dim h
With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
.Add(1,"CP:3 -2 -2 2 2")
.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
.Add(2,"CP:4 -2 -2 2 2")
End With
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exGroupLinesAtRoot
.HasButtons = exontrol.EXTREELib.ExpandButtonEnum.exCustom
.set_HasButtonsCustom(False,16777216)
.set_HasButtonsCustom(True,33554432)
.Columns.Add("Column")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child")
End With
.EndUpdate()
End With
|
635:
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

Dim h
With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"XP:TREEVIEW 2 1")
.Add(2,"XP:TREEVIEW 2 2")
End With
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Column")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child")
End With
.EndUpdate()
End With
|
634:
|
How can I find if the control is running in DPI mode
With Extree1
Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
|
633:
|
How can I change the visual appearance of the +/- buttons (method 1)

Dim h
With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
End With
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
.Columns.Add("Column")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,,"Child")
End With
.EndUpdate()
End With
|
632:
|
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Extree1_SelectionChanged(ByVal sender As System.Object) Handles Extree1.SelectionChanged
With Extree1
Debug.Print( "SelectionChanged" )
End With
End Sub
With Extree1
.BeginUpdate()
.FreezeEvents(True)
.SingleSel = True
.SelectOnRelease = True
.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
With .Items
.AddItem("")
.set_SelectItem(.AddItem(""),True)
.AddItem("")
End With
.FreezeEvents(False)
.EndUpdate()
End With
|
631:
|
Is it possible to select nothing
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Extree1_SelectionChanged(ByVal sender As System.Object) Handles Extree1.SelectionChanged
With Extree1
Debug.Print( "SelectionChanged" )
End With
End Sub
With Extree1
.BeginUpdate()
.FreezeEvents(True)
.AllowSelectNothing = True
.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
With .Items
.AddItem("")
.set_SelectItem(.AddItem(""),True)
.AddItem("")
End With
.FreezeEvents(False)
.EndUpdate()
End With
|
630:
|
How can I specify the color for control's selection when it loses the focus

With Extree1
.BeginUpdate()
With .Columns.Add("")
.AllowSizing = False
.AllowDragging = False
.AllowSort = False
.Width = 24
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasButton,True)
End With
.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
With .Items
.AddItem("")
.set_SelectItem(.AddItem(""),True)
.AddItem("")
End With
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelBackColorHide,Color.FromArgb(196,196,196))
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exSelForeColorHide,Color.FromArgb(0,0,1))
.EndUpdate()
End With
|
629:
|
How can I change the background color for checked items (EBN color, frame)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
With Extree1
.Refresh()
End With
End Sub
Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
.DefaultItemHeight = 22
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
.Add(1,"CP:2 1 1 -1 -1")
End With
With .ConditionalFormats.Add("%CS0 = 1")
.BackColor32 = &H1000000
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
628:
|
How can I change the caption of the checked items (sample 2)

Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
627:
|
How can I change the caption of the checked items (sample 1)

Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellCaptionFormat,1)
.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
626:
|
How can I change the font for the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
With Extree1
.Refresh()
End With
End Sub
Dim f,h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.DefaultItemHeight = 22
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
f = New stdole.StdFont()
With f
.Name = Extree1.Font.Name
.Size = 12
End With
.Font = f
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
625:
|
How can I bold the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
With Extree1
.Refresh()
End With
End Sub
Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.Bold = True
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
624:
|
How can I change the foreground color for checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
With Extree1
.Refresh()
End With
End Sub
Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.ForeColor = Color.FromArgb(255,128,128)
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
623:
|
How can I change the background color for checked items (solid color)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
With Extree1
.Refresh()
End With
End Sub
Dim h,hChild
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
With .Columns.Add("Tasks")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.BackColor = Color.FromArgb(255,128,128)
End With
.HeaderVisible = True
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,,"Task 1")
.set_SelectItem(hChild,True)
hChild = .InsertItem(h,,"Task 2")
.set_CellState(hChild,1)
hChild = .InsertItem(h,,"Task 3")
.set_CellState(hChild,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
622:
|
How can I export the cell's state as well

With Extree1
.BeginUpdate()
With .Columns
.Add("C1").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Add("C2").FormatColumn = "1 index `A-Z`"
.Add("C3").FormatColumn = "100 index ``"
End With
With .Items
.AddItem("Item 1")
.set_CellState(.AddItem("Item 2"),1)
.set_CellState(.AddItem("Item 3"),1)
End With
.EndUpdate()
Debug.Print( "Export CSV Items including Check-State:" )
.BeginUpdate()
With .Columns.Add("Check")
.Position = 0
.FormatColumn = "%CS0"
End With
Debug.Print( .Export("") )
.Columns.Remove("Check")
.EndUpdate()
End With
|
621:
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 2)
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Extree1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Extree1.BeforeExpandItem
With Extree1
Debug.Print( "BeforeExpandItem" )
Debug.Print( Item )
Debug.Print( "ColumnFromPoint" )
Debug.Print( .get_ColumnFromPoint(-1,-1) )
Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
.Items.InsertItem(Item,,"new child")
End With
End Sub
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Items").DisplayFilterButton = True
End With
With .Items
.set_ItemHasChildren(.InsertItem(,,"Group 1"),True)
.set_ItemHasChildren(.InsertItem(,,"Group 2"),True)
End With
.EndUpdate()
End With
|
620:
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 1)
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Extree1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Extree1.BeforeExpandItem
With Extree1
Debug.Print( "BeforeExpandItem" )
Debug.Print( Item )
.Items.InsertItem(Item,,"new child")
End With
End Sub
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns
With .Add("Items")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exRootItems
End With
End With
With .Items
.set_ItemHasChildren(.InsertItem(,,"Group 1"),True)
.set_ItemHasChildren(.InsertItem(,,"Group 2"),True)
End With
.EndUpdate()
End With
|
619:
|
How do I change the drop down filter icon/button (black)

With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
End With
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,-1)
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.None2
.BackColorHeader = Color.FromArgb(0,0,0)
.ForeColorHeader = Color.FromArgb(255,255,255)
.HeaderVisible = True
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
End With
.EndUpdate()
End With
|
618:
|
How do I change the drop down filter icon/button (white)

With Extree1
.BeginUpdate()
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
.Add(1,"CP:2 -14 -4 -2 4")
End With
.set_Background32(exontrol.EXTREELib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
.set_Background(exontrol.EXTREELib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
.HeaderAppearance = exontrol.EXTREELib.AppearanceEnum.None2
.BackColorHeader = Color.FromArgb(255,255,255)
.HeaderVisible = True
.HeaderHeight = 24
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
End With
.EndUpdate()
End With
|
617:
|
Do you have any Fit-To-Page options when printing the control (W x T, Fit-To )

Dim rs
With Extree1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
End With
.DataSource = rs
.EndUpdate()
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage =2 x 1"
.PrintExt = Extree1
.Preview()
End With
End With
|
616:
|
Do you have any Fit-To-Page options when printing the control ( x T, Fit-To Tall )

Dim rs
With Extree1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
End With
.DataSource = rs
.EndUpdate()
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage = x 2"
.PrintExt = Extree1
.Preview()
End With
End With
|
615:
|
Do you have any Fit-To-Page options when printing the control ( W x, Fit-To Wide )

Dim rs
With Extree1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
End With
.DataSource = rs
.EndUpdate()
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage = 2 x"
.PrintExt = Extree1
.Preview()
End With
End With
|
614:
|
Do you have any Fit-To-Page options when printing the control ( percent view, Adjust-To )

Dim rs
With Extree1
.BeginUpdate()
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access2007\sample.accdb",3,3)
End With
.DataSource = rs
.EndUpdate()
' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
With New exontrol.EXPRINTLib.exprint()
.Options = "FitToPage = 50%"
.PrintExt = Extree1
.Preview()
End With
End With
|
613:
|
How do I prevent changing the cell's state ( check-box state )
' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Extree1_CellStateChanging(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewState As Integer) Handles Extree1.CellStateChanging
With Extree1
With .Items
NewState = .get_CellState(Item,ColIndex)
End With
End With
End Sub
Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("P1")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("P2")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,,"Child 1")
.InsertItem(h,,"Child 2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
612:
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
End Sub
Dim h
With Extree1
.BeginUpdate()
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exGroupLinesInsideLeaf
.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
With .Columns.Add("Items")
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("Format")
.FormatColumn = "%CS0"
.Caption = .FormatColumn
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,,"Item 1")
.set_CellState(.InsertItem(h,,"Item 2"),0,1)
.set_CellState(.InsertItem(h,,"Item 3"),0,1)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
611:
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

With Extree1
.BeginUpdate()
.Columns.Add("Items")
With .Columns.Add("Format")
.FormatColumn = "%CD0"
.Caption = .FormatColumn
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
End With
With .Items
.set_CellData(.AddItem("Item 1"),0,1234)
.set_CellData(.AddItem("Item 2"),0,"this is just an user data")
.set_CellData(.AddItem("Item 3"),0,#1/1/2001#)
End With
.EndUpdate()
End With
|
610:
|
How can I use the CellCaption with ConditionalFormat/ComputedField/FormatColumn

Dim h
With Extree1
.BeginUpdate()
.Columns.Add("Items")
With .Columns.Add("Format")
.FormatColumn = "%0"
.Caption = .FormatColumn
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
.Width = 96
.AllowSizing = False
End With
With .Columns.Add("Format")
.FormatColumn = "%C0"
.Caption = .FormatColumn
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor,8421504)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXTREELib.DefColumnEnum.exCellForeColor))
.Width = 96
.AllowSizing = False
End With
With .Items
.AddItem(1)
h = .AddItem(0)
.set_CellCaption(h,0,"<b>HTML</b> Text")
.set_CellCaptionFormat(h,0,exontrol.EXTREELib.CaptionFormatEnum.exHTML)
.AddItem(2)
End With
.EndUpdate()
End With
|
609:
|
Can I display the radio-button with a solid color

With Extree1
.BeginUpdate()
.set_RadioImage(False,32699122)
.set_RadioImage(True,16777216)
.Columns.Add("Check").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasRadioButton,True)
With .Items
.AddItem("Radio 1")
.set_CellState(.AddItem("Radio 2"),0,1)
.AddItem("Radio 1")
End With
.EndUpdate()
End With
|
608:
|
Can I display the check-box with a solid color

With Extree1
.BeginUpdate()
.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Unchecked,32699122)
.set_CheckImage(exontrol.EXTREELib.CheckStateEnum.Checked,16777216)
.Columns.Add("Check").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
With .Items
.AddItem("Check 1")
.set_CellState(.AddItem("Check 2"),0,1)
.AddItem("Check 3")
End With
.EndUpdate()
End With
|
607:
|
Can I display the column's multiple-lines caption vertically oriented (method 2)

With Extree1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add("And others ...")
With .Add("")
.HTMLCaption = "First Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 2
End With
End With
With .Items
.set_CellState(.AddItem("Item 1"),3,1)
.set_CellState(.AddItem("Item 2"),2,1)
.set_CellState(.AddItem("Item 3"),1,1)
End With
.EndUpdate()
End With
|
606:
|
Can I display the column's multiple-lines caption vertically oriented (method 1)

With Extree1
.BeginUpdate()
.HeaderHeight = 48
.HeaderSingleLine = False
.ColumnAutoResize = True
With .Columns
.Add("And others ...")
With .Add("First Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 0
End With
With .Add("Second Column")
.HeaderBold = True
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 1
End With
With .Add("Third Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellPaddingLeft,8)
.Position = 2
End With
End With
With .Items
.set_CellState(.AddItem("Item 1"),3,1)
.set_CellState(.AddItem("Item 2"),2,1)
.set_CellState(.AddItem("Item 3"),1,1)
End With
.EndUpdate()
End With
|
605:
|
Can I display the column's caption vertically oriented (method 2)

With Extree1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add("And others ...")
With .Add("")
.HTMLCaption = "First"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 2
End With
End With
With .Items
.set_CellState(.AddItem("Item 1"),3,1)
.set_CellState(.AddItem("Item 2"),2,1)
.set_CellState(.AddItem("Item 3"),1,1)
End With
.EndUpdate()
End With
|
604:
|
Can I display the column's caption vertically oriented (method 1)

With Extree1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
With .Columns
.Add("And others ...")
With .Add("First")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 0
End With
With .Add("Second")
.HeaderBold = True
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 1
End With
With .Add("Third")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Position = 2
End With
End With
With .Items
.set_CellState(.AddItem("Item 1"),3,1)
.set_CellState(.AddItem("Item 2"),2,1)
.set_CellState(.AddItem("Item 3"),1,1)
End With
.EndUpdate()
End With
|
603:
|
How do I automatically bold items being checked

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Extree1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Extree1.CellStateChanged
End Sub
With Extree1
.BeginUpdate()
.SelBackMode = exontrol.EXTREELib.BackModeEnum.exTransparent
With .ConditionalFormats.Add("%CS0","check")
.Bold = True
End With
.Columns.Add("Items").set_Def(exontrol.EXTREELib.DefColumnEnum.exCellHasCheckBox,True)
.Columns.Add(Extree1.ConditionalFormats.Item("check").Expression).FormatColumn = Extree1.ConditionalFormats.Item("check").Expression
With .Items
.AddItem("Item 1")
.set_CellState(.AddItem("Item 2"),0,1)
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
602:
|
How can I include the child items, when a filter is applied

Dim h0
With Extree1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.MarkSearchColumn = False
.SearchColumnIndex = 1
.Indent = 16
.LinesAtRoot = exontrol.EXTREELib.LinesAtRootEnum.exLinesAtRoot
.FilterBarPromptVisible = True
.FilterBarPromptPattern = "Nancy"
.FilterInclude = exontrol.EXTREELib.FilterIncludeEnum.exItemsWithChilds
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellCaption(h0,1,"Sales Representative")
.set_CellCaption(h0,2,"Seattle")
h0 = .InsertItem(h0,,"Andrew Fuller")
.set_CellCaption(h0,1,"Vice President, Sales")
.set_CellCaption(h0,2,"Tacoma")
h0 = .InsertItem(h0,,"Michael Suyama")
.set_CellCaption(h0,1,"Sales Representative")
.set_CellCaption(h0,2,"London")
h0 = .AddItem("Janet Leverling")
.set_CellCaption(h0,1,"Sales Representative")
.set_CellCaption(h0,2,"Kirkland")
h0 = .InsertItem(h0,,"Margaret Peacock")
.set_CellCaption(h0,1,"Sales Representative")
.set_CellCaption(h0,2,"Redmond")
End With
.ApplyFilter()
.EndUpdate()
End With
|
601:
|
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h
With Extree1
.BeginUpdate()
With .Columns.Add("Date")
.SortType = exontrol.EXTREELib.SortTypeEnum.SortDate
.DisplayFilterButton = True
.DisplayFilterPattern = False
.DisplayFilterDate = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("DateTime")
.SortType = exontrol.EXTREELib.SortTypeEnum.SortDateTime
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("Time")
.SortType = exontrol.EXTREELib.SortTypeEnum.SortTime
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
.FormatColumn = "time(value)"
End With
With .Columns.Add("Numeric")
.SortType = exontrol.EXTREELib.SortTypeEnum.SortNumeric
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
End With
With .Columns.Add("String")
.DisplayFilterButton = True
.FilterList = exontrol.EXTREELib.FilterListEnum.exShowFocusItem Or exontrol.EXTREELib.FilterListEnum.exShowCheckBox Or exontrol.EXTREELib.FilterListEnum.exSortItemsDesc
End With
With .Items
h = .AddItem(#1/27/2010#)
.set_CellCaption(h,1,#1/27/2010 10:00:00 AM#)
.set_CellCaption(h,2,.get_CellCaption(h,1))
.set_CellCaption(h,3,1)
.set_CellCaption(h,4,.get_CellCaption(h,3))
h = .AddItem(#1/27/2011#)
.set_CellCaption(h,1,#1/27/2011 9:00:00 AM#)
.set_CellCaption(h,2,.get_CellCaption(h,1))
.set_CellCaption(h,3,11)
.set_CellCaption(h,4,.get_CellCaption(h,3))
h = .AddItem(#11/2/2010#)
.set_CellCaption(h,1,#11/2/2010 9:00:00 AM#)
.set_CellCaption(h,2,.get_CellCaption(h,1))
.set_CellCaption(h,3,2)
.set_CellCaption(h,4,.get_CellCaption(h,3))
End With
.Columns.Item("DateTime").DisplayFilterDate = False
.EndUpdate()
End With
|