|
2381
|
I am using EBN for my milestone bars, but they appear very small on high DPI resolutions
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABM8GACAADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6EX7kIAJCb+IIDATCIyjAIoWhxFKGZYlYAoJDENo0QRCcZTR" & _
"I8NQGCyEQwnOQZDiWFofR6CEIlAZJRjoOo5DJGGL0WAaAxCEzVMYjNBIUQTICBaCgOCLCgkYJWT5aMi2XZlWzdNhTVIfC4XYq+dp3UZJF4XXZtaTpPjALxwG5rerJGTk" & _
"P7hb74LauBzdAbHLaxTCsKwzEZtZBjWR4RimOY9RLEMqxbKcDxvIKnZzpehYHomCTlOjUdhzfYtKy+cp7azbejbJrmZ5DWzGbr3HC+Az3KK+cbyOo6XgVYaLZDjOh5Dh" & _
"kgwAY7mgdg5F2Hg2DIB5Xm0eA6F4HJ/HeLZPnGeg8F2TgHHuT5qm2fA8B4W5vjuY5vmSdQkle7p/m+dx+FwN5RHMYYfGeRZ5GYH42joAw+B+ZxmAcWwgBWYZ9gOHAGEY" & _
"ERdmEN5KBUaJghYXZEgKXI4G4Hh1GINIVl+A5akgdglgmIgoi0a4FmIOIiCMQJOjQRQJEAQCAgA==")
.Add(2,"CP:1 0 -1D 11D 1D")
.Add(3,"gBFLBCJwBAEHhEJAAEhABIICg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6EX7kIAJCb+IIDATCIyjAIoWhxFKGZYlYAoJDENo0QRCcZTR" & _
"I8NQGCyEQ4nOQZDiWFofR6CEIlAZJRjoOo5DJGGL1GAeAxCEzVMYjNBIUQTICBaCgOCAYhYcJWT5aMi2XZlWzaaBnWauC4rRrObp3XhbMB3TbkSznP66bhvXA7MrvBJ+" & _
"YDdGJLMwTC4YYrAGawe6MGxPEaRY7jeQ5Ha+KzxS7EWDXBTdCS1DBeD7pY76LouN45Ty7dAxLTNDyrKq0KzrWR7A7+ZTnXBFTDJXgSNThGx+cYfXCcJrGdYpEi2N6uHg" & _
"HAuCZJmScp4FyXBNnYB5SGcdSTiaGoMm+ZA7jsFpph8Shnk+Z5shMex4iuUADj+YZiHuPI+k8Z5km+cB8hcZgVlAWpfHeDZlHmX43ioCR6mCJ4pn0fANFMEI3gQSx3lE" & _
"bYBESV52AuBpgleNgHHkYQIEoFB9CESBRnCBohlgcgMgqYooD2VRwiIWBJAODBLHiHgfHoIoYmYLIOh+SJeCGBJjCAAY2GoHR3B4KoRmOSQmCuERHmkDA/ECZJpDISIO" & _
"mUSROAuEwkmiTgigSHwCkiIgjiWYg6FaEogjMUIyCaZhiG4P4FCWKQCDWC5ElmBhhhiZRYmoaYaGaOQFG2DQfAmXhnDsTAyiqhwoBoDoGiAZ5piocINCEZYyHyHAohoH" & _
"oEiSaQqCYeYFGAJZ2g8eIEloJJ3DKSxqHyNoliiORuhgXhbkmbomh8Zh5iaIooioShygwXwqhWcobHWHB3GKJYbhmRIaAMYZrHcChMiWa5alWE4NCSapOj0WpsGsAomj" & _
"IahrC6GY0heAxYlwNwtGMcpUHObY1l6WY2G2VY5AMOpRBQJQBICA=")
.Add(4,"CP:3 0 -1D 11D 1D")
End With
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
With .Bars.Copy("Milestone","Milestonee3")
.Color32 = &H2000000
.Height = 22
End With
With .Bars.Copy("Milestone","Milestonee4")
.Color32 = &H4000000
.Height = 22
End With
End With
.DefaultItemHeight = 28
.Columns.Add("Tasks")
With .Items
.AddBar(.AddItem("Milestone"),"Milestone",#1/2/2001#,#1/2/2001#)
.AddBar(.AddItem("milestonee3.ebn"),"Milestonee3",#1/2/2001#,#1/2/2001#)
.AddBar(.AddItem("milestonee4.ebn"),"Milestonee4",#1/2/2001#,#1/2/2001#)
End With
.EndUpdate()
End With
|
|
2380
|
How can I vertically scroll the control
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exg2antt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddItem
With Exg2antt1
With .Items
.AddBar(Item,"Task",.get_CellValue(Item,2),.get_CellValue(Item,4))
End With
End With
End Sub
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
.DataSource = New DAO.PrivDBEngine().OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb").OpenRecordset("Orders")
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.set_PaneWidth(False,256)
End With
.Items.AllowCellValueToItemBar = True
.Columns.Item(2).set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,1)
.Columns.Item(4).set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,2)
.Layout = "Collapse="""";VScroll=10"
.EndUpdate()
End With
|
|
2379
|
Export the items as a two-dimensional array
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2378
|
Export only expanded items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2377
|
Export only selectable, sortable leaf items that are neither locked nor dividers
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2376
|
Export only non-divider items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2375
|
Export only selectable items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2374
|
Export only sortable, but not locked items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2373
|
Export only checked items on specified column
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2372
|
Export only filtered, not locked or divider items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2371
|
Export only selected items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2370
|
Export only locked items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2369
|
Export the leaf items of the control, excluding parent or grouped items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2368
|
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 Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2367
|
Export the selected-items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2366
|
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 Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2365
|
Export all items, including the hidden or collapsed items
Dim g1,g2,h,r
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ScrollBySingleLine = True
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exGroupLinesOutside
With .Columns
With .Add("Desc")
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Add("Amount")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
.FormatColumn = "currency(value)"
End With
End With
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_CellValue(h,0,"All")
.set_CellValue(h,1,"sum(all,rec,%1)")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.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
|
|
2364
|
Bolds only the expanded items
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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
|
|
2363
|
Displays the root item's index and value/caption using expressions
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.AutoDrag = exontrol.EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAny
.AllowCopyPaste = exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCopy
.SingleSel = False
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.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.EXG2ANTTLib.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.EXG2ANTTLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Columns.Add("Root-Value")
.FormatColumn = "root(%0)"
.Position = 2
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.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
|
|
2362
|
Displays the parent item's index and caption/value using expressions
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.AutoDrag = exontrol.EXG2ANTTLib.AutoDragEnum.exAutoDragPositionAny
.AllowCopyPaste = exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCopy
.SingleSel = False
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.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.EXG2ANTTLib.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.EXG2ANTTLib.DefColumnEnum.exCellBackColor,15790320)
End With
With .Columns.Add("Parent-Value")
.FormatColumn = "parent(%0)"
.Position = 2
.Width = 32
.set_Def(exontrol.EXG2ANTTLib.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
|
|
2361
|
Copying and Pasting the Selection Programmatically
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2025#
.set_PaneWidth(False,128)
.SelBackColor = Exg2antt1.SelBackColor
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
End With
.SingleSel = False
With .Items
.AddItem("Tasks")
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2025#,#1/8/2025#,"T1")
.AddBar(h,"Task",#1/7/2025#,#1/13/2025#,"T2")
.set_SelectItem(h,True)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2025#,#1/8/2025#,"T1")
.AddBar(h,"Task",#1/7/2025#,#1/13/2025#,"T2")
.set_SelectItem(h,True)
End With
.IndentSelection(False)
.CopySelection()
.Items.UnselectAll()
.Paste()
.EndUpdate()
End With
|
|
2360
|
Enable Copy, Cut and Paste Clipboard operations
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.AllowCopyPaste = exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowPaste Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCut Or exontrol.EXG2ANTTLib.AllowCopyPasteEnum.exAllowCopy
.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
.ConditionalFormats.Add("1")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2025#
.set_PaneWidth(False,128)
.SelBackColor = Exg2antt1.SelBackColor
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
End With
.SingleSel = False
With .Items
.AddItem("Tasks")
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2025#,#1/8/2025#,"T1")
.AddBar(h,"Task",#1/7/2025#,#1/13/2025#,"T2")
.set_SelectItem(h,True)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2025#,#1/8/2025#,"T1")
.AddBar(h,"Task",#1/7/2025#,#1/13/2025#,"T2")
.set_SelectItem(h,True)
End With
.IndentSelection(False)
.EndUpdate()
End With
|
|
2359
|
Adjusts the hierarchy of selected items by changing their parent
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.LinesAtRoot = exontrol.EXG2ANTTLib.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
|
|
2358
|
How can I change the visual appearance for selected bars (EBN, frame, dash, enlarged)
Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAEhABMcGACAADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMw4AJCI4DRCIZBuGyPRhASQZUhmHIDTbIEBxf" & _
"IMIxLE6YaBjObIaoSGYfUhCMowG79GgBJp/YqncaKCgSHwyUrNEbgRDQEw9L6BaxqCj6OhWLQ1CTZdowSKoYTXBq3IhkGiYZpyO5gABYVLWHY0ExNFCVJYjOT5RiONaH" & _
"ABOM43JKkfT9IC/KpxGhoWxSdo6ABXVz2DBNRz5EjHaoyHQ5Ypmc4JZbleZZTbFdSjT6BbS2KzLRzSb5aXhqMI6XD+XTJKK+YIkeqZLjGJaEYblGKZPruOz3MrQOCwCA" & _
"fBafZHBsaYojqmovhkSpnGuegbBiXYjGccJblsdpxFqTgyjeW5Nl4fAbnyLpmBIUA0hiToHFOmBjFcRgECENQHEYQxkCQKBumCBZcBgRYPkYIQaGwERoEEFRsBUCBWBa" & _
"BZhCafgYgaYYYHIHh4iGeIGBWBJiCgYgPgkYR4h4KIIl8JIGBkUwUmOLRyECUAQIC")
.Add(1,"CP:2 -2 -2 2 2")
End With
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2002#
.SelBarColor32 = &H1000000
.set_PaneWidth(False,48)
End With
.Columns.Add("Task")
With .Items
.AddItem()
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
.AddBar(h,"Task",#1/11/2002#,#1/14/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.AddItem()
End With
.EndUpdate()
End With
|
|
2357
|
Specify the size of the Columns panel
With Exg2antt1
.BeginUpdate()
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarRect = ",,96"
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
2356
|
Show a vertical line between pivot and Columns panel (EBN color)
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX" & _
"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
2355
|
Change the background of the Columns panel (EBN color)
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H1000000)
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
2354
|
Change the background of the Columns panel (solid color)
With Exg2antt1
.BeginUpdate()
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(240,240,240))
.EndUpdate()
End With
|
|
2353
|
Change the visual appearance of the Columns panel
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,&H1000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,246,246))
.BackColorHeader32 = &H1000000
.HeaderHeight = 24
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("City")
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.set_Description(exontrol.EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate()
End With
|
|
2352
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXG2ANTTLib.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
|
|
2351
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXG2ANTTLib.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
|
|
2350
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
With Exg2antt1
.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.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.ShowFocusRect = False
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000001)
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.BackColorHeader = Color.FromArgb(255,255,255)
.HeaderHeight = 24
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Columns.Add("1st col")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.Filter = "Item B"
.FilterType = exontrol.EXG2ANTTLib.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
|
|
2349
|
Stack vs Cascade
Dim h
With Exg2antt1
.BeginUpdate()
.ScrollBySingleLine = True
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Flat
.Columns.Add("Type")
.BackColorAlternate = Color.FromArgb(240,240,240)
With .Chart
.LevelCount = 2
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.AllowLinkBars = False
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
With .Bars.Copy("Task","T1")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%9%>")
End With
With .Bars.Copy("Task","T2")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%9%>")
End With
End With
With .Items
h = .AddItem("Cascade")
.AddBar(h,"T1",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h,"T1",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h,"T1",#1/4/2001#,#1/7/2001#,"A3")
.AddBar(h,"T1",#1/2/2001#,#1/7/2001#,"A4")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"A5")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"A6")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"A7")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"A8")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"A9")
.AddBar(h,"T1",#1/8/2001#,#1/12/2001#,"AA")
h = .AddItem("Stack-AutoArrange")
.AddBar(h,"T2",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h,"T2",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h,"T2",#1/4/2001#,#1/7/2001#,"A3")
.AddBar(h,"T2",#1/2/2001#,#1/7/2001#,"A4")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"A5")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"A6")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"A7")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"A8")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"A9")
.AddBar(h,"T2",#1/8/2001#,#1/12/2001#,"AA")
End With
.EndUpdate()
End With
|
|
2348
|
Horizontally(left) align the multi-line caption of the bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.LevelCount = 2
End With
With .Items
.set_SelectableItem(.AddItem(),False)
h = .AddItem("Task 1")
.set_ItemHeight(h,42)
.AddBar(h,"Task",#1/2/2001#,#1/7/2001#,"K1","This is a bit of 1'st line<br>2'nd line<br>3'rd line")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,0)
End With
.EndUpdate()
End With
|
|
2347
|
Defines the colors, to display overlapping links
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
.AntiAliasing = True
.OverlapLinksColors = "black,gray,lightgray"
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exPreventOverlapMixt Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
End With
With .Items
.AddItem("")
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#,"A")
.AddBar(h1,"Task",#1/8/2001#,#1/11/2001#,"B")
.AddBar(h1,"Task",#1/13/2001#,#1/16/2001#,"C")
.AddBar(h1,"Task",#1/18/2001#,#1/21/2001#,"D")
.AddLink("Link1",h1,"D",h1,"A")
.AddLink("Link2",h1,"C",h1,"B")
End With
.EndUpdate()
End With
|
|
2346
|
The exPreventOverlapMixt option can be combined with the exChangeColorOnOverlap flag, allowing overlapping links to alternately adjust their width while also changing colors
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
.AntiAliasing = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exPreventOverlapMixt Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
End With
With .Items
.AddItem("")
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#,"A")
.AddBar(h1,"Task",#1/8/2001#,#1/11/2001#,"B")
.AddBar(h1,"Task",#1/13/2001#,#1/16/2001#,"C")
.AddBar(h1,"Task",#1/18/2001#,#1/21/2001#,"D")
.AddLink("Link1",h1,"D",h1,"A")
.AddLink("Link2",h1,"C",h1,"B")
End With
.EndUpdate()
End With
|
|
2345
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
Dim h1
With Exg2antt1
.BeginUpdate()
.AntiAliasing = True
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exChangeColorOnOverlap Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
End With
With .Items
.AddItem("")
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#,"A")
.AddBar(h1,"Task",#1/8/2001#,#1/11/2001#,"B")
.AddBar(h1,"Task",#1/13/2001#,#1/16/2001#,"C")
.AddBar(h1,"Task",#1/18/2001#,#1/21/2001#,"D")
.AddLink("Link1",h1,"D",h1,"A")
.AddLink("Link2",h1,"C",h1,"B")
End With
.EndUpdate()
End With
|
|
2344
|
How can I assign a multiple-lines caption to an bar
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.LevelCount = 2
End With
With .Items
.set_SelectableItem(.AddItem(),False)
h = .AddItem("Task 1")
.set_ItemHeight(h,42)
.AddBar(h,"Task",#1/2/2001#,#1/7/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"This is a bit of 1'st line<br>2'nd line<br>3'rd line")
End With
.EndUpdate()
End With
|
|
2343
|
The text on the chart overlap the rest of the bars, while using OverlaidType property on exOverlaidBarsStack
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/3/2002#
.LevelCount = 2
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.Bars.Add("Text").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,0)
With .Bars.Item("Task")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,0)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Text,Task"
End With
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Default")
.AddBar(h,"Text",#1/4/2002#,#1/4/2002#,"","This is another text")
.AddBar(h,"Task",#1/6/2002#,#1/8/2002#,"A","This is a bit of text")
End With
.EndUpdate()
End With
|
|
2342
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 2)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Def")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.set_PaneWidth(False,64)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"<%=`Start: ` + (date(%1) format `yyyy-MM-dd` )%>")
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"A","A")
.AddBar(h,"Task",#1/5/2010#,#1/8/2010#,"B","B")
End With
.EndUpdate()
End With
|
|
2341
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 1)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Def")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.set_PaneWidth(False,64)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"<%=`Start: ` + year(%1) + `-` + (month(%1) lpad `00`) + `-` + (day(%1) lpad `00`)%>")
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"A","A")
.AddBar(h,"Task",#1/5/2010#,#1/8/2010#,"B","B")
End With
.EndUpdate()
End With
|
|
2340
|
How can I replace or add an icon at runtime
Dim h
With Exg2antt1
.BeginUpdate()
.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
.ReplaceIcon("C:\images\favicon.ico",0)
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.LevelCount = 2
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<img>1</img>")
End With
.EndUpdate()
End With
|
|
2339
|
How can I define the sensitivity for link selection when the user clicks or selects a link
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
Debug.Print( .Chart.get_LinkFromPoint(-1,-1) )
End With
End Sub
Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/29/2000#
.set_PaneWidth(False,64)
.LevelCount = 2
.LinksWidth = 1026
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddItem()
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/8/2001#,#1/10/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
.AddItem()
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/14/2001#,#1/16/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
End With
.EndUpdate()
End With
|
|
2338
|
How can I let the user to create task-bars for leaf0-items only, when AllowCreateBar is exCreateBarAuto
' CreateBar event - Fired when the user creates a new bar.
Private Sub Exg2antt1_CreateBar(ByVal sender As System.Object,ByVal Item As Integer,ByVal DateStart As Date,ByVal DateEnd As Date) Handles Exg2antt1.CreateBar
With Exg2antt1
With .Items
Debug.Print( "Call RemoveBar if the ChildCount property returns a non-zero value" )
Debug.Print( .get_ChildCount(Item) )
.RemoveBar(Item,"newbar")
End With
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.LevelCount = 2
.set_PaneWidth(False,128)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
2337
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
With Exg2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarStartStr) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEndStr) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.set_PaneWidth(False,96)
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2")
.AddBar(.AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3")
End With
.EndUpdate()
End With
|
|
2336
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
With Exg2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .FormatABC("dateF(value)",.Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarStart)) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .FormatABC("dateF(value)",.Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd)) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.set_PaneWidth(False,96)
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2")
.AddBar(.AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3")
End With
.EndUpdate()
End With
|
|
2335
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub Exg2antt1_BarResizing(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResizing
With Exg2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarStart)) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.get_ItemBar(Item,Key,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd)) )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.set_PaneWidth(False,96)
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2")
.AddBar(.AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3")
End With
.EndUpdate()
End With
|
|
2334
|
Add/Remove/Updates the item-bar's resources
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Exg2antt1_Click(ByVal sender As System.Object) Handles Exg2antt1.Click
Dim h
With Exg2antt1
With .Items
h = .get_SelectedItem(0)
.set_ItemBar(h,.get_FirstItemBar(h),exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarResources,"+R4[10%]")
End With
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
With .Chart
.set_PaneWidth(False,96)
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%49%>")
End With
End With
.Columns.Add("Machines")
With .Items
h = .AddItem("Machine 1")
.AddBar(h,"Task",#1/6/2001#,#1/12/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarResources,"R1,R2")
h = .AddItem("Machine 2")
.AddBar(h,"Task",#1/4/2001#,#1/14/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarResources,"R2[75%],R3")
End With
.EndUpdate()
End With
|
|
2333
|
Distributes resources to a bar
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
With .Chart
.set_PaneWidth(False,96)
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%49%>")
End With
End With
.Columns.Add("Machines")
With .Items
h = .AddItem("Machine 1")
.AddBar(h,"Task",#1/6/2001#,#1/12/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarResources,"R1,R2")
h = .AddItem("Machine 2")
.AddBar(h,"Task",#1/4/2001#,#1/14/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarResources,"R2[75%],R3")
End With
.EndUpdate()
End With
|
|
2332
|
How can I display additional information about a time zone when the user clicks on it (expandable)
With Exg2antt1
With .Chart
.set_PaneWidth(False,0)
.LevelCount = 2
.FirstVisibleDate = #12/20/2009#
.MarkTimeZone("TZ",#1/1/2010#,#1/3/2010#,65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1")
End With
End With
|
|
2331
|
How can I have a tooltip for a marked TimeZone
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
.ShowToolTip(.Chart.get_TimeZoneFromPoint(-1,-1),"",Nothing,"+8")
End With
End Sub
With Exg2antt1
With .Chart
.set_PaneWidth(False,0)
.LevelCount = 2
.FirstVisibleDate = #12/28/2009#
.MarkTimeZone("Top",#1/1/2010#,#1/5/2010#,16711680,"1;;<fgcolor=FFFFFF>Top;1")
.MarkTimeZone("Partial",#1/8/2010#,#1/12/2010#,16711680,"50;;<fgcolor=FFFFFF>Partial;1")
.MarkTimeZone("Default",#1/15/2010#,#1/19/2010#,16711680,";;<fgcolor=FFFFFF>Default;1")
End With
End With
|
|
2330
|
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 Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exFilterPatternTemplate,"*<%filter%>*")
.FilterType = exontrol.EXG2ANTTLib.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
|
|
2329
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
With .Chart
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
End With
.ColumnAutoResize = False
.Columns.Add("Column 1")
.Columns.Add("Column 2")
.Columns.Add("Column 3")
.Columns.Add("Column 4")
.EndUpdate()
End With
|
|
2328
|
Load data as a tree using a parent-id relationship
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.LinesAtRoot = exontrol.EXG2ANTTLib.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\ExG2antt\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\ExG2antt\Sample\Access\misc.mdb",3,3)
End With
.PutItems(rs.GetRows(),";0;17")
.Items.set_ExpandItem(0,True)
.EndUpdate()
End With
|
|
2327
|
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 Exg2antt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddItem
With Exg2antt1
.Items.set_CellEditorVisible(Item,0,exontrol.EXG2ANTTLib.EditorVisibleEnum.exEditorVisible)
.Items.set_CellEditorVisible(Item,1,exontrol.EXG2ANTTLib.EditorVisibleEnum.exEditorVisible)
End With
End Sub
' EditOpen event - Occurs when the edit operation starts.
Private Sub Exg2antt1_EditOpen(ByVal sender As System.Object) Handles Exg2antt1.EditOpen
Dim c,v
With Exg2antt1
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 Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
With .Columns.Add("DropDownList")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"First")
.AddItem(2,"Second")
.AddItem(3,"Third")
End With
End With
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.Columns.Add("DropDownList-Related").Editor.EditType = exontrol.EXG2ANTTLib.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.EXG2ANTTLib.VAlignmentEnum.exBottom,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exBottom,0)
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXG2ANTTLib.DividerAlignmentEnum.DividerTop)
.set_CellEditorVisible(h,0,exontrol.EXG2ANTTLib.EditorVisibleEnum.exEditorHidden)
.set_CellSingleLine(h,0,exontrol.EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap)
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.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
|
|
2326
|
Highlight the editable fields
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exg2antt1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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.EXG2ANTTLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXG2ANTTLib.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
|
|
2325
|
Highlight the total fields
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exg2antt1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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.EXG2ANTTLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXG2ANTTLib.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
|
|
2324
|
Highlight the leaf items
Dim h,hR
With Exg2antt1
.BeginUpdate()
.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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
|
|
2323
|
Highlight the parent items
Dim h,hR
With Exg2antt1
.BeginUpdate()
.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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
|
|
2322
|
Highlight the item being expanded or collapsed
Dim h,hR
With Exg2antt1
.BeginUpdate()
.ConditionalFormats.Add("%CX0").Bold = True
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.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
|
|
2321
|
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 Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exg2antt1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXG2ANTTLib.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.EXG2ANTTLib.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
|
|
2320
|
How can I add a total column
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
.Refresh()
End With
End Sub
Dim g1,g2,h,r
With Exg2antt1
.FreezeEvents(True)
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Description")
With .Add("Qty")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"sum(current,rec,%1)")
End With
With .Add("Price")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exTotalColumn,"avg(current,rec,%2)")
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.set_Def(exontrol.EXG2ANTTLib.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
|
|
2319
|
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
With Exg2antt1
With .Chart
.set_PaneWidth(False,0)
.LevelCount = 2
.ToolTip = ""
End With
End With
|
|
2318
|
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
End With
.AntiAliasing = True
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStyle,2)
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkWidth,2)
h3 = .AddItem("Task 4")
.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStyle,1)
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkWidth,2)
End With
.EndUpdate()
End With
|
|
2317
|
How can I change the tooltip's margins (method 2)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
.ShowToolTip(.Chart.get_BarFromPoint(-1,-1))
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.ToolTipMargin = "16,8"
.Columns.Add("Def")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.set_PaneWidth(False,64)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"...")
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"A","A")
.AddBar(h,"Task",#1/5/2010#,#1/8/2010#,"B","B")
End With
.EndUpdate()
End With
|
|
2316
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exg2antt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.MouseMoveEvent
With Exg2antt1
.ShowToolTip(.Chart.get_BarFromPoint(-1,-1))
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.ToolTipMargin = "16,8"
.Columns.Add("Def")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.set_PaneWidth(False,64)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"...")
End With
With .Items
h = .AddItem("Task")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"A","A")
.AddBar(h,"Task",#1/5/2010#,#1/8/2010#,"B","B")
End With
.EndUpdate()
End With
|
|
2315
|
exShowExtendedLinks
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 24
.HeaderHeight = 20
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.AntiAliasing = True
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,48)
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.FirstVisibleDate = #1/10/2024#
With .get_Level(1)
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelDotLine)
End With
.AllowResizeChart = &Hfffffef9 Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
End With
With .Items
.AddBar(.AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1")
.AddBar(.AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2")
.AddBar(.AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3")
.AddBar(.AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4")
.AddLink("L13",.get_ItemByIndex(0),"T1",.get_ItemByIndex(2),"T3")
.AddLink("L14",.get_ItemByIndex(0),"T1",.get_ItemByIndex(3),"T4")
.AddLink("L24",.get_ItemByIndex(1),"T2",.get_ItemByIndex(3),"T4")
End With
.EndUpdate()
End With
|
|
2314
|
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 24
.HeaderHeight = 20
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.AntiAliasing = True
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,48)
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.FirstVisibleDate = #1/10/2024#
With .get_Level(1)
.DrawTickLines = exontrol.EXG2ANTTLib.LevelLineEnum.exLevelNoLine
.DrawTickLinesFrom(0,exontrol.EXG2ANTTLib.LevelLineEnum.exLevelDotLine)
End With
.AllowResizeChart = &Hfffffef9 Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
End With
With .Items
.AddBar(.AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1")
.AddBar(.AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2")
.AddBar(.AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3")
.AddBar(.AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4")
.AddLink("L1",.get_ItemByIndex(0),"T1",.get_ItemByIndex(2),"T3")
.AddLink("L2",.get_ItemByIndex(1),"T2",.get_ItemByIndex(3),"T4")
.set_Link("L2",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound,4)
End With
.EndUpdate()
End With
|
|
2313
|
How to use arrows key left/right to move the cursor left/right inside the text
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exLeftArrow,False)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exRightArrow,False)
End With
With .Items
.AddItem("000")
.AddItem("111")
.AddItem("222")
End With
.EndUpdate()
End With
|
|
2312
|
How can I force the cursor to jump to the end of the editor once the user clicks the cell
With Exg2antt1
.BeginUpdate()
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exEditSelStart,-1)
End With
With .Items
.AddItem("000")
.AddItem("111")
.AddItem("222")
End With
.EndUpdate()
End With
|
|
2311
|
How can I show the overview with a different color except or outside the selection
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoD" & _
"iGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKk" & _
"ji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8ao" & _
"fE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmg" & _
"VZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJK" & _
"DoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJ" & _
"JpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLC" & _
"KQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafp" & _
"BE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnS" & _
"TQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZD" & _
"iBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD2" & _
"9j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJc" & _
"YokQ6BgEYJEUIaQOhlHIIESAECAg=")
.BackColorLevelHeader = .BackColor
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,Color.FromArgb(1,0,0))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exOverviewSelOut,Color.FromArgb(240,240,240))
.Chart.OverviewSelBackColor = Color.FromArgb(255,255,255)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exOverviewSelUnit,&H1000000)
With .Chart
.FirstVisibleDate = #6/21/2001#
.set_PaneWidth(False,48)
.OverviewVisible = &H400 Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMinute,"")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exSecond,"")
.AllowOverviewZoom = exontrol.EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#)
.AddBar(.AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#)
.AddBar(.AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#)
End With
.EndUpdate()
End With
|
|
2310
|
Resize the chart using the overview's selection left and right margins (blue)
With Exg2antt1
.BeginUpdate()
.BackColorLevelHeader = .BackColor
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,Color.FromArgb(0,0,255))
With .Chart
.FirstVisibleDate = #6/21/2001#
.set_PaneWidth(False,48)
.OverviewVisible = &H400 Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#)
.AddBar(.AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#)
.AddBar(.AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#)
End With
.EndUpdate()
End With
|
|
2309
|
Resize the chart using the overview's selection left and right margins (black)
With Exg2antt1
.BeginUpdate()
.BackColorLevelHeader = .BackColor
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,Color.FromArgb(1,0,0))
With .Chart
.FirstVisibleDate = #6/21/2001#
.set_PaneWidth(False,48)
.OverviewVisible = &H400 Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#)
.AddBar(.AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#)
.AddBar(.AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#)
End With
.EndUpdate()
End With
|
|
2308
|
Disable temporarily the column's sort, resize and drag and drop
With Exg2antt1
.BeginUpdate()
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.SortBarVisible = True
.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
.AllowGroupBy = True
.HeaderEnabled = False
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Index").FormatColumn = "1 index ``"
.Columns.Add("Pos").FormatColumn = "1 apos ``"
.Columns.Add("Edit").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.GridLineColor = Color.FromArgb(224,224,224)
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,196)
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .get_Level(1)
.DrawGridLines = True
.GridLineColor = Exg2antt1.GridLineColor
End With
End With
.EndUpdate()
End With
|
|
2307
|
Adds a Finish-Start(FS) link (method 3)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.AddLink("Link1",h1,"",h2,"")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2306
|
Adds a Start-Start(SS) link (method 3)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.AddLink("Link1",h1,"",h2,"")
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,0)
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,0)
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2305
|
Adds a Finish-Finish(FF) link (method 3)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.AddLink("Link1",h1,"",h2,"")
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,2)
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2304
|
Adds a Start-Finish(SF) link (method 3)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.AddLink("Link1",h1,"",h2,"")
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos,0)
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos,2)
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2303
|
Adds a Finish-Start(FS) link (method 2)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor,"1FS")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2302
|
Adds a Start-Start(SS) link (method 2)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor,"1SS")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2301
|
Adds a Finish-Finish(FF) link (method 2)
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/3/2001#,#1/6/2001#)
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/6/2001#)
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor,"1FF")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|