|
1255
|
The Change event is called before changing the value. Is there any event such as Changed that is called after updating the cell's value
' Changed event - Occurs after the user has changed the content of a cell.
Private Sub Exgrid1_Changed(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer) Handles Exgrid1.Changed
With Exgrid1
Debug.Print( .Items.get_CellValue(Item,ColIndex) )
End With
End Sub
With Exgrid1
.BeginUpdate()
.Columns.Add("Edit").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.Items.AddItem("Item 1")
.Items.AddItem("Item 2")
.EndUpdate()
End With
|
|
1254
|
How can I reposition the +/- (expand/collapse) icon to show as "number, icon, text" (sample 2)
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exgrid1.AnchorClick
Dim exp,i
With Exgrid1
i = .FormatABC("int(value)",AnchorID)
With .Items
i = .get_ItemByIndex(i)
exp = .get_ExpandItem(i)
.set_ExpandItem(i,False)
End With
End With
End Sub
Dim h,hRoot
With Exgrid1
.BeginUpdate()
.set_HTMLPicture("expand","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyxgjsRzEKv1TqtXrNbrtfsIAwgASAH" & _
"AGShQwGQzGABUGEzudAqgyWdSmWw2Fw+sABSHI4AGH1XAGAxGAwywlI6eRqjGi1YuaJJEIJUHBPYqSJYKQAwCBDKbBPbncBibrUKQjGLFQo+TBFfR5GaUAR/KbGICyRx" & _
"siCOQClgdJxGoMpkGycpdDqUZ0EoJQJHYVoWCSCA4kEbRlHKRwJiYcYCH0PBNB2JwYCaCRsGcE8LDyfZKg+U59EsAZMlQCgJkcEA9CsywkiKJwiFcIQwEEgI=")
.set_HTMLPicture("collapse","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYU7YQBCooJSAiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzyO13dGEAGYzWcqlWrFarlesA3AGc" & _
"SAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWISpVLiXT5MrxiJyJJEIJUHBPYqSXYOQAgBgAB6jJwufxxX7YYhdYhFCSsSwSC4uMLoQajNJ" & _
"AG8QgZAgSIqGMCwRBkAJDicGwuiMeoHGeaRFlAU5qDwQQ6A+CYnlgPQeisGJfl4AJYhsRISjQYwJHIcpmmALAtlMEpkE4YBREmEpPBAARdicSw8AES5fi+fI5g+PpcAA" & _
"UJKgyCYknaZRrssJIiicIhXCEMBBICA==")
.set_HTMLPicture("empty","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYE7YABNTWRIJiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyy/O13dGEAGYzWcqlWrFarlesA3AGc" & _
"SAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWYSvDpndpkQ9xhRTJJEIJUHBPdqSGIKYAwBgDUpCfytH57FqoVaTKQTGS0DJ6cDBDzOGwIfA" & _
"NHMIxJDmf5CFIAxwA4Q5HEQVJlEWRxnBkMANjsPoqBSEAElkfZ5CMFJMHCC52BALBGjkDpHCuXIAB2bQdEGaQgFIbbLCSIonCIVwhDAQSAg==")
.HeaderVisible = False
.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
.HasButtons = exontrol.EXGRIDLib.ExpandButtonEnum.exNoButtons
.Indent = 12
.DefaultItemHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.GridLineColor = Color.FromArgb(204,204,204)
.ShowFocusRect = False
.ExpandOnDblClick = False
.ExpandOnKeys = False
With .Columns
With .Add("Item")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + (%CC0 ? (`<a ` + (0 index ``) + `>`) :" & _
" ``) + `<img>` + (%CC0 ? (not %CX0 ? `expand` : `collapse`) : `empty`) + `:16</img>` + (%CC0 ? (`</a>`) : ``)) : ``) + ` ` + val" & _
"ue"
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exEditorAdjustPos,"32 4 -4 -4")
End With
End With
End With
With .Items
hRoot = .AddItem("ACME Corporation")
.set_SelectableItem(hRoot,False)
.set_ExpandItem(hRoot,True)
h = .InsertItem(hRoot,Nothing,"Management")
.InsertItem(h,Nothing,"CEO - Alice Brown")
.InsertItem(h,Nothing,"COO - James Lee")
h = .InsertItem(hRoot,Nothing,"HR Department")
.InsertItem(h,Nothing,"Recruiter - Jane Smith")
.InsertItem(h,Nothing,"HR Assistant - Bob Green")
.set_ExpandItem(h,True)
h = .InsertItem(h,Nothing,"Engineering")
.InsertItem(h,Nothing,"Software Team")
h = .InsertItem(h,Nothing,"Lead Developer - Mark H.")
.InsertItem(h,Nothing,"Frontend Dev - Emily R.")
.InsertItem(h,Nothing,"Backend Dev - Tom W.")
.InsertItem(hRoot,Nothing,"QA Team")
End With
.EndUpdate()
End With
|
|
1253
|
How can I reposition the +/- (expand/collapse) icon to show as "number, icon, text" (sample 1)
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exgrid1.AnchorClick
Dim exp,i
With Exgrid1
i = .FormatABC("int(value)",AnchorID)
With .Items
i = .get_ItemByIndex(i)
exp = .get_ExpandItem(i)
.set_ExpandItem(i,False)
End With
End With
End Sub
Dim h,hRoot
With Exgrid1
.BeginUpdate()
.set_HTMLPicture("expand","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyxgjsRzEKv1TqtXrNbrtfsIAwgASAH" & _
"AGShQwGQzGABUGEzudAqgyWdSmWw2Fw+sABSHI4AGH1XAGAxGAwywlI6eRqjGi1YuaJJEIJUHBPYqSJYKQAwCBDKbBPbncBibrUKQjGLFQo+TBFfR5GaUAR/KbGICyRx" & _
"siCOQClgdJxGoMpkGycpdDqUZ0EoJQJHYVoWCSCA4kEbRlHKRwJiYcYCH0PBNB2JwYCaCRsGcE8LDyfZKg+U59EsAZMlQCgJkcEA9CsywkiKJwiFcIQwEEgI=")
.set_HTMLPicture("collapse","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYU7YQBCooJSAiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzyO13dGEAGYzWcqlWrFarlesA3AGc" & _
"SAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWISpVLiXT5MrxiJyJJEIJUHBPYqSXYOQAgBgAB6jJwufxxX7YYhdYhFCSsSwSC4uMLoQajNJ" & _
"AG8QgZAgSIqGMCwRBkAJDicGwuiMeoHGeaRFlAU5qDwQQ6A+CYnlgPQeisGJfl4AJYhsRISjQYwJHIcpmmALAtlMEpkE4YBREmEpPBAARdicSw8AES5fi+fI5g+PpcAA" & _
"UJKgyCYknaZRrssJIiicIhXCEMBBICA==")
.HeaderVisible = False
.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
.HasButtons = exontrol.EXGRIDLib.ExpandButtonEnum.exNoButtons
.Indent = 12
.DefaultItemHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.GridLineColor = Color.FromArgb(204,204,204)
.ShowFocusRect = False
.ExpandOnDblClick = False
.ExpandOnKeys = False
With .Columns
With .Add("Item")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + `<a ` + (0 index ``) + `><img>` + (%CC" & _
"0 ? (not %CX0 ? `expand` : `collapse`) : ``) + `:16</img></a>`) : ``) + ` ` + value"
End With
End With
With .Items
hRoot = .AddItem("ACME Corporation")
.set_SelectableItem(hRoot,False)
.set_ExpandItem(hRoot,True)
h = .InsertItem(hRoot,Nothing,"Management")
.InsertItem(h,Nothing,"CEO - Alice Brown")
.InsertItem(h,Nothing,"COO - James Lee")
h = .InsertItem(hRoot,Nothing,"HR Department")
.InsertItem(h,Nothing,"Recruiter - Jane Smith")
.InsertItem(h,Nothing,"HR Assistant - Bob Green")
.set_ExpandItem(h,True)
h = .InsertItem(h,Nothing,"Engineering")
.InsertItem(h,Nothing,"Software Team")
h = .InsertItem(h,Nothing,"Lead Developer - Mark H.")
.InsertItem(h,Nothing,"Frontend Dev - Emily R.")
.InsertItem(h,Nothing,"Backend Dev - Tom W.")
.InsertItem(hRoot,Nothing,"QA Team")
End With
.EndUpdate()
End With
|
|
1252
|
Expandable bullet list
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exgrid1.AnchorClick
Dim exp,i
With Exgrid1
i = .FormatABC("int(value)",AnchorID)
With .Items
i = .get_ItemByIndex(i)
exp = .get_ExpandItem(i)
.set_ExpandItem(i,False)
End With
End With
End Sub
Dim h,hRoot
With Exgrid1
.BeginUpdate()
.set_HTMLPicture("expand","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYM7YIBXCRNbtiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzZO13dGEAGYzWcqlWrFarlesA3AGc" & _
"SAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWNa6awbST7DBTiLyJJEIJUHBPUqSGJuYYwCAES5pBiQfyEX4QKAFH6QSihJQ/GZlET1FhIcg" & _
"GnUdoVHMmxajSIghlMKhsGiAAFggQ5dmKcRHEUEhbFAFQBgacABmAAJgAAcAJkAZgNjUcwDFecYcD8QoIDsGJjD6aYaGyHI7mqLRfgGfBcg+TYggkEhakQThtFsEpAE2" & _
"Xh7goSIJiSHp6haKgPGOXx3j+c5hiKLpri6JAPHWYJREuFJkBCYxcFeYS7ikJQzG0ZIVGKMBYGsVwXDWVQHjqfpjAoYpyE4Z5vH2YoHDkZwzkkUxHC8pwCgifIHBCdk4" & _
"GMLQVmcXJVhicxWi4IIUiKSQ1A8cBUj+eBEGCFQlFSIophiPRkFAWBLFALhwm+HhKjARpmgSGwNn4AIUCcZZUFEKoVmwywkiKJwiFcIQwEEgI")
.set_HTMLPicture("collapse","gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYM7YIBXCRNbtiIYOhFLB0KZvMx0O5hORlABQM" & _
"JpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzZO13dGEAGYzWcqlWrFarlesA3AGc" & _
"SAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWNa6awbST7DBTiLZJJEIJUHBPdpSGKOAQxCAzGhIBKfbAvUBsSIPbiVMhLTxJPK3banJB0N5" & _
"sA8VQRlmCRKjSCRaAIOgCiORISiWaI0DYLJPBYJBxB+LAqAMBRgAsIABjAAhYAOEB5kKDQ5kGZoaCaL5vH2KoEDCbpbDaWRrE8SopE+AA/DcMoZkgAgkhKERDlcdYEHA" & _
"JRzg4IpyCAKRyl6HZLGONwMEMb5clwWB3n2CZki6FoWC4cwQCbGYukKwhiAwOp3HIEJFGCNBGDyLArE8R56n4RUnlOShHGcXJdgcKQlCOSRdEcLw8DmAoInyexvFeMRG" & _
"G0DARmsbRZmsfRxleFZeHoD4eEKKRxGmPANgAC5xDAWpYHMW4uCGywkiKJwiFcIQwEEgI")
.HeaderVisible = False
.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
.HasButtons = exontrol.EXGRIDLib.ExpandButtonEnum.exNoButtons
.Indent = 12
.DefaultItemHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.GridLineColor = Color.FromArgb(204,204,204)
.ShowFocusRect = False
.ExpandOnDblClick = False
.ExpandOnKeys = False
With .Columns
With .Add("Item")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + `<a ` + (0 index ``) + `><img>` + (%CC" & _
"0 ? (not %CX0 ? `expand` : `collapse`) : `collapse`) + `:16</img></a>`) : ``) + ` ` + value"
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exEditorAdjustPos,"32D 4D -4D -4D")
End With
End With
End With
With .Items
hRoot = .AddItem("ACME Corporation")
.set_SelectableItem(hRoot,False)
.set_ExpandItem(hRoot,True)
h = .InsertItem(hRoot,Nothing,"Management")
.InsertItem(h,Nothing,"CEO - Alice Brown")
.InsertItem(h,Nothing,"COO - James Lee")
h = .InsertItem(hRoot,Nothing,"HR Department")
.InsertItem(h,Nothing,"Recruiter - Jane Smith")
.InsertItem(h,Nothing,"HR Assistant - Bob Green")
.set_ExpandItem(h,True)
h = .InsertItem(h,Nothing,"Engineering")
.InsertItem(h,Nothing,"Software Team")
h = .InsertItem(h,Nothing,"Lead Developer - Mark H.")
.InsertItem(h,Nothing,"Frontend Dev - Emily R.")
.InsertItem(h,Nothing,"Backend Dev - Tom W.")
.InsertItem(hRoot,Nothing,"QA Team")
End With
.EndUpdate()
End With
|
|
1251
|
Does grouping support multi-column sorting
Dim h
With Exgrid1
.BeginUpdate()
.SingleSort = False
.HeaderVisible = False
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.AllowGroupBy = True
.Columns.Add("Prefix")
.Columns.Add("Region")
.Columns.Add("City")
With .Columns.Add("Sort")
.ComputedField = "%1 + %2"
.Visible = False
End With
With .Items
h = .AddItem("+33")
.set_CellValue(h,1,"Corsica")
.set_CellValue(h,2,"Bastia ")
h = .AddItem("+33")
.set_CellValue(h,1,"Occitanie")
.set_CellValue(h,2,"Toulouse ")
h = .AddItem("+33")
.set_CellValue(h,1,"Corsica")
.set_CellValue(h,2,"Ajaccio")
h = .AddItem("+33")
.set_CellValue(h,1,"Occitanie")
.set_CellValue(h,2,"Carcassonne ")
End With
.Layout = "multiplesort=""C0:2"";singlesort=""C3:1"";"
.EndUpdate()
End With
|
|
1250
|
How can I vertically scroll the control
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = False
.DataSource = New DAO.PrivDBEngine().OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb").OpenRecordset("Orders")
.Layout = "Collapse="""";VScroll=10"
.EndUpdate()
End With
|
|
1249
|
Export the items as a two-dimensional array
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.PutItems(.Export("array","all"))
.EndUpdate()
End With
|
|
1248
|
Export only expanded items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(expanded)") )
End With
|
|
1247
|
Export only selectable, sortable leaf items that are neither locked nor dividers
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(leaf,sortable,selectable,!divider,!locked)") )
End With
|
|
1246
|
Export only non-divider items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(!divider)") )
End With
|
|
1245
|
Export only selectable items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(selectable)") )
End With
|
|
1244
|
Export only sortable, but not locked items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(sortable,!locked)") )
End With
|
|
1243
|
Export only checked items on specified column
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(checked[0])") )
End With
|
|
1242
|
Export only filtered, not locked or divider items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(visible,!locked,!divider)") )
End With
|
|
1241
|
Export only selected items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(selected)") )
End With
|
|
1240
|
Export only locked items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","only(locked)") )
End With
|
|
1239
|
Export the leaf items of the control, excluding parent or grouped items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","leaf") )
End With
|
|
1238
|
Export all checked and visible items (the first column in the columns list specifies the index of the column used to query the checkbox state)
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","chk") )
End With
|
|
1237
|
Export the selected-items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","sel") )
End With
|
|
1236
|
Export the visible items, excluding child items of collapsed elements, non-visible items (such as those with a height of 0), and items that do not match the current filter
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","vis") )
End With
|
|
1235
|
Export all items, including the hidden or collapsed items
Dim g1,g2,h,r
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
r = .AddItem("Root 1")
g1 = .InsertItem(r,Nothing,"Group A")
.set_CellValue(.InsertItem(g1,Nothing,"Item 1"),1,1)
.set_CellValue(.InsertItem(g1,Nothing,"Item 2"),1,2)
.set_CellState(.get_ItemByIndex(3),0,1)
g2 = .InsertItem(r,Nothing,"Group B")
.set_CellValue(.InsertItem(g2,Nothing,"Item 3"),1,3)
.set_CellValue(.InsertItem(g2,Nothing,"Item 4"),1,4)
.set_ExpandItem(g1,True)
.set_ExpandItem(r,True)
h = .AddItem("divider")
.set_ItemDivider(h,0)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_ItemHeight(h,1)
r = .AddItem("Root 2")
g1 = .InsertItem(r,Nothing,"Group C")
.set_CellValue(.InsertItem(g1,Nothing,"Item 5"),1,5)
.set_CellValue(.InsertItem(g1,Nothing,"Item 6"),1,6)
.set_SelectItem(.get_ItemByIndex(2),True)
End With
.EndUpdate()
Debug.Print( .Export("","all") )
End With
|
|
1234
|
Bolds only the expanded items
Dim h
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.ConditionalFormats.Add("%CX0").Bold = True
.Columns.Add("Description")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
End With
.EndUpdate()
End With
|
|
1233
|
Displays the root item's index and value/caption using expressions
Dim h
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAny
.AllowCopyPaste = exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCopy
.SingleSel = False
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.GridLineColor = Color.FromArgb(208,208,208)
.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
With .ConditionalFormats.Add("1")
.Bold = True
.ApplyTo = &H2
End With
With .Columns.Add("Description")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.Width = 16
End With
With .Columns.Add("Root-Index")
.FormatColumn = "root(1 index ``)"
.Position = 1
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Columns.Add("Root-Value")
.FormatColumn = "root(%0)"
.Position = 2
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
1232
|
Displays the parent item's index and caption/value using expressions
Dim h
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.AutoDrag = exontrol.EXGRIDLib.AutoDragEnum.exAutoDragPositionAny
.AllowCopyPaste = exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCopy
.SingleSel = False
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.GridLineColor = Color.FromArgb(208,208,208)
.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
With .ConditionalFormats.Add("1")
.Bold = True
.ApplyTo = &H2
End With
With .Columns.Add("Description")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
End With
With .Columns.Add("Index")
.FormatColumn = "1 index `I`"
.Position = 0
.Width = 16
End With
With .Columns.Add("Parent-Index")
.FormatColumn = "parent(1 index `I`)"
.Position = 1
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Columns.Add("Parent-Value")
.FormatColumn = "parent(%0)"
.Position = 2
.Width = 32
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
.set_CellState(.InsertItem(h,Nothing,"Child 3"),0,1)
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
1231
|
Copying and Pasting the Selection Programmatically
With Exgrid1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.SingleSel = False
With .Items
.AddItem("Tasks")
.set_SelectItem(.AddItem("Task 1"),True)
.set_SelectItem(.AddItem("Task 2"),True)
End With
.IndentSelection(False)
.CopySelection()
.Items.UnselectAll()
.Paste()
.EndUpdate()
End With
|
|
1230
|
Enable Copy, Cut and Paste Clipboard operations
With Exgrid1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.AllowCopyPaste = exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXGRIDLib.AllowCopyPasteEnum.exAllowCopy
.SingleSel = False
With .Items
.AddItem("Tasks")
.set_SelectItem(.AddItem("Task 1"),True)
.set_SelectItem(.AddItem("Task 2"),True)
End With
.IndentSelection(False)
.EndUpdate()
End With
|
|
1229
|
Adjusts the hierarchy of selected items by changing their parent
With Exgrid1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.SingleSel = False
With .Items
.AddItem("Tasks")
.set_SelectItem(.AddItem("Task A"),True)
.set_SelectItem(.AddItem("Task B"),True)
End With
.IndentSelection(False)
.EndUpdate()
End With
|
|
1228
|
Specify the size of the Columns panel
With Exgrid1
.BeginUpdate()
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarRect = ",,96"
.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
1227
|
Show a vertical line between pivot and Columns panel (EBN color)
With Exgrid1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX" & _
"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI")
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
1226
|
Change the background of the Columns panel (EBN color)
With Exgrid1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
1225
|
Change the background of the Columns panel (solid color)
With Exgrid1
.BeginUpdate()
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(240,240,240))
.EndUpdate()
End With
|
|
1224
|
Change the visual appearance of the Columns panel
With Exgrid1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsFloatAppearance,&H1000000)
.set_Background(exontrol.EXGRIDLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,246,246))
.BackColorHeader32 = &H1000000
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
.ColumnsFloatBarVisible = exontrol.EXGRIDLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
1223
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
With .Items
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Germany")
.AddItem("Germany")
.AddItem("Germany")
.AddItem("Germany")
End With
.EndUpdate()
End With
|
|
1222
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.Columns.Add("Country").ShowIdem = " "
With .Items
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Spain")
.AddItem("Germany")
.AddItem("Germany")
.AddItem("Germany")
.AddItem("Germany")
End With
.EndUpdate()
End With
|
|
1221
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
With Exgrid1
.BeginUpdate()
With .VisualAppearance
.RenderType = &Hffffffffui
.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
.Add(2,"CP:1 -2 0 0 0")
End With
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
.ShowFocusRect = False
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000001)
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.BackColorHeader = Color.FromArgb(255,255,255)
.HeaderHeight = 24
.HeaderVisible = True
With .Columns.Add("1st col")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.Filter = "Item B"
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
End With
.Columns.Add("2nd col")
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1220
|
How can I store any extra data associated with a cell
' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal Key As Object) Handles Exgrid1.ButtonClick
With Exgrid1
Debug.Print( .Items.get_CellData(Item,ColIndex) )
End With
End Sub
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
With .Columns.Add("Def").Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.ButtonType
.Locked = True
End With
With .Items
.set_CellData(.AddItem("Cell 1"),0,"your extra data for cell 1")
.set_CellData(.AddItem("Cell 2"),0,"your extra data for cell 2")
End With
.EndUpdate()
End With
|
|
1219
|
How can I replace or add an icon at runtime
With Exgrid1
.BeginUpdate()
.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
.ReplaceIcon("C:\images\favicon.ico",0)
.Columns.Add("Items").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Items.AddItem("Item <img>1</img>")
.EndUpdate()
End With
|
|
1218
|
How can I save the changes, such as column's width, order
' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Exgrid1_Click(ByVal sender As System.Object) Handles Exgrid1.Click
With Exgrid1
.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
End With
End Sub
With Exgrid1
.BeginUpdate()
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
1217
|
How can I add totals to groups without having to go through the AddGroupItem grid function
Dim g1,g2,h,r
With Exgrid1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .ConditionalFormats
With .Add("%CT1")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H1
End With
With .Add("%CT2")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H2
End With
With .Add("%CT3")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H3
End With
End With
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%3)")
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,Nothing,"Group 1")
h = .InsertItem(g1,Nothing,"Item 1")
.set_CellValue(h,1,1)
.set_CellValue(h,2,10)
h = .InsertItem(g1,Nothing,"Item 2")
.set_CellValue(h,1,2)
.set_CellValue(h,2,11)
g2 = .InsertItem(r,Nothing,"Group 2")
h = .InsertItem(g2,Nothing,"Item 1")
.set_CellValue(h,1,3)
.set_CellValue(h,2,12)
h = .InsertItem(g2,Nothing,"Item 2")
.set_CellValue(h,1,4)
.set_CellValue(h,2,13)
.set_ExpandItem(0,True)
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1216
|
How can I configure the filters in the text columns to search by content
With Exgrid1
.BeginUpdate()
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.None2
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.Columns.Add("Names")
With .Items
.AddItem("Mantel")
.AddItem("Mechanik")
.AddItem("Motor")
.AddItem("Murks")
.AddItem("Märchen")
.AddItem("Möhren")
.AddItem("Mühle")
.AddItem("Sérigraphie")
End With
.FilterBarPromptPattern = "a"
.EndUpdate()
End With
|
|
1215
|
How can I display the control's captions in Spanish
With Exgrid1
.BeginUpdate()
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.None2
.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,"(todo) ")
.set_Description(exontrol.EXGRIDLib.DescriptionTypeEnum.exFilterBarFilterForCaption,"filtrar por...")
.FilterBarPrompt = "<i><fgcolor=808080>iniciar filtro...</fgcolor></i>"
With .Columns.Add("Names")
.DisplayFilterButton = True
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
End With
With .Items
.AddItem("Mantel")
.AddItem("Mechanik")
.AddItem("Motor")
.AddItem("Murks")
.AddItem("Märchen")
.AddItem("Möhren")
.AddItem("Mühle")
.AddItem("Sérigraphie")
End With
.EndUpdate()
End With
|
|
1214
|
How can I zoom in the control
Dim s1,s2
With Exgrid1
.BeginUpdate()
s1 = 16
s2 = .FormatABC("2 * value",s1)
.ImageSize = s2
.DefaultItemHeight = s2
.HeaderHeight = s2
.SortBarHeight = s2
.Indent = s2
.Font.Size = s1
.FilterBarFont.Size = s1
.ToolTipFont.Size = s1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.None2
With .Columns.Add("Names")
.DisplayFilterButton = True
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
End With
With .Items
.AddItem("Mantel")
.AddItem("Mechanik")
.AddItem("Motor")
.AddItem("Murks")
.AddItem("Märchen")
.AddItem("Möhren")
.AddItem("Mühle")
.AddItem("Sérigraphie")
End With
.EndUpdate()
End With
|
|
1213
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Dim h
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exFilterPatternTemplate,"*<%filter%>*")
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
.Filter = "1"
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1212
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
.ColumnAutoResize = False
.Columns.Add("Column 1")
.Columns.Add("Column 2")
.Columns.Add("Column 3")
.Columns.Add("Column 4")
.EndUpdate()
End With
|
|
1211
|
Load data as a tree using a parent-id relationship
Dim rs
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = False
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
rs = New ADODB.Recordset()
With rs
.Open("Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3)
End With
.DataSource = rs
.Columns.Item(0).Width = 128
rs = New ADODB.Recordset()
With rs
.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3)
End With
.PutItems(rs.GetRows(),";0;17")
.Items.set_ExpandItem(0,True)
.EndUpdate()
End With
|
|
1210
|
Is there a way to change the contents of the drop down editor based on a value in another column
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
With Exgrid1
.Items.set_CellEditorVisible(Item,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorVisible)
.Items.set_CellEditorVisible(Item,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorVisible)
End With
End Sub
' EditOpen event - Occurs when the edit operation starts.
Private Sub Exgrid1_EditOpen(ByVal sender As System.Object) Handles Exgrid1.EditOpen
Dim c,v
With Exgrid1
With .Items
v = .get_CellValue(.FocusItem,0)
c = .get_CellCaption(.FocusItem,0)
End With
With .Columns.Item(1).Editor
.ClearItems()
.AddItem(v,c)
End With
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
With .Columns.Add("DropDownList")
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
.AddItem(1,"First")
.AddItem(2,"Second")
.AddItem(3,"Third")
End With
End With
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.Columns.Add("DropDownList-Related").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.DropDownListType
With .Items
.set_CellValue(.AddItem(1),1,-1)
.set_CellValue(.AddItem(2),1,-1)
.set_CellValue(.AddItem(3),1,-1)
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
.set_CellEditorVisible(h,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellSingleLine(h,0,exontrol.EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
" on the first column.")
End With
.EndUpdate()
End With
|
|
1209
|
Highlight the editable fields
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exgrid1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .ConditionalFormats
With .Add("%CE1")
.Bold = True
.BackColor = Color.FromArgb(245,245,245)
.ApplyTo = &H1
End With
With .Add("%CE2")
.Bold = True
.BackColor = Color.FromArgb(245,245,245)
.ApplyTo = &H2
End With
With .Add("%CE3")
.Bold = True
.BackColor = Color.FromArgb(245,245,245)
.ApplyTo = &H3
End With
End With
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%3)")
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,Nothing,"Group 1")
h = .InsertItem(g1,Nothing,"Item 1")
.set_CellValue(h,1,1)
.set_CellValue(h,2,10)
h = .InsertItem(g1,Nothing,"Item 2")
.set_CellValue(h,1,2)
.set_CellValue(h,2,11)
g2 = .InsertItem(r,Nothing,"Group 2")
h = .InsertItem(g2,Nothing,"Item 1")
.set_CellValue(h,1,3)
.set_CellValue(h,2,12)
h = .InsertItem(g2,Nothing,"Item 2")
.set_CellValue(h,1,4)
.set_CellValue(h,2,13)
.set_ExpandItem(0,True)
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1208
|
Highlight the total fields
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exgrid1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .ConditionalFormats
With .Add("%CT1")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H1
End With
With .Add("%CT2")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H2
End With
With .Add("%CT3")
.ForeColor = Color.FromArgb(128,128,128)
.ApplyTo = &H3
End With
End With
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%3)")
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,Nothing,"Group 1")
h = .InsertItem(g1,Nothing,"Item 1")
.set_CellValue(h,1,1)
.set_CellValue(h,2,10)
h = .InsertItem(g1,Nothing,"Item 2")
.set_CellValue(h,1,2)
.set_CellValue(h,2,11)
g2 = .InsertItem(r,Nothing,"Group 2")
h = .InsertItem(g2,Nothing,"Item 1")
.set_CellValue(h,1,3)
.set_CellValue(h,2,12)
h = .InsertItem(g2,Nothing,"Item 2")
.set_CellValue(h,1,4)
.set_CellValue(h,2,13)
.set_ExpandItem(0,True)
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1207
|
Highlight the leaf items
Dim h,hR
With Exgrid1
.BeginUpdate()
.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add("Desc")
End With
With .Items
hR = .AddItem("Root")
.set_CellValue(hR,1,"The root directory /")
.set_ExpandItem(hR,True)
h = .InsertItem(hR,Nothing,"Home")
.set_CellValue(h,1,"The home directory with user directories Alice and Bob")
.InsertItem(h,Nothing,"Alice")
.InsertItem(h,Nothing,"Bob")
.set_ExpandItem(h,True)
h = .InsertItem(hR,Nothing,"Etc")
.set_CellValue(h,1,"The etc directory with one configuration file")
h = .InsertItem(h,Nothing,"nginx.conf")
.set_CellValue(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
End With
.EndUpdate()
End With
|
|
1206
|
Highlight the parent items
Dim h,hR
With Exgrid1
.BeginUpdate()
.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add("Desc")
End With
With .Items
hR = .AddItem("Root")
.set_CellValue(hR,1,"The root directory /")
.set_ExpandItem(hR,True)
h = .InsertItem(hR,Nothing,"Home")
.set_CellValue(h,1,"The home directory with user directories Alice and Bob")
.InsertItem(h,Nothing,"Alice")
.InsertItem(h,Nothing,"Bob")
.set_ExpandItem(h,True)
h = .InsertItem(hR,Nothing,"Etc")
.set_CellValue(h,1,"The etc directory with one configuration file")
h = .InsertItem(h,Nothing,"nginx.conf")
.set_CellValue(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
End With
.EndUpdate()
End With
|
|
1205
|
Highlight the item being expanded or collapsed
Dim h,hR
With Exgrid1
.BeginUpdate()
.ConditionalFormats.Add("%CX0").Bold = True
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add("Desc")
End With
With .Items
hR = .AddItem("Root")
.set_CellValue(hR,1,"The root directory /")
.set_ExpandItem(hR,True)
h = .InsertItem(hR,Nothing,"Home")
.set_CellValue(h,1,"The home directory with user directories Alice and Bob")
.InsertItem(h,Nothing,"Alice")
.InsertItem(h,Nothing,"Bob")
.set_ExpandItem(h,True)
h = .InsertItem(hR,Nothing,"Etc")
.set_CellValue(h,1,"The etc directory with one configuration file")
h = .InsertItem(h,Nothing,"nginx.conf")
.set_CellValue(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
End With
.EndUpdate()
End With
|
|
1204
|
I am using exTotalColumn. Is there an option to exclude specific cells to display the total
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exgrid1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%3)")
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,Nothing,"Group 1")
.set_FormatCell(g1,2,"`<average missing>`")
.set_CellEditorVisible(g1,2,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellBold(g1,2,True)
.set_CellForeColor(g1,2,Color.FromArgb(255,0,0))
h = .InsertItem(g1,Nothing,"Item 1")
.set_CellValue(h,1,1)
.set_CellValue(h,2,10)
h = .InsertItem(g1,Nothing,"Item 2")
.set_CellValue(h,1,2)
.set_CellValue(h,2,11)
g2 = .InsertItem(r,Nothing,"Group 2")
h = .InsertItem(g2,Nothing,"Item 1")
.set_CellValue(h,1,3)
.set_CellValue(h,2,12)
h = .InsertItem(g2,Nothing,"Item 2")
.set_CellValue(h,1,4)
.set_CellValue(h,2,13)
.set_ExpandItem(0,True)
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1203
|
How can I add a total column
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exgrid1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%3)")
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,Nothing,"Group 1")
h = .InsertItem(g1,Nothing,"Item 1")
.set_CellValue(h,1,1)
.set_CellValue(h,2,10)
h = .InsertItem(g1,Nothing,"Item 2")
.set_CellValue(h,1,2)
.set_CellValue(h,2,11)
g2 = .InsertItem(r,Nothing,"Group 2")
h = .InsertItem(g2,Nothing,"Item 1")
.set_CellValue(h,1,3)
.set_CellValue(h,2,12)
h = .InsertItem(g2,Nothing,"Item 2")
.set_CellValue(h,1,4)
.set_CellValue(h,2,13)
.set_ExpandItem(0,True)
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1202
|
Is it possible to disable sizing(size) the column
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
With .Columns.Add("32px")
.Width = 32
.AllowSizing = False
End With
.Columns.Add("Rest")
.ColumnAutoResize = True
.EndUpdate()
End With
|
|
1201
|
How can I add two columns of 25% and the third of 50%
With Exgrid1
.BeginUpdate()
.HeaderAppearance = exontrol.EXGRIDLib.AppearanceEnum.Etched
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exVLines
.Columns.Add("25%").Width = 25
.Columns.Add("25%").Width = 25
.Columns.Add("50%").Width = 50
.ColumnAutoResize = True
.EndUpdate()
End With
|