|
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
|
|
2300
|
Adds a Start-Finish(SF) 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,"1SF")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2299
|
Adds a Start-Finish(SF) link (method 1)
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.exLinkType,"SF")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2298
|
Adds a Finish-Finish(FF) link (method 1)
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.exLinkType,"FF")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2297
|
Adds a Start-Start(SS) link (method 1)
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.exLinkType,"SS")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2296
|
Adds a Finish-Start(FS) link (method 1)
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.exLinkType,"FS")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2295
|
What is the difference between lags with "W" or without
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
With .Bars.Add("Task:Split")
.Shortcut = "Task"
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
End With
End With
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/6/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/6/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/3/2001#,#1/6/2001#)
.set_ItemBar(.get_ItemByIndex(0),"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor,"2SF:-1,3SF:-1W")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2294
|
What is the difference between lags with "W" or without
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/6/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/6/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/3/2001#,#1/6/2001#)
.set_ItemBar(.get_ItemByIndex(0),"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor,"2SF:-1,3SF:-1W")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2293
|
How can I remove all outgoing links
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/1/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/9/2001#,#1/12/2001#)
.AddLink("L1",.get_ItemByIndex(0),"",.get_ItemByIndex(1),"")
.AddLink("L2",.get_ItemByIndex(1),"",.get_ItemByIndex(2),"")
.set_ItemBar(.get_ItemByIndex(1),"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor,"")
End With
.EndUpdate()
End With
|
|
2292
|
How can I remove all incoming links
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/1/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/9/2001#,#1/12/2001#)
.AddLink("L1",.get_ItemByIndex(0),"",.get_ItemByIndex(1),"")
.AddLink("L2",.get_ItemByIndex(1),"",.get_ItemByIndex(2),"")
.set_ItemBar(.get_ItemByIndex(1),"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor,"")
End With
.EndUpdate()
End With
|
|
2291
|
How do I add a link between two bars (method 3)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h = .AddItem("Item 1")
.AddBar(h,"Task",#1/1/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor,"2SF")
End With
.EndUpdate()
End With
|
|
2290
|
How do I add a link between two bars (method 2)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Name")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
End With
With .Items
h = .AddItem("Item 1")
.AddBar(h,"Task",#1/1/2001#,#1/4/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor,"2SF")
End With
.EndUpdate()
End With
|
|
2289
|
Highlight the selected-link while editing the predecessor/successor column
' AddLink event - Occurs when the user links two bars using the mouse.
Private Sub Exg2antt1_AddLink(ByVal sender As System.Object,ByVal LinkKey As String) Handles Exg2antt1.AddLink
With Exg2antt1
.Items.set_Link(LinkKey,exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound,3)
End With
End Sub
With Exg2antt1
.BeginUpdate()
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ColumnAutoResize = False
.HeaderHeight = 32
.DefaultItemHeight = 28
.BackColorLevelHeader = Color.FromArgb(255,255,255)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exPSLinkColorEditSel,Color.FromArgb(160,160,160))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exPSBarColorEditSel,Color.FromArgb(128,128,128))
With .Columns
.Add("Name").Width = 48
With .Add("Start")
.Width = 48
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,1)
End With
With .Add("End")
.Width = 48
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,543)
End With
With .Add("Predecessor")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,270)
End With
With .Add("Successor")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,271)
End With
With .Add("(I)")
.FormatColumn = "1 index ``"
.Position = 0
.AllowSizing = False
.Width = 20
End With
End With
.ColumnAutoResize = True
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineColor = Color.FromArgb(224,224,224)
.AntiAliasing = True
With .Chart
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,362)
.NonworkingDays = 0
.AllowLinkBars = True
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
.AllowZoomOnFly = &Hfffffcc4 Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Bars.Item("Task")
.Height = 15
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%C5%>")
End With
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#)
.AddBar(.AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#)
.AddBar(.AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#)
.AddLink("L1",.get_ItemByIndex(0),"",.get_ItemByIndex(1),"")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkPDMDelay,1)
.AddLink("L2",.get_ItemByIndex(0),"",.get_ItemByIndex(2),"")
.AddLink("L3",.get_ItemByIndex(2),"",.get_ItemByIndex(1),"")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
|
2288
|
Adding an editable successor column
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("Name").Width = 48
With .Add("Successor")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,271)
End With
With .Add("(I)")
.FormatColumn = "1 index ``"
.Position = 0
.AllowSizing = False
.Width = 20
End With
End With
.ColumnAutoResize = True
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineColor = Color.FromArgb(224,224,224)
.AntiAliasing = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,256)
.AllowLinkBars = True
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#)
.AddBar(.AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#)
.AddBar(.AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#)
.AddLink("L1",.get_ItemByIndex(0),"",.get_ItemByIndex(1),"")
.AddLink("L2",.get_ItemByIndex(0),"",.get_ItemByIndex(2),"")
.AddLink("L3",.get_ItemByIndex(2),"",.get_ItemByIndex(1),"")
End With
.EndUpdate()
End With
|
|
2287
|
Adding an editable predecessor column
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns
.Add("Name").Width = 48
With .Add("Predecessor")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,270)
End With
With .Add("(I)")
.FormatColumn = "1 index ``"
.Position = 0
.AllowSizing = False
.Width = 20
End With
End With
.ColumnAutoResize = True
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineColor = Color.FromArgb(224,224,224)
.AntiAliasing = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,256)
.AllowLinkBars = True
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#)
.AddBar(.AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#)
.AddBar(.AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#)
.AddLink("L1",.get_ItemByIndex(0),"",.get_ItemByIndex(1),"")
.AddLink("L2",.get_ItemByIndex(0),"",.get_ItemByIndex(2),"")
.AddLink("L3",.get_ItemByIndex(2),"",.get_ItemByIndex(1),"")
End With
.EndUpdate()
End With
|
|
2286
|
Adding an Index column
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(True,0)
With .Columns
.Add("Name").Width = 48
With .Add("Index")
.FormatColumn = "1 index ``"
.Position = 0
.AllowSizing = False
.Width = 48
End With
End With
With .Items
.AddItem("Phase A")
.AddItem("Phase B")
.AddItem("Phase C")
End With
.EndUpdate()
End With
|
|
2285
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar manually)
' 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
.Items.AddBar(Item,"Task",DateStart,DateEnd,"","new")
End With
End Sub
With Exg2antt1
.BeginUpdate()
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Index").FormatColumn = "1 index ``"
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.GridLineColor = Color.FromArgb(224,224,224)
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
.NonworkingDays = 0
.AllowLinkBars = True
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarManualEndInclusive
.AllowZoomOnFly = &Hfffffcc4 Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
.GridLineStyle = Exg2antt1.GridLineStyle
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .get_Level(1)
.DrawGridLines = True
.GridLineColor = Exg2antt1.GridLineColor
End With
End With
With .Items
.AddItem("")
.AddItem("")
.AddItem("")
End With
.EndUpdate()
End With
|
|
2284
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar automatically)
With Exg2antt1
.BeginUpdate()
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Index").FormatColumn = "1 index ``"
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.GridLineColor = Color.FromArgb(224,224,224)
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.set_PaneWidth(False,64)
.NonworkingDays = 0
.AllowLinkBars = True
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
.AllowZoomOnFly = &Hfffffcc4 Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or exontrol.EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
.GridLineStyle = Exg2antt1.GridLineStyle
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .get_Level(1)
.DrawGridLines = True
.GridLineColor = Exg2antt1.GridLineColor
End With
End With
.EndUpdate()
End With
|
|
2283
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of working-days when using the DateTickerLabel property (method 4, locale)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.Bars.Add("Task:Split").Shortcut = "Task"
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount,True)
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2282
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 4, locale)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2281
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 3, english locale)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` + ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=en" & _
"d?` (` + (end-start) + `d)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2280
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format for start and end margins, but end margin should display one day before followed by the number of days
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - " & _
"1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2279
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 2)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2278
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 1)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb" & _
" Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#)
End With
.EndUpdate()
End With
|
|
2277
|
How can I display just the end-margin when user resizes the bar
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=value=start?``:value%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2276
|
Is it possible to include the number of days (duration in days, hours, minutes) within the date-label
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)'" & _
") : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - " & _
"=:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2275
|
Is it possible to include the number of days within the date-label
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2274
|
Is it possible to show the date-label with the bar being created, moved or resized instead below the header-bar
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%mmm%> <%d%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2273
|
Date-label customization
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzV" & _
"IUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5w" & _
"RriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKx" & _
"LBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBa" & _
"BYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAgg" & _
"AgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg=")
.Add(2,"CP:1 -2 -2 4 4")
End With
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,&H2000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,Color.FromArgb(255,255,255))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelHAlign,Color.FromArgb(1,0,0))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,Color.FromArgb(1,0,0))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelHMargin,Color.FromArgb(4,0,0))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%mmm%><br><%d%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2272
|
How can I change the visual appearance for the date-label (EBN)
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
"JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
"iC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDy" & _
"YAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6" & _
"iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKH" & _
"wpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9X" & _
"EVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScR" & _
"MDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDm" & _
"U4higJJrGuQAEAQgI")
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,&H1000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,Color.FromArgb(10,10,10))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = " <%mmm%> <%d%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2271
|
How can I change the visual appearance for the date-label (solid colors)
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVertical
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,Color.FromArgb(1,0,0))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,Color.FromArgb(255,255,255))
.Columns.Add("Tasks")
With .Chart
.set_PaneWidth(False,96)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.FirstVisibleDate = #6/20/2005#
.LevelCount = 2
.DrawDateTicker = True
.DateTickerLabel = "<%mmm%> <%d%>"
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#)
.AddBar(.AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#)
End With
.EndUpdate()
End With
|
|
2270
|
Expandable-caption
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exg2antt1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exg2antt1.AnchorClick
With Exg2antt1
Debug.Print( AnchorID )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = True
.TreeColumnIndex = -1
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.BackColorAlternate = Color.FromArgb(240,240,240)
.ShowFocusRect = False
.Columns.Add("Default")
With .Items
.AddItem("before item")
h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " & _
"650;</a><br>+ withdraw(amount: Currency)")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap)
.AddItem("after item")
End With
.EndUpdate()
End With
|
|
2269
|
Expandable-caption
Dim h
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = True
.TreeColumnIndex = -1
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.BackColorAlternate = Color.FromArgb(240,240,240)
.ShowFocusRect = False
.Columns.Add("Default")
With .Items
.AddItem("before item")
h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellSingleLine(h,0,exontrol.EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap)
.AddItem("after item")
End With
.EndUpdate()
End With
|
|
2268
|
Can I change the pattern for a specific bar only
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #12/31/2009#
.LevelCount = 2
.set_PaneWidth(False,96)
With .Bars.Item("Task")
.StartColor = Color.FromArgb(255,255,255)
.EndColor = .Color
End With
End With
.Columns.Add("Types")
With .Items
.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
h = .AddItem("W/h Pattern")
.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern,6)
.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
End With
.EndUpdate()
End With
|
|
2267
|
Force hover-all feature
With Exg2antt1
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With
|
|
2266
|
Disable hover-all feature (Windows 11 or greater)
With Exg2antt1
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With
|
|
2265
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQX" & _
"DcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqH" & _
"XrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LR" & _
"fEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjY" & _
"RgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoM" & _
"FSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6D" & _
"humAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIzi" & _
"aKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA==")
.Add(2,"CP:1 1 1 11 -2")
End With
.DefaultItemHeight = 32
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Milestone")
.Height = 24
.Color32 = &H2000000
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#)
End With
.EndUpdate()
End With
|
|
2264
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDN" & _
"DYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTx" & _
"KIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJ" & _
"WAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHM" & _
"WJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhB" & _
"kSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpO" & _
"xylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg" & _
"+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCI" & _
"mD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg")
.Add(2,"CP:1 -6 0 20 0")
End With
.DefaultItemHeight = 32
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Milestone")
.Height = 28
.Color32 = &H2000000
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#)
End With
.EndUpdate()
End With
|
|
2263
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 32
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Milestone").Height = 28
End With
With .Items
.AddBar(.AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#)
End With
.EndUpdate()
End With
|
|
2262
|
Display the bar's tooltip at runtime
' 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()
.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
|
|
2261
|
Includes the cell's state and user-data to bar's tooltip
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.set_PaneWidth(False,96)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>")
End With
With .Items
h = .AddItem("Machine 1")
.set_CellState(h,0,1)
.set_CellData(h,0,"just some data")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"A","A")
h = .AddItem("Machine 2")
.AddBar(h,"Task",#1/2/2010#,#1/5/2010#,"B","B")
.set_CellData(h,0,"just nother data")
End With
.EndUpdate()
End With
|
|
2260
|
Shows the tooltip of the object moved relative to its default position
' 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("<null>","<null>",Nothing,"+8","+8")
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2259
|
Adds, changes or replaces the title of the object's tooltip
' 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("<null>",.Chart.get_BarFromPoint(-1,-1))
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2258
|
Adds, changes or replaces the object's tooltip
' 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()
.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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2257
|
Shows a new tooltip and title at current position
' 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("new content","new title")
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2256
|
Shows a new tooltip and title moved relative to the current position
' 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("new content","new title",Nothing,"+8","+8")
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2255
|
Displays a different tooltip at a fixed position
' 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("new content","",Nothing,128,128)
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2254
|
Hide the tooltip
' 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("","")
End With
End Sub
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,"<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>")
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
|
|
2253
|
I need 2 bars that are linked together and cannot be moved/splitted alone (moving one should move the two bars, like a « Group » of bars). How can I achieve that
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,96)
.LevelCount = 2
End With
With .Items
.AddItem()
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/5/2001 0:00:00 PM#,#1/7/2001#,"T1")
.set_ItemBar(h1,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.AddBar(h1,"Task",#1/3/2001#,#1/4/2001 0:00:00 PM#,"T2")
.set_ItemBar(h1,"T2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.GroupBars(h1,"T1",True,h1,"T2",True,27,0)
.AddItem()
End With
.EndUpdate()
End With
|
|
2252
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
' ToolTip event - Fired when the control prepares the object's tooltip.
Private Sub Exg2antt1_ToolTip(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef Visible As Boolean,ByRef X As Integer,ByRef Y As Integer,ByVal CX As Integer,ByVal CY As Integer) Handles Exg2antt1.ToolTip
With Exg2antt1
.ShowToolTip(.Chart.get_BarFromPoint(-1,-1))
End With
End Sub
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,"...")
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")
.AddBar(h,"Task",#1/8/2010#,#1/11/2010#,"C","C")
.GroupBars(h,"A",False,h,"B",True,39)
.GroupBars(h,"B",False,h,"C",True,39)
End With
.EndUpdate()
End With
|
|
2251
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is how can I specify this feature for bars already created
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 32
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.LevelCount = 2
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"only horizontal")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionVOffset,18)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,"A")
.AddBar(.AddItem("Item 2"),"Task",#1/4/2001#,#1/6/2001#,"B")
.AddBar(.AddItem("Item 3"),"Task",#1/3/2001#,#1/5/2001#,"C")
.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,False)
End With
.EndUpdate()
End With
|
|
2250
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is can I disable this for particular item-bars
Dim h
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 32
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.LevelCount = 2
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"anywhere")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionVOffset,18)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,"A")
h = .AddItem("Item 2")
.AddBar(h,"Task",#1/4/2001#,#1/6/2001#,"B","only horiontal")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,False)
.AddBar(.AddItem("Item 3"),"Task",#1/3/2001#,#1/5/2001#,"C")
End With
.EndUpdate()
End With
|
|
2249
|
I need the top row to display months, while the second to show units in weeks, but can 10 by 10 days days. Is it possible
With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,0)
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.FirstVisibleDate = #1/1/2001#
.UnitWidth = 30
.LevelCount = 2
.get_Level(0).Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
With .get_Level(1)
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exDay
.Count = 10
End With
End With
.EndUpdate()
End With
|
|
2248
|
Limit the chart's margins when using the CopyTo method
Dim var_CopyTo
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Tasks")
With .Add("Start")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,1)
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Add("End")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,2)
.Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
End With
End With
With .Chart
.set_PaneWidth(False,196)
.LevelCount = 2
.ShowEmptyBars = 1
.FirstVisibleDate = #1/1/2009#
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2009#,#1/7/2009#)
.AddBar(.AddItem("Task 2"),"Task",#1/4/2009#,#1/9/2009#)
End With
With .Chart
.StartPrintDate = #1/4/2009#
.EndPrintDate = #1/5/2009#
End With
var_CopyTo = .get_CopyTo("c:/temp/xtest.pdf")
Debug.Print( "Look for C:\Temp\xtest.pdf file." )
.EndUpdate()
End With
|
|
2247
|
I want to always keep the bottom item stationary. It can always display even when scrolling vertically. The bar placed at the bottom item is must be movable to other items
Dim color,h
With Exg2antt1
color = 15790320
.BeginUpdate()
.Debug = True
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ShowLockedItems = True
With .Chart
.set_PaneWidth(False,128)
.LevelCount = 2
.FirstVisibleDate = #12/31/2015#
.Bars.Item("Task").set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
End With
.Columns.Add("Column")
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,3)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_ItemBackColor(h,color)
Exg2antt1.Chart.set_ItemBackColor(h,color)
.set_CellValue(h,0,"locked-top 1")
.AddBar(h,"Task",#1/4/2016#,#1/8/2016#,"T1")
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
.set_ItemBackColor(h,color)
Exg2antt1.Chart.set_ItemBackColor(h,color)
.set_CellValue(h,0,"locked-top 2")
.AddBar(h,"Task",#1/5/2016#,#1/9/2016#,"T2")
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,2)
.set_SelectItem(h,False)
.set_ItemDivider(h,0)
.set_ItemHeight(h,2)
.AddBar(.AddItem("un-locked item 1"),"Task",#1/4/2016#,#1/8/2016#,"T3")
.AddBar(.AddItem("un-locked item 2"),"Task",#1/5/2016#,#1/9/2016#,"T4")
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exMiddle,3)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exMiddle,0)
.set_SelectItem(h,False)
.set_ItemDivider(h,0)
.set_ItemHeight(h,2)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exMiddle,1)
.set_ItemBackColor(h,color)
Exg2antt1.Chart.set_ItemBackColor(h,color)
.set_CellValue(h,0,"locked-bottom 1")
.AddBar(h,"Task",#1/4/2016#,#1/8/2016#,"T5")
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exMiddle,2)
.set_ItemBackColor(h,color)
Exg2antt1.Chart.set_ItemBackColor(h,color)
.set_CellValue(h,0,"locked-bottom 2")
.AddBar(h,"Task",#1/5/2016#,#1/9/2016#,"T6")
End With
.EndUpdate()
End With
|
|
2246
|
How can I get a cell that shows the sum of a column of minutes in hours + minutes format
Dim h
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Columns.Add("Minutes")
.SortType = exontrol.EXG2ANTTLib.SortTypeEnum.SortNumeric
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exInteger
End With
End With
With .Items
.AddItem(10)
.AddItem(20)
.AddItem(30)
.AddItem(40)
.AddItem(50)
h = .AddItem("sum(all,dir,dbl(%0))")
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exTotalField Or exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellHAlignment(h,0,exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')")
End With
.EndUpdate()
End With
|
|
2245
|
Ensure that a bar fits the chart's visible area (unique keys)
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.FirstVisibleDate = #3/26/2023#
.LevelCount = 2
.set_PaneWidth(False,128)
End With
.Columns.Add("Tasks")
With .Items
.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/12/2001#,"T1")
.AddBar(.AddItem("Task B"),"Task",#1/20/2001#,#1/31/2001#,"T2")
.EnsureVisibleBar(0,"T1")
End With
.EndUpdate()
End With
|
|
2244
|
Ensure that a bar fits the chart's visible area
Dim h1,h2
With Exg2antt1
.BeginUpdate()
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Chart
.FirstVisibleDate = #3/26/2023#
.LevelCount = 2
.set_PaneWidth(False,128)
End With
.Columns.Add("Tasks")
With .Items
h1 = .AddItem("Task A")
.AddBar(h1,"Task",#1/2/2001#,#1/12/2001#,"T1")
h2 = .AddItem("Task B")
.AddBar(h2,"Task",#1/20/2001#,#1/31/2001#,"T2")
.EnsureVisibleBar(h1,"T1")
End With
.EndUpdate()
End With
|
|
2243
|
Is it possible to change the visual appearance for the frame to create newly bar by drag and drop
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exChartCreateBar,&H1000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCreateBarHeight,Color.FromArgb(15,0,0))
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.set_PaneWidth(False,128)
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Color32 = &H1000000
.Height = 15
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/7/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#)
End With
.EndUpdate()
End With
|
|
2242
|
Highlight the match once the filter is applied
' FilterChange event - Occurs when the filter was changed.
Private Sub Exg2antt1_FilterChange(ByVal sender As System.Object) Handles Exg2antt1.FilterChange
Dim format
With Exg2antt1
format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
.Columns.Item(0).FormatColumn = format
.Columns.Item(1).FormatColumn = format
.Columns.Item(2).FormatColumn = format
End With
End Sub
Dim h0
With Exg2antt1
.BeginUpdate()
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ColumnAutoResize = True
.ContinueColumnScroll = False
.MarkSearchColumn = False
.SearchColumnIndex = 1
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 23
.BackColorLevelHeader = .BackColor
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarBackColor = .BackColor
.FilterBarPromptPattern = "and"
With .Columns
With .Add("Name")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "lower(value)"
End With
With .Add("Title")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "lower(value)"
End With
With .Add("City")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "lower(value)"
End With
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
2241
|
The count of filtered items includes the group-parents. How can I exclude them from count
With Exg2antt1
.BeginUpdate()
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Flat
.HeaderHeight = 24
.SortBarHeight = 28
.SortBarVisible = True
.AllowGroupBy = True
.Columns.Add("Col 1")
.Columns.Add("Col 2")
With .Items
.set_CellValue(.AddItem("219 Smith"),1,"Ignacio 1234")
.set_CellValue(.AddItem("1666 County Road 309A"),1,"897 Manassa")
.set_CellValue(.AddItem("38 Lone Pine"),1,"Durango 11")
.set_CellValue(.AddItem("612 Jachim Street"),1,"Lamar 222")
End With
.Layout = "MultipleSort=""C1:1"""
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "12"
.FilterBarBackColor = .BackColor
.EndUpdate()
End With
|
|
2240
|
Is it possible to display the count of filtered items
With Exg2antt1
.BeginUpdate()
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.Columns.Add("Col 1")
.Columns.Add("Col 2")
With .Items
.set_CellValue(.AddItem("219 Smith"),1,"Ignacio 1234")
.set_CellValue(.AddItem("1666 County Road 309A"),1,"897 Manassa")
.set_CellValue(.AddItem("38 Lone Pine"),1,"Durango 11")
.set_CellValue(.AddItem("612 Jachim Street"),1,"Lamar 222")
End With
.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
.FilterBarPromptVisible = exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "12"
.FilterBarBackColor = .BackColor
.EndUpdate()
End With
|
|
2239
|
ADOR, MDB (JET)
' 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
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3)
End With
.DataSource = rs
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)
.EndUpdate()
End With
|
|
2238
|
exOverlaidBarsOffset + exOverlaidBarTransparent + exBarCanMoveToAnother
Dim h
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.Columns.Add("Task")
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
.set_Overlaid(exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent,70)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
End With
End With
.ItemsAllowSizing = exontrol.EXG2ANTTLib.ItemsAllowSizingEnum.exResizeItem
With .Items
.set_SelectableItem(.AddItem(),False)
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"A2")
.AddBar(h,"Task",#1/4/2001#,#1/7/2001#,"A3")
.set_ItemHeight(h,64)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/10/2001#,"A4")
.AddBar(h,"Task",#1/8/2001#,#1/12/2001#,"A5")
.set_SelectableItem(.AddItem(),False)
End With
.EndUpdate()
End With
|
|
2237
|
Editors (ImageSize = 32)
Dim h
With Exg2antt1
.BeginUpdate()
.ImageSize = 32
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Font.Size = 16
.FilterBarFont.Size = Exg2antt1.Font.Size
.ToolTipFont.Size = Exg2antt1.Font.Size
.Indent = 26
.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.BackColorHeader32 = &H4c6c6c6
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.ShowFocusRect = False
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.Unchecked,16777216)
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.Checked,33554432)
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.PartialChecked,50331648)
.Columns.Add("Editors").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
With .Items
.get_CellEditor(.AddItem("(ReadOnly)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ReadOnly
.get_CellEditor(.AddItem("(EditType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
h = .AddItem("Value 1")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
.AddItem(1,"Value 1",1)
.AddItem(2,"Value 2",2)
.AddItem(3,"Value 3",3)
End With
.set_FormatCell(h,0,"value + ' (DropDownType)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.AddItem(1,"Nancy Davolio",1)
.AddItem(2,"Andrew Fuller",2)
.AddItem(3,"Janet Leverling",3)
.AddItem(4,"Peacock Margaret",3)
.AddItem(5,"Steven Buchanan",2)
.AddItem(6,"Michael Suyama",1)
.AddItem(7,"Robert King",2)
.AddItem(8,"Laura Callahan",3)
.AddItem(9,"Anne Dodsworth",2)
End With
.set_FormatCell(h,0,"value + ' (DropDownList - single column list)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.AddItem(1,"Nancy Davolio",1)
.AddItem(2,"Andrew Fuller",2)
.InsertItem(3,"Janet Leverling",3,2)
.InsertItem(4,"Peacock Margaret",3,2)
.InsertItem(5,"Steven Buchanan",2,2)
.InsertItem(6,"Michael Suyama",1,5)
.InsertItem(7,"Robert King",2,2)
.InsertItem(8,"Laura Callahan",3,2)
.InsertItem(9,"Anne Dodsworth",2,5)
.ExpandAll()
End With
.set_FormatCell(h,0,"value + ' (DropDownList - single column tree)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
End With
.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns list)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
.ExpandAll()
End With
.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns tree)'")
h = .AddItem(100)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
.set_FormatCell(h,0,"value + ' (SpinType)'")
.get_CellEditor(.AddItem("(MemoType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MemoType
h = .AddItem(3)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CheckListType
.AddItem(1,"Border",1)
.AddItem(2,"Single",2)
.AddItem(4,"Frame",3)
End With
.set_FormatCell(h,0,"value + ' (CheckListType)'")
h = .AddItem("193.226.40.161")
With .get_CellEditor(h,0)
.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
End With
.set_FormatCell(h,0,"value + ' (MaskType)'")
h = .AddItem(65280)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
End With
.set_FormatCell(h,0,"value + ' (ColorType)'")
h = .AddItem("Tahoma")
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.FontType
.set_FormatCell(h,0,"value + ' (FontType)'")
h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
"JDQNg/p4AAdoC")
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PictureType
.set_FormatCell(h,0,"value + ' (PictureType)'")
.get_CellEditor(.AddItem("(ButtonType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ButtonType
h = .AddItem(25)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ProgressBarType
.set_FormatCell(h,0,"value + ' (ProgressBarType)'")
h = .AddItem("Value 1")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
.AddItem(1,"Value 1",1)
.AddItem(2,"Value 2",2)
.AddItem(3,"Value 3",3)
End With
.set_FormatCell(h,0,"value + ' (PickEditType)'")
.get_CellEditor(.AddItem("(LinkEditType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.LinkEditType
With .get_CellEditor(.AddItem("(UserEditorType)"),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.UserEditorType
.UserEditor("Exontrol.ComboBox","")
With .UserEditorObject
End With
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorListType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exColorListShowName,True)
End With
.set_FormatCell(h,0,"value + ' (ColorListType)'")
.get_CellEditor(.AddItem(65280),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorListType
.get_CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MemoDropDownType
With .get_CellEditor(.AddItem(-1),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CheckValueType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exCheckValue2,1)
End With
h = .AddItem(50)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderWidth,-60)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency,10)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickStyle,2)
End With
.set_FormatCell(h,0,"value + ' (SliderType)'")
h = .AddItem(100)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CalculatorType
.set_FormatCell(h,0,"value + ' (CalculatorType)'")
.EnsureVisibleItem(h)
End With
.EndUpdate()
End With
|
|
2236
|
Editors (ImageSize = 16, default)
Dim h
With Exg2antt1
.BeginUpdate()
.ImageSize = 16
.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
With .VisualAppearance
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.Columns.Add("Editors").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
With .Items
.get_CellEditor(.AddItem("(ReadOnly)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ReadOnly
.get_CellEditor(.AddItem("(EditType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
h = .AddItem("Value 1")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
.AddItem(1,"Value 1",1)
.AddItem(2,"Value 2",2)
.AddItem(3,"Value 3",3)
End With
.set_FormatCell(h,0,"value + ' (DropDownType)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.AddItem(1,"Nancy Davolio",1)
.AddItem(2,"Andrew Fuller",2)
.AddItem(3,"Janet Leverling",3)
.AddItem(4,"Peacock Margaret",3)
.AddItem(5,"Steven Buchanan",2)
.AddItem(6,"Michael Suyama",1)
.AddItem(7,"Robert King",2)
.AddItem(8,"Laura Callahan",3)
.AddItem(9,"Anne Dodsworth",2)
End With
.set_FormatCell(h,0,"value + ' (DropDownList - single column list)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.AddItem(1,"Nancy Davolio",1)
.AddItem(2,"Andrew Fuller",2)
.InsertItem(3,"Janet Leverling",3,2)
.InsertItem(4,"Peacock Margaret",3,2)
.InsertItem(5,"Steven Buchanan",2,2)
.InsertItem(6,"Michael Suyama",1,5)
.InsertItem(7,"Robert King",2,2)
.InsertItem(8,"Laura Callahan",3,2)
.InsertItem(9,"Anne Dodsworth",2,5)
.ExpandAll()
End With
.set_FormatCell(h,0,"value + ' (DropDownList - single column tree)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
End With
.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns list)'")
h = .AddItem(1)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.DropDownAutoWidth = exontrol.EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption,"Name¦Title¦City¦Phone")
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth,"312¦¦¦96")
.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
.ExpandAll()
End With
.set_FormatCell(h,0,"value + ' (DropDownList - multiple columns tree)'")
h = .AddItem(100)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SpinType
.set_FormatCell(h,0,"value + ' (SpinType)'")
.get_CellEditor(.AddItem("(MemoType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MemoType
h = .AddItem(3)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CheckListType
.AddItem(1,"Border",1)
.AddItem(2,"Single",2)
.AddItem(4,"Frame",3)
End With
.set_FormatCell(h,0,"value + ' (CheckListType)'")
h = .AddItem("193.226.40.161")
With .get_CellEditor(h,0)
.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
End With
.set_FormatCell(h,0,"value + ' (MaskType)'")
h = .AddItem(65280)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
End With
.set_FormatCell(h,0,"value + ' (ColorType)'")
h = .AddItem("Tahoma")
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.FontType
.set_FormatCell(h,0,"value + ' (FontType)'")
h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
"JDQNg/p4AAdoC")
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PictureType
.set_FormatCell(h,0,"value + ' (PictureType)'")
.get_CellEditor(.AddItem("(ButtonType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ButtonType
h = .AddItem(25)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ProgressBarType
.set_FormatCell(h,0,"value + ' (ProgressBarType)'")
h = .AddItem("Value 1")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
.AddItem(1,"Value 1",1)
.AddItem(2,"Value 2",2)
.AddItem(3,"Value 3",3)
End With
.set_FormatCell(h,0,"value + ' (PickEditType)'")
.get_CellEditor(.AddItem("(LinkEditType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.LinkEditType
With .get_CellEditor(.AddItem("(UserEditorType)"),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.UserEditorType
.UserEditor("Exontrol.ComboBox","")
With .UserEditorObject
End With
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorListType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exColorListShowName,True)
End With
.set_FormatCell(h,0,"value + ' (ColorListType)'")
.get_CellEditor(.AddItem(65280),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorListType
.get_CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MemoDropDownType
With .get_CellEditor(.AddItem(-1),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CheckValueType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exCheckValue2,1)
End With
h = .AddItem(50)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderWidth,-60)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency,10)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exSliderTickStyle,2)
End With
.set_FormatCell(h,0,"value + ' (SliderType)'")
h = .AddItem(100)
.get_CellEditor(h,0).EditType = exontrol.EXG2ANTTLib.EditTypeEnum.CalculatorType
.set_FormatCell(h,0,"value + ' (CalculatorType)'")
.EnsureVisibleItem(h)
End With
.EndUpdate()
End With
|
|
2235
|
Is it possible to limit the overlaid to two rows only
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.NonworkingDays = 0
.FirstVisibleDate = #9/17/2006#
.set_PaneWidth(False,64)
.LevelCount = 2
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"Task",#9/26/2006#,#10/6/2006#,"K1","K1")
.AddBar(h1,"Task",#10/5/2006#,#10/10/2006#,"K3","K2")
.AddBar(h1,"Task",#9/21/2006#,#9/27/2006#,"T1","T")
.set_ItemBar(0,"<T*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65280)
.set_ItemBar(0,"<K*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey,"Level0")
.set_ItemBar(0,"<T*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey,"Level1")
.set_ItemMaxHeight(h1,26)
End With
.EndUpdate()
End With
|
|
2234
|
Is it possible to sort the bars
Dim h1,h2,h3,h4,h5
With Exg2antt1
.BeginUpdate()
.AntiAliasing = True
.Columns.Add("Task").AllowSort = False
With .Columns.Add("Name")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,0)
.SortType = exontrol.EXG2ANTTLib.SortTypeEnum.SortString
.Visible = False
End With
With .Chart
.FirstVisibleDate = #12/31/2000#
.set_PaneWidth(False,48)
.LevelCount = 2
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.Bars.Copy("Task","Red").Color = Color.FromArgb(255,0,0)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingDaysColor = Color.FromArgb(224,224,224)
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Red",#1/2/2001#,#1/5/2001#)
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/5/2001#)
h4 = .AddItem("Task 4")
.AddBar(h4,"Red",#1/2/2001#,#1/5/2001#)
h5 = .AddItem("Task 5")
.AddBar(h5,"Red",#1/2/2001#,#1/5/2001#)
.AddLink("L1",h1,"",h3,"")
.AddLink("L2",h2,"",h4,"")
.AddLink("L3",h3,"",h4,"")
.AddLink("L4",h4,"",h5,"")
.SchedulePDM(0,"")
End With
.Chart.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
.Columns.Item("Name").SortOrder = exontrol.EXG2ANTTLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
2233
|
Re-order the cell's caption, icons and images/pictures
Dim h
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
With .Columns.Add("ToLeft")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
End With
With .Columns.Add("ToRight")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
End With
.DefaultItemHeight = 32
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
With .Items
h = .AddItem("Caption")
.set_CellImage(h,0,2)
.set_CellImages(h,0,"1,2")
.set_CellPicture(h,0,Exg2antt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
.set_CellValue(h,1,.get_CellValue(h,0))
.set_CellHAlignment(h,1,exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment)
.set_CellImage(h,1,.get_CellImage(h,0))
.set_CellImages(h,1,"2,1")
.set_CellPicture(h,1,.get_CellPicture(h,0))
h = .AddItem("<b>HTML</b> <off 4>Caption")
.set_CellValueFormat(h,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellImage(h,0,2)
.set_CellImages(h,0,"1,2")
.set_CellPicture(h,0,Exg2antt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
.set_CellValue(h,1,.get_CellValue(h,0))
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_CellHAlignment(h,1,exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment)
.set_CellImage(h,1,.get_CellImage(h,0))
.set_CellImages(h,1,"2,1")
.set_CellPicture(h,1,.get_CellPicture(h,0))
End With
.EndUpdate()
End With
|
|
2232
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
' AddColumn event - Fired after a new column has been added.
Private Sub Exg2antt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXG2ANTTLib.Column) Handles Exg2antt1.AddColumn
' Column.Def(48) = 2
' Column.Def(49) = 2
End Sub
' 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.AddBar(Item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
End With
End Sub
Dim h,hR
With Exg2antt1
.BeginUpdate()
.ImageSize = 32
.DefaultItemHeight = 36
.HeaderHeight = .DefaultItemHeight
.SortBarHeight = .DefaultItemHeight
.Font.Size = 16
.FilterBarFont.Size = Exg2antt1.Font.Size
.ToolTipFont.Size = Exg2antt1.Font.Size
.Indent = 26
With .Chart
.FirstVisibleDate = #1/1/2022#
.Bars.Item("Task").Height = 22
End With
.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.BackColorHeader32 = &H4c6c6c6
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.Unchecked,16777216)
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.Checked,33554432)
.set_CheckImage(exontrol.EXG2ANTTLib.CheckStateEnum.PartialChecked,50331648)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ShowFocusRect = False
.SortBarVisible = True
.AllowGroupBy = True
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.FilterBarDropDownHeight = 1
With .Columns.Add("Check")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
.Width = 128
.DisplayFilterButton = True
.FilterList = exontrol.EXG2ANTTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.AllowSort = False
.Width = 48
.AllowSizing = False
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterList = exontrol.EXG2ANTTLib.FilterListEnum.exShowExclude Or exontrol.EXG2ANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXG2ANTTLib.FilterListEnum.exSortItemsAsc
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exImage
.DisplayExpandButton = True
.ExpandColumns = "1,2,3"
.Width = 128
.HeaderImage = 1
End With
With .Columns.Add("Images")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 196
.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
End With
.Columns.Item("Pos").Position = 3
With .Items
hR = .AddItem("Root")
.set_ItemDivider(hR,0)
.set_ItemDividerLine(hR,exontrol.EXG2ANTTLib.DividerLineEnum.EmptyLine)
h = .InsertItem(hR,Nothing,"Child A")
.set_CellImage(h,2,1)
.set_CellImages(h,3,"1,2,3")
.set_CellValue(h,3,"123")
h = .InsertItem(hR,Nothing,"Child B")
.set_CellState(h,0,1)
.set_CellImage(h,2,3)
.set_CellImages(h,3,"2,3,1")
.set_CellValue(h,3,"231")
.set_SelectItem(h,True)
h = .InsertItem(hR,Nothing,"Child C")
.set_CellImage(h,2,2)
.set_CellState(h,3,1)
.set_CellValue(h,3,"312")
.set_CellImages(h,3,"3,1,2")
.set_ExpandItem(hR,True)
End With
.EndUpdate()
End With
|
|
2231
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
' AddColumn event - Fired after a new column has been added.
Private Sub Exg2antt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXG2ANTTLib.Column) Handles Exg2antt1.AddColumn
' Column.Def(48) = 2
' Column.Def(49) = 2
End Sub
' 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.AddBar(Item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
End With
End Sub
Dim h,hR
With Exg2antt1
.BeginUpdate()
.Chart.FirstVisibleDate = #1/1/2022#
.ImageSize = 16
.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
With .VisualAppearance
.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
End With
.BackColorHeader32 = &H4c6c6c6
.SelBackColor32 = &H4000000
.SelForeColor = Color.FromArgb(0,0,1)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.ShowFocusRect = False
.SortBarVisible = True
.AllowGroupBy = True
.BackColorSortBar = .BackColor
.BackColorLevelHeader = .BackColor
.FilterBarDropDownHeight = 1
With .Columns.Add("Check")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.PartialCheck = True
.Width = 128
.DisplayFilterButton = True
.FilterList = exontrol.EXG2ANTTLib.FilterListEnum.exShowCheckBox
End With
With .Columns.Add("Pos")
.FormatColumn = "1 pos ``"
.AllowSort = False
.Width = 48
.AllowSizing = False
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .Columns.Add("Image")
.DisplayFilterButton = True
.FilterList = exontrol.EXG2ANTTLib.FilterListEnum.exShowExclude Or exontrol.EXG2ANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXG2ANTTLib.FilterListEnum.exSortItemsAsc
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exImage
.DisplayExpandButton = True
.ExpandColumns = "1,2,3"
.Width = 128
.HeaderImage = 1
End With
With .Columns.Add("Images")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.Width = 196
.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
End With
.Columns.Item("Pos").Position = 3
With .Items
hR = .AddItem("Root")
.set_ItemDivider(hR,0)
.set_ItemDividerLine(hR,exontrol.EXG2ANTTLib.DividerLineEnum.EmptyLine)
h = .InsertItem(hR,Nothing,"Child A")
.set_CellImage(h,2,1)
.set_CellImages(h,3,"1,2,3")
.set_CellValue(h,3,"123")
h = .InsertItem(hR,Nothing,"Child B")
.set_CellState(h,0,1)
.set_CellImage(h,2,3)
.set_CellImages(h,3,"2,3,1")
.set_CellValue(h,3,"231")
.set_SelectItem(h,True)
h = .InsertItem(hR,Nothing,"Child C")
.set_CellImage(h,2,2)
.set_CellState(h,3,1)
.set_CellValue(h,3,"312")
.set_CellImages(h,3,"3,1,2")
.set_ExpandItem(hR,True)
End With
.EndUpdate()
End With
|
|
2230
|
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Clip")
.ScrollBySingleLine = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
With .Chart
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.FirstVisibleDate = #12/23/2000#
.LevelCount = 2
.set_PaneWidth(False,216)
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
.Color = Color.FromArgb(164,164,164)
.StartColor = Color.FromArgb(240,240,240)
.EndColor = .StartColor
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.Height = 15
End With
.MinUnitWidth = .UnitWidth
End With
With .Items
h = .AddItem("no clip, (0-2)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, right(<b>2</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,2)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, center(<b>1</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,1)
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, left(<b>0</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,0)
h = .AddItem("clip, inside (3-5)")
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"clip, inside, right(<b>5</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,5)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"clip, inside, center(<b>4</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,4)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"clip, inside, left(<b>3</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,3)
h = .AddItem("hide on min width, clip if not fit, inside (6-8)")
.AddBar(h,"Task",#12/26/2000#,#1/10/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide on min width, clip if not fit, inside, right(<b>8</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,8)
.AddBar(h,"Task",#12/26/2000#,#1/10/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide on min width, clip if not fit, inside, center(<b>7</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,7)
.AddBar(h,"Task",#12/26/2000#,#1/10/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide on min width, clip if not fit, inside, left(<b>6</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,6)
h = .AddItem("hide if not fit, no clip, inside (9-11)")
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide if not fit, no clip, inside, right(<b>11</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,11)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide if not fit, no clip, center(<b>10</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,10)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"hide if not fit, no clip, inside, left(<b>9</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,9)
h = .AddItem("no clip, inside, outside (12-14)")
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, inside, outside, right(<b>14</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,14)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, inside, outside, center(<b>13</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,13)
.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, inside, outside, left(<b>12</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,12)
h = .AddItem("no clip, outside (16-18)")
.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K1")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, outside, right(<b>18</b>)")
.set_ItemBar(h,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,18)
.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, outside, center(<b>17</b>)")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,17)
.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K3")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption,"no clip, outside, left(<b>16</b>)")
.set_ItemBar(h,"K3",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign,16)
End With
.EndUpdate()
End With
|
|
2229
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
' AddColumn event - Fired after a new column has been added.
Private Sub Exg2antt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXG2ANTTLib.Column) Handles Exg2antt1.AddColumn
With Exg2antt1
With Column
End With
End With
End Sub
' 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
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
With .Chart
.FirstVisibleDate = #8/4/1994#
.LevelCount = 2
.set_PaneWidth(False,290)
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)
.Columns.Item("ShipVia").Position = 2
.EndUpdate()
End With
|
|
2228
|
Does the control display images from database (DAO)
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DefaultItemHeight = 48
With New DAO.PrivDBEngine()
rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb").OpenRecordset("Employees")
End With
.DataSource = rs
With .Columns.Item("Photo")
.Position = 1
.Width = 128
End With
.EndUpdate()
End With
|
|
2227
|
Does the control display images from database (ADO)
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
.DefaultItemHeight = 48
rs = New ADODB.Recordset()
With rs
.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
With .Columns.Item("Photo")
.Position = 1
.Width = 128
End With
.EndUpdate()
End With
|
|
2226
|
Is it possible to set from code, a column sort without being inserted in the sortbar
Dim rs
With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3)
End With
.DataSource = rs
.SortBarVisible = True
.Layout = "singlesort=""C1:1"""
.EndUpdate()
End With
|
|
2225
|
Is it possible to view all events the control fires
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Exg2antt1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Exg2antt1.BeforeExpandItem
With Exg2antt1
.Refresh()
End With
End Sub
' Event event - Notifies the application once the control fires an event.
Private Sub Exg2antt1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exg2antt1.Event
With Exg2antt1
Debug.Print( .get_EventParam(-2) )
End With
End Sub
Dim h,h1
With Exg2antt1
.BeginUpdate()
.Indent = 16
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.HasLines = exontrol.EXG2ANTTLib.HierarchyLineEnum.exSolidLine
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/20/2006#
.ShowCollapsedBars = True
.LevelCount = 2
.set_PaneWidth(False,128)
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.Color = Color.FromArgb(0,0,0)
.StartColor = Color.FromArgb(196,196,196)
.EndColor = Color.FromArgb(196,196,196)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBox
End With
End With
With .Items
h = .AddItem("Project 1")
h1 = .InsertItem(h,Nothing,"Resources")
.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
h = .AddItem("Project 2")
h1 = .InsertItem(h,Nothing,"Resources")
.AddBar(h1,"Task",#9/21/2006#,#9/25/2006#,"A")
.AddBar(h1,"Task",#9/24/2006#,#9/28/2006#,"B")
.AddBar(h1,"Task",#9/27/2006#,#9/29/2006#,"C")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
2224
|
How can I find all occurences of the giving value, within a column
With Exg2antt1
.BeginUpdate()
.Columns.Add("Default")
With .Columns.Add("Pos")
.FormatColumn = "1 pos 'A-Z'"
.Position = 0
.AllowSizing = False
.Width = 32
.Enabled = False
End With
With .Columns.Add("Index")
.FormatColumn = "0 index ''"
.AllowSizing = False
.Width = 32
.Enabled = False
End With
With .Items
.AddItem("A")
.AddItem("A")
.AddItem("A")
Debug.Print( .get_CellCaption(.get_FindItem("A",0,0),1) )
Debug.Print( .get_CellCaption(.get_FindItem("A",0,1),1) )
Debug.Print( .get_CellCaption(.get_FindItem("A",0,2),1) )
End With
.EndUpdate()
End With
|
|
2223
|
How can I specify the bar's legend within the control's histogram (sample 2, expression)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Machines")
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
.HistogramPattern = .Pattern
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramCumulativeOriginalColorBars = exontrol.EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
.HistogramItems = -4
.HistogramRulerLinesColor = Color.FromArgb(102,102,102)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHistLegend,"<fgcolor=666666><%=lower(%3)%>")
End With
.HistogramHeight = 64
.HistogramVisible = True
End With
With .Items
h = .AddItem("Machine 1")
.AddBar(h,"Task",#1/2/2001#,#1/9/2001#,1,"Bill")
.AddBar(h,"Task",#1/3/2001#,#1/10/2001#,2,"Laura")
.set_ItemBar(h,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16776960)
h = .AddItem("Machine 2")
.AddBar(h,"Task",#1/12/2001#,#1/19/2001#,3,"Bill")
.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,4,"Laura")
.AddBar(h,"Task",#1/10/2001#,#1/14/2001#,5,"Bill")
.set_ItemBar(h,4,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16776960)
.AddBar(.AddItem("Machine 3"),"Task",#1/2/2001#,#1/9/2001#,6,"Bill")
End With
.EndUpdate()
End With
|
|
2222
|
How can I specify the bar's legend within the control's histogram (sample 1)
Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Machines")
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderVisible = exontrol.EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exHLines
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
With .Bars.Item("Task")
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
.HistogramPattern = .Pattern
.HistogramType = exontrol.EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
.HistogramCumulativeOriginalColorBars = exontrol.EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
.HistogramItems = -4
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"Bill")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHistLegend,"B(ill)")
End With
.HistogramHeight = 64
.HistogramVisible = True
End With
With .Items
h = .AddItem("Machine 1")
.AddBar(h,"Task",#1/2/2001#,#1/9/2001#,1)
.AddBar(h,"Task",#1/3/2001#,#1/10/2001#,2,"Laura")
.set_ItemBar(h,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16776960)
.set_ItemBar(h,2,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHistLegend,"L(aura)")
h = .AddItem("Machine 2")
.AddBar(h,"Task",#1/12/2001#,#1/19/2001#,3)
.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,4,"Laura")
.AddBar(h,"Task",#1/10/2001#,#1/14/2001#,5)
.set_ItemBar(h,4,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16776960)
.set_ItemBar(h,4,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHistLegend,"L(aura)")
.AddBar(.AddItem("Machine 3"),"Task",#1/2/2001#,#1/9/2001#,6)
End With
.EndUpdate()
End With
|
|
2221
|
When I drag a bar and I drag it over other items, but just release it on one of the items (last item), the BarParentChange event is triggered for every item. I need it just when I drop it (release left mouse). How can I do this
' BarParentChange event - Occurs just before moving a bar from current item to another item.
Private Sub Exg2antt1_BarParentChange(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object,ByVal NewItem As Integer,ByRef Cancel As Boolean) Handles Exg2antt1.BarParentChange
With Exg2antt1
Debug.Print( "Hover Over Item: " )
Debug.Print( .Items.get_CellCaption(NewItem,0) )
Cancel = .Items.get_ItemData(NewItem)
End With
End Sub
' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub Exg2antt1_ChartEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartEndChanging
With Exg2antt1
Debug.Print( "ChartEndChanging " )
Debug.Print( Operation )
End With
End Sub
' ChartStartChanging event - Occurs when the chart is about to be changed.
Private Sub Exg2antt1_ChartStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartStartChanging
With Exg2antt1
Debug.Print( "ChartStartChanging " )
Debug.Print( Operation )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.AllowLinkBars = False
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.set_EnableItem(h,False)
.set_ItemData(h,-1)
h = .AddItem("Item 2")
.set_ItemData(h,0)
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother,True)
.set_ItemData(.AddItem("Item 3"),0)
.set_ItemData(.AddItem("Item 4"),0)
End With
.EndUpdate()
End With
|
|
2220
|
Hide non-working days, Hide non-working hours
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
2219
|
Show non-working days pattern, Hide non-working hours
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = False
.ShowNonworkingDates = True
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
2218
|
Hide non-working days, Show non-working hours pattern
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.ShowNonworkingHours = True
End With
.EndUpdate()
End With
|
|
2217
|
Hide non-working days pattern, Show non-working hours pattern
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = True
.ShowNonworkingDates = False
.ShowNonworkingHours = True
End With
.EndUpdate()
End With
|
|
2216
|
Hide non-working days pattern, Hide non-working hours pattern
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = True
.ShowNonworkingDates = False
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
2215
|
Show non-working days pattern, Hide non-working hours pattern
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = True
.ShowNonworkingDates = True
.ShowNonworkingHours = False
End With
.EndUpdate()
End With
|
|
2214
|
Show non-working days pattern, Show non-working hours pattern
With Exg2antt1
.BeginUpdate()
With .Chart
.FirstVisibleDate = #7/29/2022#
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
"<%yyyy%> <%h%> <%AM/PM%><||><||>65536")
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitWidth = 12
.NonworkingDaysColor = Color.FromArgb(51,51,51)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.NonworkingHoursColor = Color.FromArgb(187,187,187)
.NonworkingHoursPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
With .get_Level(0)
.Label = "<%dddd%>"
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
.get_Level(1).Label = 65536
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16773375
.ShowNonworkingUnits = True
.ShowNonworkingDates = True
.ShowNonworkingHours = True
End With
.EndUpdate()
End With
|
|
2213
|
The chart display no labels (empty header) when the unit's width is too small. What can I do to change this behavior
With Exg2antt1
With .Chart
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><" & _
"||>4096")
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.LevelCount = 2
.set_PaneWidth(False,0)
.MarkTodayColor = .BackColor
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
.UnitWidth = 12
End With
End With
|
|
2212
|
How do I get the height of the bar from the cursor
' 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
Dim b,c,hit,i,n
With Exg2antt1
b = .Chart.get_BarFromPoint(-1,-1)
i = .get_ItemFromPoint(-1,-1,c,hit)
n = .Items.get_ItemBar(i,b,exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarName)
Debug.Print( "Height" )
Debug.Print( .Chart.Bars.Item(n).Height )
End With
End Sub
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.DefaultItemHeight = 52
With .Chart
.LevelCount = 2
.FirstVisibleDate = #10/10/2017#
.set_PaneWidth(False,0)
.NonworkingDays = 0
.MarkTodayColor = .BackColor
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.Bars.Copy("Task","T1").Color = Color.FromArgb(255,0,0)
.Bars.Copy("Task","T2").Height = 25
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"2")
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"1")
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"1")
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"2")
End With
.EndUpdate()
End With
|
|
2211
|
The zone shows truncated if I use BackColorAlternate. Is there anything I can do so it shows as solid instead
With Exg2antt1
.BeginUpdate()
.BackColorAlternate = Color.FromArgb(240,240,240)
With .Chart
.set_PaneWidth(False,0)
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.MarkTimeZone("Z1",#1/4/2010#,#1/4/2010#,16744544,"1:3;;solid-zone")
.MarkTimeZone("Z2",#1/8/2010#,#1/8/2010#,16744544,"0:3;;truncated-zone")
End With
.EndUpdate()
End With
|
|
2210
|
How can I prevent expanding/collapsing the child items
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Exg2antt1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Exg2antt1.BeforeExpandItem
With Exg2antt1
Cancel = Exg2antt1.Items.get_ItemParent(Item)
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.SingleSel = False
.Columns.Add("Default")
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Items
h = .AddItem("Root 1")
.InsertItem(.InsertItem(h,Nothing,"Child 1.1"),Nothing,"Child")
.InsertItem(h,Nothing,"Child 1.2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(.InsertItem(h,Nothing,"Child 2.1"),Nothing,"Child")
.InsertItem(h,Nothing,"Child 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
2209
|
How can I display the EBN bigger or smaller (thumb)
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(10,"CP:1 0 3 0 -3")
.Add(17,"CP:1 3 0 -3 0")
End With
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSThumb,&Ha000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSThumb,&H11000000)
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exHScrollEmptySpace Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exVScrollOnThumbRelease Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exHScrollOnThumbRelease Or exontrol.EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
.ScrollBySingleLine = True
.Columns.Add("Def")
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
End With
.EndUpdate()
End With
|
|
2208
|
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong
' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exg2antt1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddGroupItem
Dim color
With Exg2antt1
color = 14474460
With .Items
.set_ItemDivider(Item,-1)
.set_CellValue(Item,1,.get_CellCaption(Item,.get_GroupItem(Item)))
.AddBar(Item,"Progress",#12/2/2017#,#12/2/2017#)
.DefineSummaryBars(Item,"",-3,"")
.set_ItemBold(Item,True)
.set_ItemBackColor(Item,color)
End With
.Chart.set_ItemBackColor(Item,color)
End With
End Sub
' 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",#12/4/2017#,#12/10/2017#)
.set_ItemBar(Item,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMove,.get_ItemToIndex(Item))
End With
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.set_PaneWidth(False,128)
End With
With .Columns
.Add("C1")
.Add("C2")
End With
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
h = .AddItem("Item B")
.set_CellValue(h,1,"SubItem B.1")
h = .AddItem("Item B")
.set_CellValue(h,1,"SubItem B.1")
End With
.Columns.Item(0).SortOrder = exontrol.EXG2ANTTLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
2207
|
How can I change the names from English to my locale (localization)
With Exg2antt1
.BeginUpdate()
With .Chart
.AllowResizeChart = exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or exontrol.EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.MonthNames = .LocMonthNames
.WeekDays = .LocWeekDays
.AMPM = .LocAMPM
.FirstWeekDay = .LocFirstWeekDay
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMonth,"<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mm" & _
"mm%>, <%yyyy%><||><||>4096")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>" & _
"65536")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exMinute,"<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> " & _
"<%hh%>:<%nn%>")
.set_Label(exontrol.EXG2ANTTLib.UnitEnum.exSecond,"<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, " & _
"<%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exMonth,"<%loc_mmmm%>/<%yyyy%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exWeek,"<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exDay,"<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exHour,"<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exMinute,"<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>")
.set_LabelToolTip(exontrol.EXG2ANTTLib.UnitEnum.exSecond,"<%loc_dddd%>, <%d%>. <%loc_mmmm%> <%yyyy%> <%hh%>:<%nn%>:<%ss%>")
.ToolTip = "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>"
.set_PaneWidth(False,0)
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
.UnitWidth = 24
End With
.EndUpdate()
End With
|
|
2206
|
Is it possible to change the pattern for selection within the control's overview part (I would prefer a semi-transparent or solid color instead)
With Exg2antt1
.BeginUpdate()
.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByB" & _
"IUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIE" & _
"VTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0ex" & _
"eiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBS" & _
"BQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg")
.SelBackMode = exontrol.EXG2ANTTLib.BackModeEnum.exTransparent
.Columns.Add("Tasks")
With .Chart
.OverviewVisible = exontrol.EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
.OverviewHeight = 64
.FirstVisibleDate = #7/30/2018#
.LevelCount = 2
.set_PaneWidth(False,128)
.SelBackColor = Exg2antt1.SelBackColor
.SelBarColor = Color.FromArgb(128,128,128)
.OverviewSelBackColor32 = &H200ff00
.set_OverviewSelTransparent(True,50)
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#)
.set_SelectItem(.get_ItemByIndex(1),True)
End With
.EndUpdate()
End With
|
|
2205
|
How can I display an item of picture type
Dim h,h1
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.ScrollBySingleLine = False
.HeaderAppearance = exontrol.EXG2ANTTLib.AppearanceEnum.Etched
.HeaderHeight = 24
.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
.set_HTMLPicture("T22128","c:\exontrol\images\zipdisk.gif")
With .Items
h = .AddItem("T22128-28)2D")
h1 = .InsertItem(h,Nothing,"<img>T22128:128</img>")
.set_CellValueFormat(h1,0,exontrol.EXG2ANTTLib.ValueFormatEnum.exHTML)
.set_ItemHeight(h1,128)
h1 = .InsertItem(h,Nothing,"werkvoorbereiding")
.set_CellValue(h1,1,"5.80")
.set_CellBold(h1,1,True)
.set_CellValue(.InsertItem(h1,Nothing,"Type"),1,"Eenvoudig")
.set_CellValue(.InsertItem(h1,Nothing,"Prijs p/uur"),1,"60,00")
.set_CellValue(.InsertItem(h1,Nothing,"Marhe"),1,"15,00%")
.set_CellValue(.InsertItem(h1,Nothing,"Insteltijd min."),1,"5,00")
.set_CellValue(.InsertItem(h1,Nothing,"Aantal"),1,1)
.set_CellValue(.InsertItem(h1,Nothing,"Kostprije"),1,"5,00")
.set_ExpandItem(h1,True)
h1 = .InsertItem(h,Nothing,"materiall")
.set_CellValue(h1,1,"14.82")
.set_CellBold(h1,1,True)
.set_ItemHasChildren(h1,True)
h1 = .InsertItem(h,Nothing,"snijden")
.set_CellValue(h1,1,"3.13")
.set_CellBold(h1,1,True)
.set_ItemHasChildren(h1,True)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
2204
|
How can I bold the root group-items
' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Exg2antt1_AddGroupItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddGroupItem
With Exg2antt1
With .Items
.AddBar(Item,"Progress",#12/2/2017#,#12/2/2017#)
.DefineSummaryBars(Item,"",-3,"")
.set_ItemBold(Item,True)
End With
End With
End Sub
' 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.AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.set_PaneWidth(False,342)
End With
With .Columns
With .Add("C1")
.GroupByFormatCell = "'<caption> (' + value + ')'"
End With
.Add("C2")
.Add("C3")
With .Add("Pos")
.FormatColumn = "1 pos ``"
.AllowGroupBy = False
.Position = 0
.Width = 48
.AllowSizing = False
End With
End With
.SortBarVisible = True
.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
.AllowGroupBy = True
With .Items
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
.set_CellValue(h,2,"SubItem A.2")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
.set_CellValue(h,2,"SubItem A.2")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
.set_CellValue(h,2,"SubItem A.2")
h = .AddItem("Item A")
.set_CellValue(h,1,"SubItem A.1")
.set_CellValue(h,2,"SubItem A.2")
h = .AddItem("Item B")
.set_CellValue(h,1,"SubItem B.1")
.set_CellValue(h,2,"SubItem B.2")
h = .AddItem("Item B")
.set_CellValue(h,1,"SubItem B.1")
.set_CellValue(h,2,"SubItem B.2")
End With
.Columns.Item(0).SortOrder = exontrol.EXG2ANTTLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
2203
|
The exBarTransparent does not work for overlaid-bars
Dim h
With Exg2antt1
.BeginUpdate()
.BackColorAlternate = Color.FromArgb(240,240,240)
.Columns.Add("Task")
With .Chart
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.AllowLinkBars = False
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
.LevelCount = 2
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.set_Overlaid(exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent,0)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%9%>")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A1")
.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"A2")
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/7/2001#,#1/11/2001#,"B1")
.AddBar(h,"Task",#1/8/2001#,#1/12/2001#,"B2")
.set_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,75)
End With
.EndUpdate()
End With
|
|
2202
|
We’re adding tasks on the chart which have a caption that is not clipped (and left aligned). When we add another task right after the first one, then the caption from that first bar is “stuck” behind the second bar. The bar's z-order is determined by the bar's key.
Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.DefaultItemHeight = 24
With .Chart
.NonworkingDays = 0
.FirstVisibleDate = #9/17/2006#
.set_PaneWidth(False,96)
.LevelCount = 2
With .Bars.Add("Green")
.Color = Color.FromArgb(0,255,0)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,-2)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%9%>")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
With .Bars.Add("Red")
.Color = Color.FromArgb(255,0,0)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset,2)
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<%=%9%>")
.set_Def(exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
End With
With .Items
h1 = .AddItem("Red / Green")
.AddBar(h1,"Green",#9/21/2006#,#9/27/2006#,"K1")
.AddBar(h1,"Red",#9/23/2006#,#9/25/2006#,"K2")
h1 = .AddItem("Green / Red")
.AddBar(h1,"Green",#9/21/2006#,#9/27/2006#,"K2")
.AddBar(h1,"Red",#9/23/2006#,#9/25/2006#,"K1")
End With
.EndUpdate()
End With
|
|
2201
|
The caption/text of the link is overwritten by its line. What can be done
Dim h,h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,64)
.FirstVisibleDate = #6/21/2005#
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.UnitWidth = 48
.get_Level(0).Label = "<b><%mmm%></b> <%dd%>"
.LinksWidth = 3
End With
With .Items
h = .AddItem("Root")
.AddBar(h,"Task",#6/22/2005#,#6/23/2005#)
h1 = .InsertItem(h,Nothing,"Child")
.AddBar(h1,"Task",#6/24/2005 8:00:00 AM#,#6/24/2005 4:00:00 PM#)
.AddLink("Link1",h,"",h1,"")
.set_Link("Link1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"<bgcolor=FFFFFF> link </bgcolor>")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|