2313 |
How to use arrows key left/right to move the cursor left/right inside the text
With G2antt1 .BeginUpdate With .Columns.Add("Edit").Editor .EditType = 1 .Option(20) = False .Option(21) = 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 G2antt1 .BeginUpdate .SelBackColor = .BackColor .SelForeColor = .ForeColor With .Columns.Add("Edit").Editor .EditType = 1 .Option(48) = -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 G2antt1 .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 .Background(199) = RGB(1,0,0) .Background(200) = RGB(240,240,240) .Chart.OverviewSelBackColor = RGB(255,255,255) .Background(201) = &H1000000 With .Chart .FirstVisibleDate = #6/21/2001# .PaneWidth(False) = 48 .OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible .OverviewHeight = 64 .LevelCount = 2 .UnitScale = 4096 .Label(65536) = "" .Label(1048576) = "" .Label(16777216) = "" .AllowOverviewZoom = 1 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 G2antt1 .BeginUpdate .BackColorLevelHeader = .BackColor .Background(199) = RGB(0,0,255) With .Chart .FirstVisibleDate = #6/21/2001# .PaneWidth(False) = 48 .OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible .OverviewHeight = 64 .LevelCount = 2 .UnitScale = 4096 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 G2antt1 .BeginUpdate .BackColorLevelHeader = .BackColor .Background(199) = RGB(1,0,0) With .Chart .FirstVisibleDate = #6/21/2001# .PaneWidth(False) = 48 .OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible .OverviewHeight = 64 .LevelCount = 2 .UnitScale = 4096 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 G2antt1 .BeginUpdate .OnResizeControl = 1 .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 = 4 .Columns.Add("Index").FormatColumn = "1 index ``" .Columns.Add("Pos").FormatColumn = "1 apos ``" .Columns.Add("Edit").Editor.EditType = 1 .GridLineStyle = 512 .DrawGridLines = 2 .GridLineColor = RGB(224,224,224) With .Chart .AllowCreateBar = 1 .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 196 .GridLineStyle = 512 .DrawGridLines = -1 With .Level(1) .DrawGridLines = True .GridLineColor = G2antt1.GridLineColor End With End With .EndUpdate End With |
2307 |
Adds a Finish-Start(FS) link (method 3)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",6) = 0 .Link("Link1",7) = 0 .SchedulePDM 0,"" End With .EndUpdate End With |
2305 |
Adds a Finish-Finish(FF) link (method 3)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",6) = 2 .Link("Link1",7) = 2 .SchedulePDM 0,"" End With .EndUpdate End With |
2304 |
Adds a Start-Finish(SF) link (method 3)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",6) = 0 .Link("Link1",7) = 2 .SchedulePDM 0,"" End With .EndUpdate End With |
2303 |
Adds a Finish-Start(FS) link (method 2)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h2,"",270) = "1FS" .SchedulePDM 0,"" End With .EndUpdate End With |
2302 |
Adds a Start-Start(SS) link (method 2)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h2,"",270) = "1SS" .SchedulePDM 0,"" End With .EndUpdate End With |
2301 |
Adds a Finish-Finish(FF) link (method 2)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h2,"",270) = "1FF" .SchedulePDM 0,"" End With .EndUpdate End With |
2300 |
Adds a Start-Finish(SF) link (method 2)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h2,"",270) = "1SF" .SchedulePDM 0,"" End With .EndUpdate End With |
2299 |
Adds a Start-Finish(SF) link (method 1)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",260) = "SF" .SchedulePDM 0,"" End With .EndUpdate End With |
2298 |
Adds a Finish-Finish(FF) link (method 1)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",260) = "FF" .SchedulePDM 0,"" End With .EndUpdate End With |
2297 |
Adds a Start-Start(SS) link (method 1)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",260) = "SS" .SchedulePDM 0,"" End With .EndUpdate End With |
2296 |
Adds a Finish-Start(FS) link (method 1)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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,"" .Link("Link1",260) = "FS" .SchedulePDM 0,"" End With .EndUpdate End With |
2295 |
What is the difference between lags with "W" or without
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 64 With .Bars.Add("Task:Split") .Shortcut = "Task" .Def(20) = 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# .ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W" .SchedulePDM 0,"" End With .EndUpdate End With |
2294 |
What is the difference between lags with "W" or without
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W" .SchedulePDM 0,"" End With .EndUpdate End With |
2293 |
How can I remove all outgoing links
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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",.ItemByIndex(0),"",.ItemByIndex(1),"" .AddLink "L2",.ItemByIndex(1),"",.ItemByIndex(2),"" .ItemBar(.ItemByIndex(1),"",271) = "" End With .EndUpdate End With |
2292 |
How can I remove all incoming links
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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",.ItemByIndex(0),"",.ItemByIndex(1),"" .AddLink "L2",.ItemByIndex(1),"",.ItemByIndex(2),"" .ItemBar(.ItemByIndex(1),"",270) = "" End With .EndUpdate End With |
2291 |
How do I add a link between two bars (method 3)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h,"",271) = "2SF" End With .EndUpdate End With |
2290 |
How do I add a link between two bars (method 2)
With G2antt1 .BeginUpdate .Columns.Add "Name" With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .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# .ItemBar(h,"",270) = "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 G2antt1_AddLink(ByVal LinkKey As String) With G2antt1 .Items.Link(LinkKey,15) = 3 End With End Sub With G2antt1 .BeginUpdate .OnResizeControl = 1 .HeaderAppearance = 4 .ColumnAutoResize = False .HeaderHeight = 32 .DefaultItemHeight = 28 .BackColorLevelHeader = RGB(255,255,255) .Background(197) = RGB(160,160,160) .Background(198) = RGB(128,128,128) With .Columns .Add("Name").Width = 48 With .Add("Start") .Width = 48 .Editor.EditType = 7 .Def(18) = 1 End With With .Add("End") .Width = 48 .Editor.EditType = 7 .Def(18) = 543 End With With .Add("Predecessor") With .Editor .EditType = 1 .EditType = 8 .Mask = ";;;rich" End With .Def(18) = 270 End With With .Add("Successor") With .Editor .EditType = 1 .EditType = 8 .Mask = ";;;rich" End With .Def(18) = 271 End With With .Add("(I)") .FormatColumn = "1 index ``" .Position = 0 .AllowSizing = False .Width = 20 End With End With .ColumnAutoResize = True .GridLineStyle = 512 .DrawGridLines = -1 .GridLineColor = RGB(224,224,224) .AntiAliasing = True With .Chart .ShowLinks = 1 .LinksStyle = 0 .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 362 .NonworkingDays = 0 .AllowLinkBars = True .AllowCreateBar = 2 .AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift .GridLineStyle = 512 .DrawGridLines = -1 With .Bars.Item("Task") .Height = 15 .Def(3) = "<%=%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",.ItemByIndex(0),"",.ItemByIndex(1),"" .Link("L1",17) = 1 .AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),"" .AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),"" .SchedulePDM 0,"" End With .EndUpdate End With |
2288 |
Adding an editable successor column
With G2antt1 .BeginUpdate .HeaderAppearance = 4 With .Columns .Add("Name").Width = 48 With .Add("Successor") With .Editor .EditType = 1 .EditType = 8 .Mask = ";;;rich" End With .Def(18) = 271 End With With .Add("(I)") .FormatColumn = "1 index ``" .Position = 0 .AllowSizing = False .Width = 20 End With End With .ColumnAutoResize = True .GridLineStyle = 512 .DrawGridLines = -1 .GridLineColor = RGB(224,224,224) .AntiAliasing = True With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 256 .AllowLinkBars = True .AllowCreateBar = 2 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",.ItemByIndex(0),"",.ItemByIndex(1),"" .AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),"" .AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),"" End With .EndUpdate End With |
2287 |
Adding an editable predecessor column
With G2antt1 .BeginUpdate .HeaderAppearance = 4 With .Columns .Add("Name").Width = 48 With .Add("Predecessor") With .Editor .EditType = 1 .EditType = 8 .Mask = ";;;rich" End With .Def(18) = 270 End With With .Add("(I)") .FormatColumn = "1 index ``" .Position = 0 .AllowSizing = False .Width = 20 End With End With .ColumnAutoResize = True .GridLineStyle = 512 .DrawGridLines = -1 .GridLineColor = RGB(224,224,224) .AntiAliasing = True With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 256 .AllowLinkBars = True .AllowCreateBar = 2 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",.ItemByIndex(0),"",.ItemByIndex(1),"" .AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),"" .AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),"" End With .EndUpdate End With |
2286 |
Adding an Index column
With G2antt1 .BeginUpdate .Chart.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 G2antt1_CreateBar(ByVal Item As Long,ByVal DateStart As Date,ByVal DateEnd As Date) With G2antt1 .Items.AddBar Item,"Task",DateStart,DateEnd,"","new" End With End Sub With G2antt1 .BeginUpdate .OnResizeControl = 1 .HeaderAppearance = 4 .Columns.Add("Index").FormatColumn = "1 index ``" .GridLineStyle = 512 .DrawGridLines = 1 .GridLineColor = RGB(224,224,224) With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 64 .NonworkingDays = 0 .AllowLinkBars = True .AllowCreateBar = -2 .AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift .GridLineStyle = G2antt1.GridLineStyle ' G2antt1.GridLineStyle .DrawGridLines = -1 With .Level(1) .DrawGridLines = True .GridLineColor = G2antt1.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 G2antt1 .BeginUpdate .OnResizeControl = 1 .HeaderAppearance = 4 .Columns.Add("Index").FormatColumn = "1 index ``" .GridLineStyle = 512 .DrawGridLines = 1 .GridLineColor = RGB(224,224,224) With .Chart .LevelCount = 2 .FirstVisibleDate = #12/28/2000# .PaneWidth(False) = 64 .NonworkingDays = 0 .AllowLinkBars = True .AllowCreateBar = 2 .AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift .GridLineStyle = G2antt1.GridLineStyle ' G2antt1.GridLineStyle .DrawGridLines = -1 With .Level(1) .DrawGridLines = True .GridLineColor = G2antt1.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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .Bars.Add("Task:Split").Shortcut = "Task" .Bars.Item("Task").Def(20) = True .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .ResizeUnitScale = 65536 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(195) = RGB(1,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .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 = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(192) = &H2000000 .Background(193) = RGB(255,255,255) .Background(194) = RGB(1,0,0) .Background(195) = RGB(1,0,0) .Background(196) = RGB(4,0,0) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .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 = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(192) = &H1000000 .Background(193) = RGB(10,10,10) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1 .BeginUpdate .ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical .Background(192) = RGB(1,0,0) .Background(193) = RGB(255,255,255) .Columns.Add "Tasks" With .Chart .PaneWidth(0) = 96 .AllowCreateBar = 1 .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 G2antt1_AnchorClick(ByVal AnchorID As String,ByVal Options As String) With G2antt1 Debug.Print( AnchorID ) End With End Sub With G2antt1 .BeginUpdate .ColumnAutoResize = True .TreeColumnIndex = -1 .DrawGridLines = -1 .GridLineStyle = 512 .BackColorAlternate = RGB(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)") .CellValueFormat(h,0) = 1 .CellSingleLine(h,0) = False .AddItem "after item" End With .EndUpdate End With |
2269 |
Expandable-caption
With G2antt1 .BeginUpdate .ColumnAutoResize = True .TreeColumnIndex = -1 .DrawGridLines = -1 .GridLineStyle = 512 .BackColorAlternate = RGB(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") .CellValueFormat(h,0) = 1 .CellSingleLine(h,0) = False .AddItem "after item" End With .EndUpdate End With |
2268 |
Can I change the pattern for a specific bar only
With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #12/31/2009# .LevelCount = 2 .PaneWidth(False) = 96 With .Bars.Item("Task") .StartColor = RGB(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#,"" .ItemBar(h,"",42) = 6 .AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"" End With .EndUpdate End With |
2267 |
Force hover-all feature
|
2266 |
Disable hover-all feature (Windows 11 or greater)
With G2antt1 .Background(500) = RGB(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 G2antt1 .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 = 4 .Columns.Add "Task" With .Chart .LevelCount = 2 .PaneWidth(False) = 128 .FirstVisibleDate = #1/1/2001# With .Bars.Item("Milestone") .Height = 24 .Color = &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 G2antt1 .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 = 4 .Columns.Add "Task" With .Chart .LevelCount = 2 .PaneWidth(False) = 128 .FirstVisibleDate = #1/1/2001# With .Bars.Item("Milestone") .Height = 28 .Color = &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 G2antt1 .BeginUpdate .DefaultItemHeight = 32 .HeaderAppearance = 4 .Columns.Add "Task" With .Chart .LevelCount = 2 .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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip .Chart.BarFromPoint(-1,-1) End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "..." 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
With G2antt1 .BeginUpdate .Columns.Add("Def").Def(0) = True With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 96 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<%=%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") .CellState(h,0) = 1 .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" .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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "<null>","<null>",,"+8","+8" End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "<null>",.Chart.BarFromPoint(-1,-1) End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip .Chart.BarFromPoint(-1,-1) End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "new content","new title" End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "new content","new title",,"+8","+8" End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "new content","",,128,128 End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 .ShowToolTip "","" End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "<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
With G2antt1 .BeginUpdate .Columns.Add "Task" .HeaderVisible = 1 .HeaderAppearance = 4 With .Chart .FirstVisibleDate = #1/1/2001# .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" .ItemBar(h1,"",4) = 18 .AddBar h1,"Task",#1/3/2001#,#1/4/2001 0:00:00 PM#,"T2" .ItemBar(h1,"T2",33) = 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 G2antt1_ToolTip(ByVal Item As Long,ByVal ColIndex As Long,Visible As Boolean,X As Long,Y As Long,ByVal CX As Long,ByVal CY As Long) With G2antt1 .ShowToolTip .Chart.BarFromPoint(-1,-1) End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Def" With .Chart .AllowCreateBar = 0 .PaneWidth(False) = 64 .LevelCount = 2 .FirstVisibleDate = #1/1/2010# .Bars.Item("Task").Def(6) = "..." 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 G2antt1 .BeginUpdate .DefaultItemHeight = 32 .DrawGridLines = -2 .GridLineStyle = 512 .HeaderAppearance = 4 With .Chart .LevelCount = 2 .DrawGridLines = -2 .GridLineStyle = 512 .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .AllowLinkBars = False With .Bars.Item("Task") .OverlaidType = 4 .Def(3) = "only horizontal" .Def(59) = 18 .Def(28) = 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" .ItemBar(0,"<*>",28) = 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
With G2antt1 .BeginUpdate .DefaultItemHeight = 32 .DrawGridLines = -2 .GridLineStyle = 512 .HeaderAppearance = 4 With .Chart .LevelCount = 2 .DrawGridLines = -2 .GridLineStyle = 512 .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .AllowLinkBars = False With .Bars.Item("Task") .OverlaidType = 4 .Def(3) = "anywhere" .Def(59) = 18 .Def(28) = 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" .ItemBar(h,"B",28) = 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 G2antt1 .BeginUpdate With .Chart .PaneWidth(False) = 0 .DrawGridLines = 2 .FirstVisibleDate = #1/1/2001# .UnitWidth = 30 .LevelCount = 2 .Level(0).Unit = 16 With .Level(1) .Unit = 4096 .Count = 10 End With End With .EndUpdate End With |
2248 |
Limit the chart's margins when using the CopyTo method
With G2antt1 .BeginUpdate .MarkSearchColumn = False With .Columns .Add "Tasks" With .Add("Start") .Def(18) = 1 .Editor.EditType = 4 End With With .Add("End") .Def(18) = 2 .Editor.EditType = 4 End With End With With .Chart .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 = .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
With G2antt1 color = 15790320 .BeginUpdate .Debug = True .HeaderVisible = 1 .HeaderAppearance = 4 .ShowLockedItems = True With .Chart .PaneWidth(False) = 128 .LevelCount = 2 .FirstVisibleDate = #12/31/2015# .Bars.Item("Task").Def(28) = True End With .Columns.Add "Column" With .Items .LockedItemCount(0) = 3 h = .LockedItem(0,0) .ItemBackColor(h) = color G2antt1.Chart.ItemBackColor(h) = color .CellValue(h,0) = "locked-top 1" .AddBar h,"Task",#1/4/2016#,#1/8/2016#,"T1" h = .LockedItem(0,1) .ItemBackColor(h) = color G2antt1.Chart.ItemBackColor(h) = color .CellValue(h,0) = "locked-top 2" .AddBar h,"Task",#1/5/2016#,#1/9/2016#,"T2" h = .LockedItem(0,2) .SelectItem(h) = False .ItemDivider(h) = 0 .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" .LockedItemCount(1) = 3 h = .LockedItem(1,0) .SelectItem(h) = False .ItemDivider(h) = 0 .ItemHeight(h) = 2 h = .LockedItem(1,1) .ItemBackColor(h) = color G2antt1.Chart.ItemBackColor(h) = color .CellValue(h,0) = "locked-bottom 1" .AddBar h,"Task",#1/4/2016#,#1/8/2016#,"T5" h = .LockedItem(1,2) .ItemBackColor(h) = color G2antt1.Chart.ItemBackColor(h) = color .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
With G2antt1 .BeginUpdate .HeaderAppearance = 4 With .Columns.Add("Minutes") .SortType = 1 With .Editor .EditType = 1 .Numeric = -1 End With End With With .Items .AddItem 10 .AddItem 20 .AddItem 30 .AddItem 40 .AddItem 50 h = .AddItem("sum(all,dir,dbl(%0))") .SelectableItem(h) = False .SortableItem(h) = False .CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML .CellHAlignment(h,0) = 2 .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 G2antt1 .BeginUpdate .HeaderAppearance = 4 With .Chart .FirstVisibleDate = #3/26/2023# .LevelCount = 2 .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
With G2antt1 .BeginUpdate .HeaderAppearance = 4 With .Chart .FirstVisibleDate = #3/26/2023# .LevelCount = 2 .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 G2antt1 .BeginUpdate .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" .Background(188) = &H1000000 .Background(189) = RGB(15,0,0) With .Chart .AllowCreateBar = 1 .PaneWidth(False) = 128 .LevelCount = 2 .FirstVisibleDate = #1/1/2001# With .Bars.Item("Task") .Color = &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 G2antt1_FilterChange() With G2antt1 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 With G2antt1 .BeginUpdate .SelBackColor = .BackColor .SelForeColor = .ForeColor .ColumnAutoResize = True .ContinueColumnScroll = 0 .MarkSearchColumn = False .SearchColumnIndex = 1 .HeaderAppearance = 4 .HeaderHeight = 23 .BackColorLevelHeader = .BackColor .FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)" .FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible .FilterBarBackColor = .BackColor .FilterBarPromptPattern = "and" With .Columns With .Add("Name") .Def(17) = 1 .FormatColumn = "lower(value)" End With With .Add("Title") .Def(17) = 1 .FormatColumn = "lower(value)" End With With .Add("City") .Def(17) = 1 .FormatColumn = "lower(value)" End With End With With .Items h0 = .AddItem("Nancy Davolio") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Andrew Fuller") .CellValue(h0,1) = "Vice President, Sales" .CellValue(h0,2) = "Tacoma" .SelectItem(h0) = 1 h0 = .AddItem("Janet Leverling") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Kirkland" h0 = .AddItem("Margaret Peacock") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "Redmond" h0 = .AddItem("Steven Buchanan") .CellValue(h0,1) = "Sales Manager" .CellValue(h0,2) = "London" h0 = .AddItem("Michael Suyama") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Robert King") .CellValue(h0,1) = "Sales Representative" .CellValue(h0,2) = "London" h0 = .AddItem("Laura Callahan") .CellValue(h0,1) = "Inside Sales Coordinator" .CellValue(h0,2) = "Seattle" h0 = .AddItem("Anne Dodsworth") .CellValue(h0,1) = "Sales Representative" .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 G2antt1 .BeginUpdate .DrawGridLines = 2 .HeaderAppearance = 1 .HeaderHeight = 24 .SortBarHeight = 28 .SortBarVisible = True .AllowGroupBy = True .Columns.Add "Col 1" .Columns.Add "Col 2" With .Items .CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234" .CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa" .CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11" .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 = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible .FilterBarPromptType = 257 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll .FilterBarPromptPattern = "12" .FilterBarBackColor = .BackColor .EndUpdate End With |
2240 |
Is it possible to display the count of filtered items
With G2antt1 .BeginUpdate .DrawGridLines = 2 .HeaderAppearance = 4 .HeaderHeight = 24 .Columns.Add "Col 1" .Columns.Add "Col 2" With .Items .CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234" .CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa" .CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11" .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 = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible .FilterBarPromptType = 257 ' FilterPromptEnum.exFilterPromptCaseSensitive Or 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 G2antt1_AddItem(ByVal Item As Long) With G2antt1 With .Items .AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4) End With End With End Sub With G2antt1 .BeginUpdate .ColumnAutoResize = False Set rs = CreateObject("ADOR.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 .PaneWidth(False) = 256 End With .Items.AllowCellValueToItemBar = True .Columns.Item(2).Def(18) = 1 .Columns.Item(4).Def(18) = 2 .EndUpdate End With |
2238 |
exOverlaidBarsOffset + exOverlaidBarTransparent + exBarCanMoveToAnother
With G2antt1 .BeginUpdate .DefaultItemHeight = 22 .DrawGridLines = -2 .GridLineStyle = 512 .Columns.Add "Task" With .Chart .DrawGridLines = -2 .GridLineStyle = 512 .ResizeUnitScale = 65536 .PaneWidth(False) = 48 .FirstVisibleDate = #1/1/2001# With .Bars.Item("Task") .OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset .Overlaid(256) = 70 .Def(28) = True End With End With .ItemsAllowSizing = -1 With .Items .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" .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" .SelectableItem(.AddItem()) = False End With .EndUpdate End With |
2237 |
Editors (ImageSize = 32)
With G2antt1 .BeginUpdate .ImageSize = 32 .DefaultItemHeight = 36 .HeaderHeight = .DefaultItemHeight .SortBarHeight = .DefaultItemHeight .Font.Size = 16 .FilterBarFont.Size = G2antt1.Font.Size .ToolTipFont.Size = G2antt1.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 .BackColorHeader = &H4c6c6c6 .SelBackColor = &H4000000 .SelForeColor = RGB(0,0,1) .ShowFocusRect = False .CheckImage(0) = 16777216 .CheckImage(1) = 33554432 .CheckImage(2) = 50331648 .Columns.Add("Editors").Def(17) = 1 With .Items .CellEditor(.AddItem("(ReadOnly)"),0).EditType = 0 .CellEditor(.AddItem("(EditType)"),0).EditType = 1 h = .AddItem("Value 1") With .CellEditor(h,0) .EditType = 2 .AddItem 1,"Value 1",1 .AddItem 2,"Value 2",2 .AddItem 3,"Value 3",3 End With .FormatCell(h,0) = "value + ' (DropDownType)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .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 .FormatCell(h,0) = "value + ' (DropDownList - single column list)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .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 .FormatCell(h,0) = "value + ' (DropDownList - single column tree)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .Option(57) = "Name¦Title¦City¦Phone" .Option(58) = "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 .FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .Option(57) = "Name¦Title¦City¦Phone" .Option(58) = "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 .FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'" h = .AddItem(100) .CellEditor(h,0).EditType = 4 .FormatCell(h,0) = "value + ' (SpinType)'" .CellEditor(.AddItem("(MemoType)"),0).EditType = 5 h = .AddItem(3) With .CellEditor(h,0) .EditType = 6 .AddItem 1,"Border",1 .AddItem 2,"Single",2 .AddItem 4,"Frame",3 End With .FormatCell(h,0) = "value + ' (CheckListType)'" h = .AddItem("193.226.40.161") With .CellEditor(h,0) .Mask = "{0,255}.{0,255}.{0,255}.{0,255}" .EditType = 8 End With .FormatCell(h,0) = "value + ' (MaskType)'" h = .AddItem(65280) With .CellEditor(h,0) .EditType = 9 .Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0" End With .FormatCell(h,0) = "value + ' (ColorType)'" h = .AddItem("Tahoma") .CellEditor(h,0).EditType = 10 .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") .CellEditor(h,0).EditType = 11 .FormatCell(h,0) = "value + ' (PictureType)'" .CellEditor(.AddItem("(ButtonType)"),0).EditType = 12 h = .AddItem(25) .CellEditor(h,0).EditType = 13 .FormatCell(h,0) = "value + ' (ProgressBarType)'" h = .AddItem("Value 1") With .CellEditor(h,0) .EditType = 14 .AddItem 1,"Value 1",1 .AddItem 2,"Value 2",2 .AddItem 3,"Value 3",3 End With .FormatCell(h,0) = "value + ' (PickEditType)'" .CellEditor(.AddItem("(LinkEditType)"),0).EditType = 15 With .CellEditor(.AddItem("(UserEditorType)"),0) .EditType = 16 .UserEditor "Exontrol.ComboBox","" With .UserEditorObject End With End With h = .AddItem(255) With .CellEditor(h,0) .EditType = 17 .Option(4) = True End With .FormatCell(h,0) = "value + ' (ColorListType)'" .CellEditor(.AddItem(65280),0).EditType = 17 .CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = 18 With .CellEditor(.AddItem(-1),0) .EditType = 19 .Option(17) = 1 End With h = .AddItem(50) With .CellEditor(h,0) .EditType = 20 .Option(41) = -60 .Option(53) = 10 .Option(63) = 2 End With .FormatCell(h,0) = "value + ' (SliderType)'" h = .AddItem(100) .CellEditor(h,0).EditType = 21 .FormatCell(h,0) = "value + ' (CalculatorType)'" .EnsureVisibleItem h End With .EndUpdate End With |
2236 |
Editors (ImageSize = 16, default)
With G2antt1 .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").Def(17) = 1 With .Items .CellEditor(.AddItem("(ReadOnly)"),0).EditType = 0 .CellEditor(.AddItem("(EditType)"),0).EditType = 1 h = .AddItem("Value 1") With .CellEditor(h,0) .EditType = 2 .AddItem 1,"Value 1",1 .AddItem 2,"Value 2",2 .AddItem 3,"Value 3",3 End With .FormatCell(h,0) = "value + ' (DropDownType)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .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 .FormatCell(h,0) = "value + ' (DropDownList - single column list)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .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 .FormatCell(h,0) = "value + ' (DropDownList - single column tree)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .Option(57) = "Name¦Title¦City¦Phone" .Option(58) = "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 .FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'" h = .AddItem(1) With .CellEditor(h,0) .EditType = 3 .DropDownAutoWidth = 0 .Option(57) = "Name¦Title¦City¦Phone" .Option(58) = "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 .FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'" h = .AddItem(100) .CellEditor(h,0).EditType = 4 .FormatCell(h,0) = "value + ' (SpinType)'" .CellEditor(.AddItem("(MemoType)"),0).EditType = 5 h = .AddItem(3) With .CellEditor(h,0) .EditType = 6 .AddItem 1,"Border",1 .AddItem 2,"Single",2 .AddItem 4,"Frame",3 End With .FormatCell(h,0) = "value + ' (CheckListType)'" h = .AddItem("193.226.40.161") With .CellEditor(h,0) .Mask = "{0,255}.{0,255}.{0,255}.{0,255}" .EditType = 8 End With .FormatCell(h,0) = "value + ' (MaskType)'" h = .AddItem(65280) With .CellEditor(h,0) .EditType = 9 .Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0" End With .FormatCell(h,0) = "value + ' (ColorType)'" h = .AddItem("Tahoma") .CellEditor(h,0).EditType = 10 .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") .CellEditor(h,0).EditType = 11 .FormatCell(h,0) = "value + ' (PictureType)'" .CellEditor(.AddItem("(ButtonType)"),0).EditType = 12 h = .AddItem(25) .CellEditor(h,0).EditType = 13 .FormatCell(h,0) = "value + ' (ProgressBarType)'" h = .AddItem("Value 1") With .CellEditor(h,0) .EditType = 14 .AddItem 1,"Value 1",1 .AddItem 2,"Value 2",2 .AddItem 3,"Value 3",3 End With .FormatCell(h,0) = "value + ' (PickEditType)'" .CellEditor(.AddItem("(LinkEditType)"),0).EditType = 15 With .CellEditor(.AddItem("(UserEditorType)"),0) .EditType = 16 .UserEditor "Exontrol.ComboBox","" With .UserEditorObject End With End With h = .AddItem(255) With .CellEditor(h,0) .EditType = 17 .Option(4) = True End With .FormatCell(h,0) = "value + ' (ColorListType)'" .CellEditor(.AddItem(65280),0).EditType = 17 .CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = 18 With .CellEditor(.AddItem(-1),0) .EditType = 19 .Option(17) = 1 End With h = .AddItem(50) With .CellEditor(h,0) .EditType = 20 .Option(41) = -60 .Option(53) = 10 .Option(63) = 2 End With .FormatCell(h,0) = "value + ' (SliderType)'" h = .AddItem(100) .CellEditor(h,0).EditType = 21 .FormatCell(h,0) = "value + ' (CalculatorType)'" .EnsureVisibleItem h End With .EndUpdate End With |
2235 |
Is it possible to limit the overlaid to two rows only
With G2antt1 .BeginUpdate .Columns.Add "Tasks" With .Chart .NonworkingDays = 0 .FirstVisibleDate = #9/17/2006# .PaneWidth(False) = 64 .LevelCount = 2 .Bars.Item("Task").OverlaidType = 4 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" .ItemBar(0,"<T*>",33) = 65280 .ItemBar(0,"<K*>",52) = "Level0" .ItemBar(0,"<T*>",52) = "Level1" .ItemMaxHeight(h1) = 26 End With .EndUpdate End With |
2234 |
Is it possible to sort the bars
With G2antt1 .BeginUpdate .AntiAliasing = True .Columns.Add("Task").AllowSort = False With .Columns.Add("Name") .Def(18) = 0 .SortType = 0 .Visible = False End With With .Chart .FirstVisibleDate = #12/31/2000# .PaneWidth(False) = 48 .LevelCount = 2 .Bars.Item("Task").Pattern = 1 .Bars.Copy("Task","Red").Color = RGB(255,0,0) .NonworkingDaysPattern = 6 .NonworkingDaysColor = RGB(224,224,224) .LinksStyle = 0 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 = 1 .Columns.Item("Name").SortOrder = 1 .EndUpdate End With |
2233 |
Re-order the cell's caption, icons and images/pictures
With G2antt1 .BeginUpdate .Images "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _ "lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _ "cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB" With .Columns.Add("ToLeft") .Def(0) = True End With With .Columns.Add("ToRight") .Def(0) = True .Def(34) = "caption,picture,icons,icon,check" End With .DefaultItemHeight = 32 .DrawGridLines = 2 .HeaderAppearance = 4 With .Items h = .AddItem("Caption") .CellImage(h,0) = 2 .CellImages(h,0) = "1,2" .CellPicture(h,0) = G2antt1.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==`)") .CellValue(h,1) = .CellValue(h,0) .CellHAlignment(h,1) = 2 .CellImage(h,1) = .CellImage(h,0) .CellImages(h,1) = "2,1" .CellPicture(h,1) = .CellPicture(h,0) h = .AddItem("<b>HTML</b> <off 4>Caption") .CellValueFormat(h,0) = 1 .CellImage(h,0) = 2 .CellImages(h,0) = "1,2" .CellPicture(h,0) = G2antt1.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==`)") .CellValue(h,1) = .CellValue(h,0) .CellValueFormat(h,1) = 1 .CellHAlignment(h,1) = 2 .CellImage(h,1) = .CellImage(h,0) .CellImages(h,1) = "2,1" .CellPicture(h,1) = .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 G2antt1_AddColumn(ByVal Column As Object) ' 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 G2antt1_AddItem(ByVal Item As Long) With G2antt1 .Items.AddBar Item,"Task",#1/2/2022#,#1/8/2022#,,"<img>1</img>" End With End Sub With G2antt1 .BeginUpdate .ImageSize = 32 .DefaultItemHeight = 36 .HeaderHeight = .DefaultItemHeight .SortBarHeight = .DefaultItemHeight .Font.Size = 16 .FilterBarFont.Size = G2antt1.Font.Size .ToolTipFont.Size = G2antt1.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 .BackColorHeader = &H4c6c6c6 .SelBackColor = &H4000000 .SelForeColor = RGB(0,0,1) .CheckImage(0) = 16777216 .CheckImage(1) = 33554432 .CheckImage(2) = 50331648 .Background(20) = .SelBackColor .Background(21) = .SelForeColor .Background(26) = .BackColor .Background(27) = .ForeColor .Background(32) = -1 .Background(0) = &H4000000 .Background(41) = &H4010101 .Background(1) = &H40000ff .HeaderAppearance = 4 .ShowFocusRect = False .SortBarVisible = True .AllowGroupBy = True .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .FilterBarDropDownHeight = 1 With .Columns.Add("Check") .Def(0) = True .PartialCheck = True .Width = 128 .DisplayFilterButton = True .FilterList = 256 End With With .Columns.Add("Pos") .FormatColumn = "1 pos ``" .AllowSort = False .Width = 48 .AllowSizing = False .Alignment = 1 .HeaderAlignment = 1 End With With .Columns.Add("Image") .DisplayFilterButton = True .FilterList = 8480 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterType = 10 .DisplayExpandButton = True .ExpandColumns = "1,2,3" .Width = 128 .HeaderImage = 1 End With With .Columns.Add("Images") .Def(0) = 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") .ItemDivider(hR) = 0 .ItemDividerLine(hR) = 0 h = .InsertItem(hR,,"Child A") .CellImage(h,2) = 1 .CellImages(h,3) = "1,2,3" .CellValue(h,3) = "123" h = .InsertItem(hR,,"Child B") .CellState(h,0) = 1 .CellImage(h,2) = 3 .CellImages(h,3) = "2,3,1" .CellValue(h,3) = "231" .SelectItem(h) = True h = .InsertItem(hR,,"Child C") .CellImage(h,2) = 2 .CellState(h,3) = 1 .CellValue(h,3) = "312" .CellImages(h,3) = "3,1,2" .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 G2antt1_AddColumn(ByVal Column As Object) ' 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 G2antt1_AddItem(ByVal Item As Long) With G2antt1 .Items.AddBar Item,"Task",#1/2/2022#,#1/8/2022#,,"<img>1</img>" End With End Sub With G2antt1 .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 .BackColorHeader = &H4c6c6c6 .SelBackColor = &H4000000 .SelForeColor = RGB(0,0,1) .Background(20) = .SelBackColor .Background(21) = .SelForeColor .Background(26) = .BackColor .Background(27) = .ForeColor .Background(32) = -1 .Background(0) = &H4000000 .Background(41) = &H4010101 .Background(1) = &H40000ff .HeaderAppearance = 4 .ShowFocusRect = False .SortBarVisible = True .AllowGroupBy = True .BackColorSortBar = .BackColor .BackColorLevelHeader = .BackColor .FilterBarDropDownHeight = 1 With .Columns.Add("Check") .Def(0) = True .PartialCheck = True .Width = 128 .DisplayFilterButton = True .FilterList = 256 End With With .Columns.Add("Pos") .FormatColumn = "1 pos ``" .AllowSort = False .Width = 48 .AllowSizing = False .Alignment = 1 .HeaderAlignment = 1 End With With .Columns.Add("Image") .DisplayFilterButton = True .FilterList = 8480 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc .FilterType = 10 .DisplayExpandButton = True .ExpandColumns = "1,2,3" .Width = 128 .HeaderImage = 1 End With With .Columns.Add("Images") .Def(0) = 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") .ItemDivider(hR) = 0 .ItemDividerLine(hR) = 0 h = .InsertItem(hR,,"Child A") .CellImage(h,2) = 1 .CellImages(h,3) = "1,2,3" .CellValue(h,3) = "123" h = .InsertItem(hR,,"Child B") .CellState(h,0) = 1 .CellImage(h,2) = 3 .CellImages(h,3) = "2,3,1" .CellValue(h,3) = "231" .SelectItem(h) = True h = .InsertItem(hR,,"Child C") .CellImage(h,2) = 2 .CellState(h,3) = 1 .CellValue(h,3) = "312" .CellImages(h,3) = "3,1,2" .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
With G2antt1 .BeginUpdate .Columns.Add "Clip" .ScrollBySingleLine = True .DrawGridLines = -2 With .Chart .AllowResizeChart = 6 ' ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader .DrawGridLines = -2 .FirstVisibleDate = #12/23/2000# .LevelCount = 2 .PaneWidth(False) = 216 With .Bars.Item("Task") .Pattern = 32 .Color = RGB(164,164,164) .StartColor = RGB(240,240,240) .EndColor = .StartColor .OverlaidType = 4611 ' OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or 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" .ItemBar(h,"K1",44) = "no clip, right(<b>2</b>)" .ItemBar(h,"K1",45) = 2 .AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2" .ItemBar(h,"K2",44) = "no clip, center(<b>1</b>)" .ItemBar(h,"K2",45) = 1 .AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3" .ItemBar(h,"K3",44) = "no clip, left(<b>0</b>)" .ItemBar(h,"K3",45) = 0 h = .AddItem("clip, inside (3-5)") .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1" .ItemBar(h,"K1",44) = "clip, inside, right(<b>5</b>)" .ItemBar(h,"K1",45) = 5 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2" .ItemBar(h,"K2",44) = "clip, inside, center(<b>4</b>)" .ItemBar(h,"K2",45) = 4 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3" .ItemBar(h,"K3",44) = "clip, inside, left(<b>3</b>)" .ItemBar(h,"K3",45) = 3 h = .AddItem("hide on min width, clip if not fit, inside (6-8)") .AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K1" .ItemBar(h,"K1",44) = "hide on min width, clip if not fit, inside, right(<b>8</b>)" .ItemBar(h,"K1",45) = 8 .AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K2" .ItemBar(h,"K2",44) = "hide on min width, clip if not fit, inside, center(<b>7</b>)" .ItemBar(h,"K2",45) = 7 .AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K3" .ItemBar(h,"K3",44) = "hide on min width, clip if not fit, inside, left(<b>6</b>)" .ItemBar(h,"K3",45) = 6 h = .AddItem("hide if not fit, no clip, inside (9-11)") .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1" .ItemBar(h,"K1",44) = "hide if not fit, no clip, inside, right(<b>11</b>)" .ItemBar(h,"K1",45) = 11 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2" .ItemBar(h,"K2",44) = "hide if not fit, no clip, center(<b>10</b>)" .ItemBar(h,"K2",45) = 10 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3" .ItemBar(h,"K3",44) = "hide if not fit, no clip, inside, left(<b>9</b>)" .ItemBar(h,"K3",45) = 9 h = .AddItem("no clip, inside, outside (12-14)") .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1" .ItemBar(h,"K1",44) = "no clip, inside, outside, right(<b>14</b>)" .ItemBar(h,"K1",45) = 14 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2" .ItemBar(h,"K2",44) = "no clip, inside, outside, center(<b>13</b>)" .ItemBar(h,"K2",45) = 13 .AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3" .ItemBar(h,"K3",44) = "no clip, inside, outside, left(<b>12</b>)" .ItemBar(h,"K3",45) = 12 h = .AddItem("no clip, outside (16-18)") .AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K1" .ItemBar(h,"K1",44) = "no clip, outside, right(<b>18</b>)" .ItemBar(h,"K1",45) = 18 .AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K2" .ItemBar(h,"K2",44) = "no clip, outside, center(<b>17</b>)" .ItemBar(h,"K2",45) = 17 .AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K3" .ItemBar(h,"K3",44) = "no clip, outside, left(<b>16</b>)" .ItemBar(h,"K3",45) = 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 G2antt1_AddColumn(ByVal Column As Object) With G2antt1 With Column End With End With End Sub ' AddItem event - Occurs after a new Item has been inserted to Items collection. Private Sub G2antt1_AddItem(ByVal Item As Long) With G2antt1 With .Items .AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4) End With End With End Sub With G2antt1 .BeginUpdate .ColumnAutoResize = False Set rs = CreateObject("ADOR.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 .PaneWidth(False) = 290 End With .Items.AllowCellValueToItemBar = True .Columns.Item(2).Def(18) = 1 .Columns.Item(4).Def(18) = 2 .Columns.Item("ShipVia").Position = 2 .EndUpdate End With |
2228 |
Does the control display images from database (DAO)
With G2antt1 .BeginUpdate .ColumnAutoResize = False .DrawGridLines = -1 .GridLineStyle = 512 .DefaultItemHeight = 48 With CreateObject("DAO.DBEngine.36") Set 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)
With G2antt1 .BeginUpdate .ColumnAutoResize = False .DrawGridLines = -1 .GridLineStyle = 512 .DefaultItemHeight = 48 Set rs = CreateObject("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
With G2antt1 .BeginUpdate .ColumnAutoResize = False Set rs = CreateObject("ADOR.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 G2antt1_BeforeExpandItem(ByVal Item As Long,Cancel As Variant) With G2antt1 .Refresh End With End Sub ' Event event - Notifies the application once the control fires an event. Private Sub G2antt1_Event(ByVal EventID As Long) With G2antt1 Debug.Print( .EventParam(-2) ) End With End Sub With G2antt1 .BeginUpdate .Indent = 16 .LinesAtRoot = -1 .HasLines = 1 .DrawGridLines = 1 .Columns.Add "Tasks" With .Chart .FirstVisibleDate = #9/20/2006# .ShowCollapsedBars = True .LevelCount = 2 .PaneWidth(0) = 128 .DrawGridLines = 1 With .Bars.Item("Task") .OverlaidType = 3 .Color = RGB(0,0,0) .StartColor = RGB(196,196,196) .EndColor = RGB(196,196,196) .Pattern = 32 End With End With With .Items h = .AddItem("Project 1") h1 = .InsertItem(h,,"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,,"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" .ExpandItem(h) = True End With .EndUpdate End With |
2224 |
How can I find all occurences of the giving value, within a column
With G2antt1 .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( .CellCaption(.FindItem("A",0,0),1) ) Debug.Print( .CellCaption(.FindItem("A",0,1),1) ) Debug.Print( .CellCaption(.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)
With G2antt1 .BeginUpdate .Columns.Add "Machines" .DrawGridLines = 1 .HeaderAppearance = 4 .HeaderVisible = 1 With .Chart .DrawGridLines = 1 .PaneWidth(False) = 128 .FirstVisibleDate = #1/1/2001# .LevelCount = 2 With .Bars.Item("Task") .Pattern = 1 .Def(4) = 18 .OverlaidType = 4 .HistogramPattern = .Pattern ' .Pattern .HistogramType = 256 .HistogramCumulativeOriginalColorBars = 1 .HistogramItems = -4 .HistogramRulerLinesColor = RGB(102,102,102) .Def(6) = "<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>" .Def(60) = "<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" .ItemBar(h,2,33) = 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" .ItemBar(h,4,33) = 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)
With G2antt1 .BeginUpdate .Columns.Add "Machines" .DrawGridLines = 1 .HeaderAppearance = 4 .HeaderVisible = 1 With .Chart .DrawGridLines = 1 .PaneWidth(False) = 128 .FirstVisibleDate = #1/1/2001# .LevelCount = 2 With .Bars.Item("Task") .Pattern = 1 .Def(4) = 18 .OverlaidType = 4 .HistogramPattern = .Pattern ' .Pattern .HistogramType = 256 .HistogramCumulativeOriginalColorBars = 1 .HistogramItems = -4 .Def(3) = "Bill" .Def(60) = "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" .ItemBar(h,2,33) = 16776960 .ItemBar(h,2,60) = "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 .ItemBar(h,4,33) = 16776960 .ItemBar(h,4,60) = "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 G2antt1_BarParentChange(ByVal Item As Long,ByVal Key As Variant,ByVal NewItem As Long,Cancel As Boolean) With G2antt1 Debug.Print( "Hover Over Item: " ) Debug.Print( .Items.CellCaption(NewItem,0) ) Cancel = .Items.ItemData(NewItem) End With End Sub ' ChartEndChanging event - Occurs after the chart has been changed. Private Sub G2antt1_ChartEndChanging(ByVal Operation As Long) With G2antt1 Debug.Print( "ChartEndChanging " ) Debug.Print( Operation ) End With End Sub ' ChartStartChanging event - Occurs when the chart is about to be changed. Private Sub G2antt1_ChartStartChanging(ByVal Operation As Long) With G2antt1 Debug.Print( "ChartStartChanging " ) Debug.Print( Operation ) End With End Sub With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #1/1/2001# .PaneWidth(False) = 48 .AllowLinkBars = False .Bars.Item("Task").OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset End With .Columns.Add "Column" With .Items h = .AddItem("Item 1") .EnableItem(h) = False .ItemData(h) = -1 h = .AddItem("Item 2") .ItemData(h) = 0 .AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B" .ItemBar(h,"B",28) = True .ItemData(.AddItem("Item 3")) = 0 .ItemData(.AddItem("Item 4")) = 0 End With .EndUpdate End With |
2220 |
Hide non-working days, Hide non-working hours
With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .NonworkingHours = 16773375 .ShowNonworkingUnits = False .ShowNonworkingDates = False .ShowNonworkingHours = False End With .EndUpdate End With |
2219 |
Show non-working days pattern, Hide non-working hours
With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .NonworkingHours = 16773375 .ShowNonworkingUnits = False .ShowNonworkingDates = True .ShowNonworkingHours = False End With .EndUpdate End With |
2218 |
Hide non-working days, Show non-working hours pattern
With G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .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 G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .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 G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .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 G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .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 G2antt1 .BeginUpdate With .Chart .FirstVisibleDate = #7/29/2022# .Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _ "<%yyyy%> <%h%> <%AM/PM%><||><||>65536" .PaneWidth(0) = 0 .LevelCount = 2 .UnitWidth = 12 .NonworkingDaysColor = RGB(51,51,51) .NonworkingDaysPattern = 6 .NonworkingHoursColor = RGB(187,187,187) .NonworkingHoursPattern = 6 .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader With .Level(0) .Label = "<%dddd%>" .Alignment = 1 End With .Level(1).Label = 65536 .UnitScale = 65536 .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 G2antt1 With .Chart .Label(4096) = "<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><" & _ "||>4096" .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader .LevelCount = 2 .PaneWidth(False) = 0 .MarkTodayColor = .BackColor .UnitScale = 4096 .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 G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With G2antt1 b = .Chart.BarFromPoint(-1,-1) i = .ItemFromPoint(-1,-1,c,hit) n = .Items.ItemBar(i,b,0) Debug.Print( "Height" ) Debug.Print( .Chart.Bars.Item(n).Height ) End With End Sub With G2antt1 .BeginUpdate .Columns.Add "Tasks" .DefaultItemHeight = 52 With .Chart .LevelCount = 2 .FirstVisibleDate = #10/10/2017# .PaneWidth(False) = 0 .NonworkingDays = 0 .MarkTodayColor = .BackColor .Bars.Item("Task").Pattern = 1 .Bars.Copy("Task","T1").Color = RGB(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 G2antt1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) With .Chart .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 G2antt1_BeforeExpandItem(ByVal Item As Long,Cancel As Variant) With G2antt1 Cancel = G2antt1.Items.ItemParent(Item) End With End Sub With G2antt1 .BeginUpdate .SingleSel = False .Columns.Add "Default" .LinesAtRoot = -1 With .Items h = .AddItem("Root 1") .InsertItem .InsertItem(h,,"Child 1.1"),,"Child" .InsertItem h,,"Child 1.2" .ExpandItem(h) = True h = .AddItem("Root 2") .InsertItem .InsertItem(h,,"Child 2.1"),,"Child" .InsertItem h,,"Child 2.2" .ExpandItem(h) = True End With .EndUpdate End With |
2209 |
How can I display the EBN bigger or smaller (thumb)
With G2antt1 .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 .Background(388) = &Ha000000 .Background(260) = &H11000000 .ScrollBars = 3855 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exHScrollEmptySpace Or ScrollBarsEnum.exVScrollOnThumbRelease Or ScrollBarsEnum.exHScrollOnThumbRelease Or 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 G2antt1_AddGroupItem(ByVal Item As Long) With G2antt1 color = 14474460 With .Items .ItemDivider(Item) = -1 .CellValue(Item,1) = .CellCaption(Item,.GroupItem(Item)) .AddBar Item,"Progress",#12/2/2017#,#12/2/2017# .DefineSummaryBars Item,"",-3,"" .ItemBold(Item) = True .ItemBackColor(Item) = color End With .Chart.ItemBackColor(Item) = color End With End Sub ' AddItem event - Occurs after a new Item has been inserted to Items collection. Private Sub G2antt1_AddItem(ByVal Item As Long) With G2antt1 With .Items .AddBar Item,"Task",#12/4/2017#,#12/10/2017# .ItemBar(Item,"",514) = .ItemToIndex(Item) End With End With End Sub With G2antt1 .BeginUpdate With .Chart .LevelCount = 2 .FirstVisibleDate = #12/2/2017# .PaneWidth(False) = 128 End With With .Columns .Add "C1" .Add "C2" End With .LinesAtRoot = -1 .SortBarVisible = True .SortBarCaption = "Drag a <b>column</b> header here to group by that column." .AllowGroupBy = True With .Items h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" h = .AddItem("Item B") .CellValue(h,1) = "SubItem B.1" h = .AddItem("Item B") .CellValue(h,1) = "SubItem B.1" End With .Columns.Item(0).SortOrder = 1 .EndUpdate End With |
2207 |
How can I change the names from English to my locale (localization)
With G2antt1 .BeginUpdate With .Chart .AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader .MonthNames = .LocMonthNames .WeekDays = .LocWeekDays .AMPM = .LocAMPM .FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay .Label(16) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>" .Label(256) = "<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256" .Label(4096) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mm" & _ "mm%>, <%yyyy%><||><||>4096" .Label(65536) = "<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>" & _ "65536" .Label(1048576) = "<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> " & _ "<%hh%>:<%nn%>" .Label(16777216) = "<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, " & _ "<%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>" .LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>" .LabelToolTip(256) = "<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>" .LabelToolTip(4096) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>" .LabelToolTip(65536) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>" .LabelToolTip(1048576) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>" .LabelToolTip(16777216) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%> <%yyyy%> <%hh%>:<%nn%>:<%ss%>" .ToolTip = "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>" .PaneWidth(False) = 0 .LevelCount = 2 .UnitScale = 4096 .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 G2antt1 .BeginUpdate .VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByB" & _ "IUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIE" & _ "VTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0ex" & _ "eiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBS" & _ "BQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg" .SelBackMode = 1 .Columns.Add "Tasks" With .Chart .OverviewVisible = -1 .OverviewHeight = 64 .FirstVisibleDate = #7/30/2018# .LevelCount = 2 .PaneWidth(False) = 128 .SelBackColor = G2antt1.SelBackColor .SelBarColor = RGB(128,128,128) .OverviewSelBackColor = &H200ff00 .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# .SelectItem(.ItemByIndex(1)) = True End With .EndUpdate End With |
2205 |
How can I display an item of picture type
With G2antt1 .BeginUpdate .LinesAtRoot = -1 .ScrollBySingleLine = False .HeaderAppearance = 4 .HeaderHeight = 24 .Columns.Add("Artikel").HTMLCaption = "<u>Artikel" .Columns.Add("Waarde").HTMLCaption = "<u>Waarde" .HTMLPicture("T22128") = "c:\exontrol\images\zipdisk.gif" With .Items h = .AddItem("T22128-28)2D") h1 = .InsertItem(h,,"<img>T22128:128</img>") .CellValueFormat(h1,0) = 1 .ItemHeight(h1) = 128 h1 = .InsertItem(h,,"werkvoorbereiding") .CellValue(h1,1) = "5.80" .CellBold(h1,1) = True .CellValue(.InsertItem(h1,,"Type"),1) = "Eenvoudig" .CellValue(.InsertItem(h1,,"Prijs p/uur"),1) = "60,00" .CellValue(.InsertItem(h1,,"Marhe"),1) = "15,00%" .CellValue(.InsertItem(h1,,"Insteltijd min."),1) = "5,00" .CellValue(.InsertItem(h1,,"Aantal"),1) = 1 .CellValue(.InsertItem(h1,,"Kostprije"),1) = "5,00" .ExpandItem(h1) = True h1 = .InsertItem(h,,"materiall") .CellValue(h1,1) = "14.82" .CellBold(h1,1) = True .ItemHasChildren(h1) = True h1 = .InsertItem(h,,"snijden") .CellValue(h1,1) = "3.13" .CellBold(h1,1) = True .ItemHasChildren(h1) = True .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 G2antt1_AddGroupItem(ByVal Item As Long) With G2antt1 With .Items .AddBar Item,"Progress",#12/2/2017#,#12/2/2017# .DefineSummaryBars Item,"",-3,"" .ItemBold(Item) = True End With End With End Sub ' AddItem event - Occurs after a new Item has been inserted to Items collection. Private Sub G2antt1_AddItem(ByVal Item As Long) With G2antt1 .Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017# End With End Sub With G2antt1 .BeginUpdate With .Chart .LevelCount = 2 .FirstVisibleDate = #12/2/2017# .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") .CellValue(h,1) = "SubItem A.1" .CellValue(h,2) = "SubItem A.2" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" .CellValue(h,2) = "SubItem A.2" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" .CellValue(h,2) = "SubItem A.2" h = .AddItem("Item A") .CellValue(h,1) = "SubItem A.1" .CellValue(h,2) = "SubItem A.2" h = .AddItem("Item B") .CellValue(h,1) = "SubItem B.1" .CellValue(h,2) = "SubItem B.2" h = .AddItem("Item B") .CellValue(h,1) = "SubItem B.1" .CellValue(h,2) = "SubItem B.2" End With .Columns.Item(0).SortOrder = 1 .EndUpdate End With |
2203 |
The exBarTransparent does not work for overlaid-bars
With G2antt1 .BeginUpdate .BackColorAlternate = RGB(240,240,240) .Columns.Add "Task" With .Chart .AllowCreateBar = 1 .AllowLinkBars = False .PaneWidth(False) = 48 .FirstVisibleDate = #1/1/2001# .LevelCount = 2 With .Bars.Item("Task") .OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack .Pattern = 1 .Overlaid(256) = 0 .Def(3) = "<%=%9%>" .Def(4) = 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" .ItemBar(0,"<*>",19) = 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.
With G2antt1 .BeginUpdate .Columns.Add "Tasks" .DefaultItemHeight = 24 With .Chart .NonworkingDays = 0 .FirstVisibleDate = #9/17/2006# .PaneWidth(False) = 96 .LevelCount = 2 With .Bars.Add("Green") .Color = RGB(0,255,0) .Def(18) = -2 .Def(3) = "<%=%9%>" .Def(4) = 18 End With With .Bars.Add("Red") .Color = RGB(255,0,0) .Def(18) = 2 .Def(3) = "<%=%9%>" .Def(4) = 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
With G2antt1 .BeginUpdate .Columns.Add "Task" With .Chart .PaneWidth(0) = 64 .FirstVisibleDate = #6/21/2005# .ResizeUnitScale = 65536 .UnitWidth = 48 .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,,"Child") .AddBar h1,"Task",#6/24/2005 8:00:00 AM#,#6/24/2005 4:00:00 PM# .AddLink "Link1",h,"",h1,"" .Link("Link1",12) = "<bgcolor=FFFFFF> link </bgcolor>" .ExpandItem(h) = True End With .EndUpdate End With |