|
2357
|
Specify the size of the Columns panel
With G2antt1
.BeginUpdate
.HeaderHeight = 24
.HeaderAppearance = Etched
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarRect = ",,96"
.ColumnsFloatBarVisible = ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate
End With
|
|
2356
|
Show a vertical line between pivot and Columns panel (EBN color)
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX" & _
"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI"
.Background(exColumnsFloatBackColor) = &H1000000
.HeaderHeight = 24
.HeaderAppearance = Etched
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate
End With
|
|
2355
|
Change the background of the Columns panel (EBN color)
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA"
.Background(exColumnsFloatBackColor) = &H1000000
.HeaderHeight = 24
.HeaderAppearance = Etched
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate
End With
|
|
2354
|
Change the background of the Columns panel (solid color)
With G2antt1
.BeginUpdate
.HeaderHeight = 24
.HeaderAppearance = Etched
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.ColumnsFloatBarVisible = ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleAsChild Or ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
.Background(exColumnsFloatBackColor) = RGB(240,240,240)
.EndUpdate
End With
|
|
2353
|
Change the visual appearance of the Columns panel
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" & _
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" & _
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" & _
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" & _
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" & _
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" & _
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" & _
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA"
.Background(exColumnsFloatAppearance) = &H1000000
.Background(exColumnsFloatCaptionBackColor) = RGB(246,246,246)
.BackColorHeader = &H1000000
.HeaderHeight = 24
.HeaderAppearance = Etched
With .Columns
.Add "City"
.Add("Start").Visible = False
.Add("End").Visible = False
End With
.Description(exColumnsFloatBar) = "Show/Hide"
.ColumnsFloatBarVisible = exColumnsFloatBarVisibleIncludeCheckColumns
.EndUpdate
End With
|
|
2352
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.DrawGridLines = exRowLines
.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
With .Items
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Germany"
.AddItem "Germany"
.AddItem "Germany"
.AddItem "Germany"
End With
.EndUpdate
End With
|
|
2351
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.DrawGridLines = exRowLines
.Columns.Add("Country").ShowIdem = " "
With .Items
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Spain"
.AddItem "Germany"
.AddItem "Germany"
.AddItem "Germany"
.AddItem "Germany"
End With
.EndUpdate
End With
|
|
2350
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
With G2antt1
.BeginUpdate
With .VisualAppearance
.RenderType = -1
.Add 1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="
.Add 2,"CP:1 -2 0 0 0"
End With
.DrawGridLines = exAllLines
.GridLineStyle = exGridLinesGeometric
.ShowFocusRect = False
.Background(exHeaderFilterBarButton) = &H2000000
.Background(exHeaderFilterBarActive) = &H2000001
.HeaderAppearance = Etched
.BackColorHeader = RGB(255,255,255)
.HeaderHeight = 24
.HeaderVisible = exHeaderVisibleExtendLevels
With .Columns.Add("1st col")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.Filter = "Item B"
.FilterType = exFilter
End With
.Columns.Add "2nd col"
With .Items
.AddItem "Item A"
.AddItem "Item B"
.AddItem "Item C"
End With
.ApplyFilter
.EndUpdate
End With
|
|
2349
|
Stack vs Cascade
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.HeaderAppearance = Flat
.Columns.Add "Type"
.BackColorAlternate = RGB(240,240,240)
With .Chart
.LevelCount = 2
.AllowCreateBar = exCreateBarAuto
.AllowLinkBars = False
.ResizeUnitScale = exHour
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
With .Bars.Copy("Task","T1")
.OverlaidType = exOverlaidBarsCascade
.Def(exBarCaption) = "<%=%9%>"
End With
With .Bars.Copy("Task","T2")
.OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.Def(exBarCaption) = "<%=%9%>"
End With
End With
With .Items
h = .AddItem("Cascade")
.AddBar h,"T1",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"T1",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"T1",#1/4/2001#,#1/7/2001#,"A3"
.AddBar h,"T1",#1/2/2001#,#1/7/2001#,"A4"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"A5"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"A6"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"A7"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"A8"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"A9"
.AddBar h,"T1",#1/8/2001#,#1/12/2001#,"AA"
h = .AddItem("Stack-AutoArrange")
.AddBar h,"T2",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"T2",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"T2",#1/4/2001#,#1/7/2001#,"A3"
.AddBar h,"T2",#1/2/2001#,#1/7/2001#,"A4"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"A5"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"A6"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"A7"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"A8"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"A9"
.AddBar h,"T2",#1/8/2001#,#1/12/2001#,"AA"
End With
.EndUpdate
End With
|
|
2348
|
Horizontally(left) align the multi-line caption of the bar
With G2antt1
.BeginUpdate
.Columns.Add "Task"
.HeaderAppearance = Etched
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.LevelCount = 2
End With
With .Items
.SelectableItem(.AddItem()) = False
h = .AddItem("Task 1")
.ItemHeight(h) = 42
.AddBar h,"Task",#1/2/2001#,#1/7/2001#,"K1","This is a bit of 1'st line<br>2'nd line<br>3'rd line"
.ItemBar(h,"K1",exBarHAlignCaption) = 0
End With
.EndUpdate
End With
|
|
2347
|
Defines the colors, to display overlapping links
With G2antt1
.BeginUpdate
.Columns.Add "Name"
.AntiAliasing = True
.OverlapLinksColors = "black,gray,lightgray"
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.PaneWidth(False) = 64
.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exLinkSolid
End With
With .Items
.AddItem ""
h1 = .AddItem("Item 1")
.AddBar h1,"Task",#1/3/2001#,#1/6/2001#,"A"
.AddBar h1,"Task",#1/8/2001#,#1/11/2001#,"B"
.AddBar h1,"Task",#1/13/2001#,#1/16/2001#,"C"
.AddBar h1,"Task",#1/18/2001#,#1/21/2001#,"D"
.AddLink "Link1",h1,"D",h1,"A"
.AddLink "Link2",h1,"C",h1,"B"
End With
.EndUpdate
End With
|
|
2346
|
The exPreventOverlapMixt option can be combined with the exChangeColorOnOverlap flag, allowing overlapping links to alternately adjust their width while also changing colors
With G2antt1
.BeginUpdate
.Columns.Add "Name"
.AntiAliasing = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.PaneWidth(False) = 64
.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exPreventOverlapMixt Or ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exLinkSolid
End With
With .Items
.AddItem ""
h1 = .AddItem("Item 1")
.AddBar h1,"Task",#1/3/2001#,#1/6/2001#,"A"
.AddBar h1,"Task",#1/8/2001#,#1/11/2001#,"B"
.AddBar h1,"Task",#1/13/2001#,#1/16/2001#,"C"
.AddBar h1,"Task",#1/18/2001#,#1/21/2001#,"D"
.AddLink "Link1",h1,"D",h1,"A"
.AddLink "Link2",h1,"C",h1,"B"
End With
.EndUpdate
End With
|
|
2345
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
With G2antt1
.BeginUpdate
.AntiAliasing = True
.Columns.Add "Name"
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.PaneWidth(False) = 64
.ShowLinks = ShowExtendedLinksEnum.exChangeColorOnOverlap Or ShowExtendedLinksEnum.exShowDefaultLinks
.NonworkingDays = 0
.LinksStyle = exLinkSolid
End With
With .Items
.AddItem ""
h1 = .AddItem("Item 1")
.AddBar h1,"Task",#1/3/2001#,#1/6/2001#,"A"
.AddBar h1,"Task",#1/8/2001#,#1/11/2001#,"B"
.AddBar h1,"Task",#1/13/2001#,#1/16/2001#,"C"
.AddBar h1,"Task",#1/18/2001#,#1/21/2001#,"D"
.AddLink "Link1",h1,"D",h1,"A"
.AddLink "Link2",h1,"C",h1,"B"
End With
.EndUpdate
End With
|
|
2344
|
How can I assign a multiple-lines caption to an bar
With G2antt1
.BeginUpdate
.Columns.Add "Task"
.HeaderAppearance = Etched
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.LevelCount = 2
End With
With .Items
.SelectableItem(.AddItem()) = False
h = .AddItem("Task 1")
.ItemHeight(h) = 42
.AddBar h,"Task",#1/2/2001#,#1/7/2001#,"K1"
.ItemBar(h,"K1",exBarCaption) = "This is a bit of 1'st line<br>2'nd line<br>3'rd line"
End With
.EndUpdate
End With
|
|
2343
|
The text on the chart overlap the rest of the bars, while using OverlaidType property on exOverlaidBarsStack
With G2antt1
.BeginUpdate
With .Chart
.PaneWidth(False) = 48
.FirstVisibleDate = #1/3/2002#
.LevelCount = 2
.FirstWeekDay = exMonday
.Bars.Add("Text").Def(exBarHAlignCaption) = 0
With .Bars.Item("Task")
.Def(exBarHAlignCaption) = 0
.OverlaidType = OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Text,Task"
End With
End With
.Columns.Add "Task"
With .Items
h = .AddItem("Default")
.AddBar h,"Text",#1/4/2002#,#1/4/2002#,"","This is another text"
.AddBar h,"Task",#1/6/2002#,#1/8/2002#,"A","This is a bit of text"
End With
.EndUpdate
End With
|
|
2342
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 2)
With G2antt1
.BeginUpdate
.Columns.Add "Def"
With .Chart
.AllowCreateBar = exNoCreateBar
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").Def(exBarToolTip) = "<%=`Start: ` + (date(%1) format `yyyy-MM-dd` )%>"
End With
With .Items
h = .AddItem("Task")
.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
End With
.EndUpdate
End With
|
|
2341
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 1)
With G2antt1
.BeginUpdate
.Columns.Add "Def"
With .Chart
.AllowCreateBar = exNoCreateBar
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").Def(exBarToolTip) = "<%=`Start: ` + year(%1) + `-` + (month(%1) lpad `00`) + `-` + (day(%1) lpad `00`)%>"
End With
With .Items
h = .AddItem("Task")
.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
End With
.EndUpdate
End With
|
|
2340
|
How can I replace or add an icon at runtime
With G2antt1
.BeginUpdate
.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
.ReplaceIcon "C:\images\favicon.ico",0
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.LevelCount = 2
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",exBarCaption) = "<img>1</img>"
End With
.EndUpdate
End With
|
|
2339
|
How can I define the sensitivity for link selection when the user clicks or selects a link
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
With G2antt1
Debug.Print( .Chart.LinkFromPoint(-1,-1) )
End With
End Sub
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #12/29/2000#
.PaneWidth(False) = 64
.LevelCount = 2
.LinksWidth = 1026
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
.AddItem
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/8/2001#,#1/10/2001#,"K2"
.AddLink "L1",h1,"K1",h2,"K2"
.AddItem
h3 = .AddItem("Task 3")
.AddBar h3,"Task",#1/14/2001#,#1/16/2001#,"K3"
.AddLink "L2",h2,"K2",h3,"K3"
End With
.EndUpdate
End With
|
|
2338
|
How can I let the user to create task-bars for leaf0-items only, when AllowCreateBar is exCreateBarAuto
' CreateBar event - Fired when the user creates a new bar.
Private Sub G2antt1_CreateBar(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal DateStart As Date,ByVal DateEnd As Date)
With G2antt1
With .Items
Debug.Print( "Call RemoveBar if the ChildCount property returns a non-zero value" )
Debug.Print( .ChildCount(Item) )
.RemoveBar Item,"newbar"
End With
End With
End Sub
With G2antt1
.BeginUpdate
.LinesAtRoot = exLinesAtRoot
.HeaderVisible = exHeaderVisibleExtendLevels
.HeaderAppearance = Etched
With .Chart
.AllowCreateBar = exCreateBarAuto
.LevelCount = 2
.PaneWidth(False) = 128
End With
.Columns.Add "Task"
With .Items
h = .AddItem("Root")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
End With
.EndUpdate
End With
|
|
2337
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
With G2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .Items.ItemBar(Item,Key,exBarStartStr) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .Items.ItemBar(Item,Key,exBarEndStr) )
End With
End Sub
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.PaneWidth(0) = 96
.ResizeUnitScale = exMinute
End With
With .Items
.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
End With
.EndUpdate
End With
|
|
2336
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
With G2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,exBarStart)) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,exBarEnd)) )
End With
End Sub
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.PaneWidth(0) = 96
.ResizeUnitScale = exMinute
End With
With .Items
.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
End With
.EndUpdate
End With
|
|
2335
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal Key As Variant)
With G2antt1
Debug.Print( "Start" )
Debug.Print( Key )
Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,exBarStart)) )
Debug.Print( "End" )
Debug.Print( Key )
Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,exBarEnd)) )
End With
End Sub
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
.Debug = True
With .Chart
.FirstVisibleDate = #9/20/2006#
.LevelCount = 2
.PaneWidth(0) = 96
.ResizeUnitScale = exMinute
End With
With .Items
.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
End With
.EndUpdate
End With
|
|
2334
|
Add/Remove/Updates the item-bar's resources
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub G2antt1_Click()
With G2antt1
With .Items
h = .SelectedItem(0)
.ItemBar(h,.FirstItemBar(h),exBarResources) = "+R4[10%]"
End With
End With
End Sub
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
With .Chart
.PaneWidth(False) = 96
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Def(exBarHAlignCaption) = 18
.Def(exBarCaption) = "<%=%49%>"
End With
End With
.Columns.Add "Machines"
With .Items
h = .AddItem("Machine 1")
.AddBar h,"Task",#1/6/2001#,#1/12/2001#,"K1"
.ItemBar(h,"K1",exBarResources) = "R1,R2"
h = .AddItem("Machine 2")
.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"K2"
.ItemBar(h,"K2",exBarResources) = "R2[75%],R3"
End With
.EndUpdate
End With
|
|
2333
|
Distributes resources to a bar
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
With .Chart
.PaneWidth(False) = 96
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Def(exBarHAlignCaption) = 18
.Def(exBarCaption) = "<%=%49%>"
End With
End With
.Columns.Add "Machines"
With .Items
h = .AddItem("Machine 1")
.AddBar h,"Task",#1/6/2001#,#1/12/2001#,"K1"
.ItemBar(h,"K1",exBarResources) = "R1,R2"
h = .AddItem("Machine 2")
.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"K2"
.ItemBar(h,"K2",exBarResources) = "R2[75%],R3"
End With
.EndUpdate
End With
|
|
2332
|
How can I display additional information about a time zone when the user clicks on it (expandable)
With G2antt1
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.FirstVisibleDate = #12/20/2009#
.MarkTimeZone "TZ",#1/1/2010#,#1/3/2010#,65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1"
End With
End With
|
|
2331
|
How can I have a tooltip for a marked TimeZone
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
With G2antt1
.ShowToolTip .Chart.TimeZoneFromPoint(-1,-1),"",,"+8"
End With
End Sub
With G2antt1
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.FirstVisibleDate = #12/28/2009#
.MarkTimeZone "Top",#1/1/2010#,#1/5/2010#,16711680,"1;;<fgcolor=FFFFFF>Top;1"
.MarkTimeZone "Partial",#1/8/2010#,#1/12/2010#,16711680,"50;;<fgcolor=FFFFFF>Partial;1"
.MarkTimeZone "Default",#1/15/2010#,#1/19/2010#,16711680,";;<fgcolor=FFFFFF>Default;1"
End With
End With
|
|
2330
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.DisplayFilterPattern = True
.Def(exFilterPatternTemplate) = "*<%filter%>*"
.FilterType = exPattern
.Filter = "1"
End With
With .Items
h = .AddItem("Root 1")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem h,,"Child 1"
.InsertItem h,,"Child 2"
End With
.ApplyFilter
.EndUpdate
End With
|
|
2329
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.DrawGridLines = exAllLines
.GridLineStyle = exGridLinesGeometric
With .Chart
.GridLineStyle = exGridLinesGeometric
.DrawGridLines = exAllLines
End With
.ColumnAutoResize = False
.Columns.Add "Column 1"
.Columns.Add "Column 2"
.Columns.Add "Column 3"
.Columns.Add "Column 4"
.EndUpdate
End With
|
|
2328
|
Load data as a tree using a parent-id relationship
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.HeaderAppearance = Etched
.HeaderHeight = 24
.DrawGridLines = exVLines
.LinesAtRoot = exLinesAtRoot
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3
End With
.DataSource = rs
.Columns.Item(0).Width = 128
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.mdb",3,3
End With
.PutItems rs.GetRows(),";0;17"
.Items.ExpandItem(0) = True
.EndUpdate
End With
|
|
2327
|
Is there a way to change the contents of the drop down editor based on a value in another column
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub G2antt1_AddItem(ByVal Item As EXG2ANTTLibCtl.HITEM)
With G2antt1
.Items.CellEditorVisible(Item,0) = exEditorVisible
.Items.CellEditorVisible(Item,1) = exEditorVisible
End With
End Sub
' EditOpen event - Occurs when the edit operation starts.
Private Sub G2antt1_EditOpen()
With G2antt1
With .Items
v = .CellValue(.FocusItem,0)
c = .CellCaption(.FocusItem,0)
End With
With .Columns.Item(1).Editor
.ClearItems
.AddItem v,c
End With
End With
End Sub
With G2antt1
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.GridLineStyle = exGridLinesGeometric
With .Columns.Add("DropDownList")
With .Editor
.EditType = DropDownListType
.AddItem 1,"First"
.AddItem 2,"Second"
.AddItem 3,"Third"
End With
End With
.DrawGridLines = exAllLines
.Columns.Add("DropDownList-Related").Editor.EditType = DropDownListType
With .Items
.CellValue(.AddItem(1),1) = -1
.CellValue(.AddItem(2),1) = -1
.CellValue(.AddItem(3),1) = -1
.LockedItemCount(exBottom) = 1
h = .LockedItem(exBottom,0)
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = DividerTop
.CellEditorVisible(h,0) = exEditorHidden
.CellSingleLine(h,0) = exCaptionWordWrap
.CellValueFormat(h,0) = exHTML
.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
" on the first column."
End With
.EndUpdate
End With
|
|
2326
|
Highlight the editable fields
' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
With G2antt1
.Refresh
End With
End Sub
With G2antt1
.FreezeEvents True
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .ConditionalFormats
With .Add("%CE1")
.Bold = True
.BackColor = RGB(245,245,245)
.ApplyTo = &H1
End With
With .Add("%CE2")
.Bold = True
.BackColor = RGB(245,245,245)
.ApplyTo = &H2
End With
With .Add("%CE3")
.Bold = True
.BackColor = RGB(245,245,245)
.ApplyTo = &H3
End With
End With
With .Columns
.Add "Description"
With .Add("Qty")
.Editor.EditType = SpinType
.Def(exTotalColumn) = "sum(current,rec,%1)"
End With
With .Add("Price")
.Def(exTotalColumn) = "avg(current,rec,%2)"
.Editor.EditType = SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.Def(exTotalColumn) = "sum(current,rec,%3)"
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,,"Group 1")
h = .InsertItem(g1,,"Item 1")
.CellValue(h,1) = 1
.CellValue(h,2) = 10
h = .InsertItem(g1,,"Item 2")
.CellValue(h,1) = 2
.CellValue(h,2) = 11
g2 = .InsertItem(r,,"Group 2")
h = .InsertItem(g2,,"Item 1")
.CellValue(h,1) = 3
.CellValue(h,2) = 12
h = .InsertItem(g2,,"Item 2")
.CellValue(h,1) = 4
.CellValue(h,2) = 13
.ExpandItem(0) = True
End With
.EndUpdate
.FreezeEvents False
End With
|
|
2325
|
Highlight the total fields
' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
With G2antt1
.Refresh
End With
End Sub
With G2antt1
.FreezeEvents True
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .ConditionalFormats
With .Add("%CT1")
.ForeColor = RGB(128,128,128)
.ApplyTo = &H1
End With
With .Add("%CT2")
.ForeColor = RGB(128,128,128)
.ApplyTo = &H2
End With
With .Add("%CT3")
.ForeColor = RGB(128,128,128)
.ApplyTo = &H3
End With
End With
With .Columns
.Add "Description"
With .Add("Qty")
.Editor.EditType = SpinType
.Def(exTotalColumn) = "sum(current,rec,%1)"
End With
With .Add("Price")
.Def(exTotalColumn) = "avg(current,rec,%2)"
.Editor.EditType = SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.Def(exTotalColumn) = "sum(current,rec,%3)"
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,,"Group 1")
h = .InsertItem(g1,,"Item 1")
.CellValue(h,1) = 1
.CellValue(h,2) = 10
h = .InsertItem(g1,,"Item 2")
.CellValue(h,1) = 2
.CellValue(h,2) = 11
g2 = .InsertItem(r,,"Group 2")
h = .InsertItem(g2,,"Item 1")
.CellValue(h,1) = 3
.CellValue(h,2) = 12
h = .InsertItem(g2,,"Item 2")
.CellValue(h,1) = 4
.CellValue(h,2) = 13
.ExpandItem(0) = True
End With
.EndUpdate
.FreezeEvents False
End With
|
|
2324
|
Highlight the leaf items
With G2antt1
.BeginUpdate
.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add "Desc"
End With
With .Items
hR = .AddItem("Root")
.CellValue(hR,1) = "The root directory /"
.ExpandItem(hR) = True
h = .InsertItem(hR,,"Home")
.CellValue(h,1) = "The home directory with user directories Alice and Bob"
.InsertItem h,,"Alice"
.InsertItem h,,"Bob"
.ExpandItem(h) = True
h = .InsertItem(hR,,"Etc")
.CellValue(h,1) = "The etc directory with one configuration file"
h = .InsertItem(h,,"nginx.conf")
.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
End With
.EndUpdate
End With
|
|
2323
|
Highlight the parent items
With G2antt1
.BeginUpdate
.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add "Desc"
End With
With .Items
hR = .AddItem("Root")
.CellValue(hR,1) = "The root directory /"
.ExpandItem(hR) = True
h = .InsertItem(hR,,"Home")
.CellValue(h,1) = "The home directory with user directories Alice and Bob"
.InsertItem h,,"Alice"
.InsertItem h,,"Bob"
.ExpandItem(h) = True
h = .InsertItem(hR,,"Etc")
.CellValue(h,1) = "The etc directory with one configuration file"
h = .InsertItem(h,,"nginx.conf")
.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
End With
.EndUpdate
End With
|
|
2322
|
Highlight the item being expanded or collapsed
With G2antt1
.BeginUpdate
.ConditionalFormats.Add("%CX0").Bold = True
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns
.Add("Item").Width = 16
.Add "Desc"
End With
With .Items
hR = .AddItem("Root")
.CellValue(hR,1) = "The root directory /"
.ExpandItem(hR) = True
h = .InsertItem(hR,,"Home")
.CellValue(h,1) = "The home directory with user directories Alice and Bob"
.InsertItem h,,"Alice"
.InsertItem h,,"Bob"
.ExpandItem(h) = True
h = .InsertItem(hR,,"Etc")
.CellValue(h,1) = "The etc directory with one configuration file"
h = .InsertItem(h,,"nginx.conf")
.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
End With
.EndUpdate
End With
|
|
2321
|
I am using exTotalColumn. Is there an option to exclude specific cells to display the total
' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
With G2antt1
.Refresh
End With
End Sub
With G2antt1
.FreezeEvents True
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns
.Add "Description"
With .Add("Qty")
.Editor.EditType = SpinType
.Def(exTotalColumn) = "sum(current,rec,%1)"
End With
With .Add("Price")
.Def(exTotalColumn) = "avg(current,rec,%2)"
.Editor.EditType = SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.Def(exTotalColumn) = "sum(current,rec,%3)"
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,,"Group 1")
.FormatCell(g1,2) = "`<average missing>`"
.CellEditorVisible(g1,2) = exEditorHidden
.CellBold(g1,2) = True
.CellForeColor(g1,2) = RGB(255,0,0)
h = .InsertItem(g1,,"Item 1")
.CellValue(h,1) = 1
.CellValue(h,2) = 10
h = .InsertItem(g1,,"Item 2")
.CellValue(h,1) = 2
.CellValue(h,2) = 11
g2 = .InsertItem(r,,"Group 2")
h = .InsertItem(g2,,"Item 1")
.CellValue(h,1) = 3
.CellValue(h,2) = 12
h = .InsertItem(g2,,"Item 2")
.CellValue(h,1) = 4
.CellValue(h,2) = 13
.ExpandItem(0) = True
End With
.EndUpdate
.FreezeEvents False
End With
|
|
2320
|
How can I add a total column
' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As EXG2ANTTLibCtl.HITEM,ByVal ColIndex As Long,NewValue As Variant)
With G2antt1
.Refresh
End With
End Sub
With G2antt1
.FreezeEvents True
.BeginUpdate
.HeaderAppearance = Etched
.HeaderHeight = 24
.LinesAtRoot = exLinesAtRoot
With .Columns
.Add "Description"
With .Add("Qty")
.Editor.EditType = SpinType
.Def(exTotalColumn) = "sum(current,rec,%1)"
End With
With .Add("Price")
.Def(exTotalColumn) = "avg(current,rec,%2)"
.Editor.EditType = SpinType
End With
With .Add("Amount")
.ComputedField = "%1 * %2"
.Def(exTotalColumn) = "sum(current,rec,%3)"
End With
End With
With .Items
r = .AddItem("Root")
g1 = .InsertItem(r,,"Group 1")
h = .InsertItem(g1,,"Item 1")
.CellValue(h,1) = 1
.CellValue(h,2) = 10
h = .InsertItem(g1,,"Item 2")
.CellValue(h,1) = 2
.CellValue(h,2) = 11
g2 = .InsertItem(r,,"Group 2")
h = .InsertItem(g2,,"Item 1")
.CellValue(h,1) = 3
.CellValue(h,2) = 12
h = .InsertItem(g2,,"Item 2")
.CellValue(h,1) = 4
.CellValue(h,2) = 13
.ExpandItem(0) = True
End With
.EndUpdate
.FreezeEvents False
End With
|
|
2319
|
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
With G2antt1
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.ToolTip = ""
End With
End With
|
|
2318
|
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
.AntiAliasing = True
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
.AddLink "L1",h1,"K1",h2,"K2"
.Link("L1",exLinkStyle) = 2
.Link("L1",exLinkWidth) = 2
h3 = .AddItem("Task 4")
.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
.AddLink "L2",h2,"K2",h3,"K3"
.Link("L2",exLinkStyle) = 1
.Link("L2",exLinkWidth) = 2
End With
.EndUpdate
End With
|
|
2317
|
How can I change the tooltip's margins (method 2)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
With G2antt1
.ShowToolTip .Chart.BarFromPoint(-1,-1)
End With
End Sub
With G2antt1
.BeginUpdate
.ToolTipMargin = "16,8"
.Columns.Add "Def"
With .Chart
.AllowCreateBar = exNoCreateBar
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").Def(exBarToolTip) = "..."
End With
With .Items
h = .AddItem("Task")
.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
End With
.EndUpdate
End With
|
|
2316
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
With G2antt1
.ShowToolTip .Chart.BarFromPoint(-1,-1)
End With
End Sub
With G2antt1
.BeginUpdate
.ToolTipMargin = "16,8"
.Columns.Add "Def"
With .Chart
.AllowCreateBar = exNoCreateBar
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #1/1/2010#
.Bars.Item("Task").Def(exBarToolTip) = "..."
End With
With .Items
h = .AddItem("Task")
.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
End With
.EndUpdate
End With
|
|
2315
|
exShowExtendedLinks
With G2antt1
.BeginUpdate
.DefaultItemHeight = 24
.HeaderHeight = 20
.HeaderAppearance = Etched
.AntiAliasing = True
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 48
.LevelCount = 2
.UnitScale = exHour
.FirstVisibleDate = #1/10/2024#
With .Level(1)
.DrawTickLines = exLevelNoLine
.DrawTickLinesFrom 0,exLevelDotLine
End With
.AllowResizeChart = &Hfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
.ShowLinks = exShowExtendedLinks
End With
With .Items
.AddBar .AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1"
.AddBar .AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2"
.AddBar .AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3"
.AddBar .AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4"
.AddLink "L13",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3"
.AddLink "L14",.ItemByIndex(0),"T1",.ItemByIndex(3),"T4"
.AddLink "L24",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4"
End With
.EndUpdate
End With
|
|
2314
|
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar
With G2antt1
.BeginUpdate
.DefaultItemHeight = 24
.HeaderHeight = 20
.HeaderAppearance = Etched
.AntiAliasing = True
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 48
.LevelCount = 2
.UnitScale = exHour
.FirstVisibleDate = #1/10/2024#
With .Level(1)
.DrawTickLines = exLevelNoLine
.DrawTickLinesFrom 0,exLevelDotLine
End With
.AllowResizeChart = &Hfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
End With
With .Items
.AddBar .AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1"
.AddBar .AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2"
.AddBar .AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3"
.AddBar .AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4"
.AddLink "L1",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3"
.AddLink "L2",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4"
.Link("L2",exLinkShowRound) = 4
End With
.EndUpdate
End With
|
|
2313
|
How to use arrows key left/right to move the cursor left/right inside the text
With G2antt1
.BeginUpdate
With .Columns.Add("Edit").Editor
.EditType = EditType
.Option(exLeftArrow) = False
.Option(exRightArrow) = False
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
.EndUpdate
End With
|
|
2312
|
How can I force the cursor to jump to the end of the editor once the user clicks the cell
With G2antt1
.BeginUpdate
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Columns.Add("Edit").Editor
.EditType = EditType
.Option(exEditSelStart) = -1
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
.EndUpdate
End With
|
|
2311
|
How can I show the overview with a different color except or outside the selection
With 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(exOverviewSelResize) = RGB(1,0,0)
.Background(exOverviewSelOut) = RGB(240,240,240)
.Chart.OverviewSelBackColor = RGB(255,255,255)
.Background(exOverviewSelUnit) = &H1000000
With .Chart
.FirstVisibleDate = #6/21/2001#
.PaneWidth(False) = 48
.OverviewVisible = &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exDay
.Label(exHour) = ""
.Label(exMinute) = ""
.Label(exSecond) = ""
.AllowOverviewZoom = exAlwaysZoom
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
End With
.EndUpdate
End With
|
|
2310
|
Resize the chart using the overview's selection left and right margins (blue)
With G2antt1
.BeginUpdate
.BackColorLevelHeader = .BackColor
.Background(exOverviewSelResize) = RGB(0,0,255)
With .Chart
.FirstVisibleDate = #6/21/2001#
.PaneWidth(False) = 48
.OverviewVisible = &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exDay
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
End With
.EndUpdate
End With
|
|
2309
|
Resize the chart using the overview's selection left and right margins (black)
With G2antt1
.BeginUpdate
.BackColorLevelHeader = .BackColor
.Background(exOverviewSelResize) = RGB(1,0,0)
With .Chart
.FirstVisibleDate = #6/21/2001#
.PaneWidth(False) = 48
.OverviewVisible = &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
.OverviewHeight = 64
.LevelCount = 2
.UnitScale = exDay
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
End With
.EndUpdate
End With
|
|
2308
|
Disable temporarily the column's sort, resize and drag and drop
With G2antt1
.BeginUpdate
.OnResizeControl = exResizeChart
.SortBarVisible = True
.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
.AllowGroupBy = True
.HeaderEnabled = False
.HeaderAppearance = Etched
.Columns.Add("Index").FormatColumn = "1 index ``"
.Columns.Add("Pos").FormatColumn = "1 apos ``"
.Columns.Add("Edit").Editor.EditType = EditType
.GridLineStyle = exGridLinesGeometric
.DrawGridLines = exVLines
.GridLineColor = RGB(224,224,224)
With .Chart
.AllowCreateBar = exCreateBarAuto
.LevelCount = 2
.FirstVisibleDate = #12/28/2000#
.PaneWidth(False) = 196
.GridLineStyle = exGridLinesGeometric
.DrawGridLines = exAllLines
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",exLinkStartPos) = 0
.Link("Link1",exLinkEndPos) = 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",exLinkStartPos) = 2
.Link("Link1",exLinkEndPos) = 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",exLinkStartPos) = 0
.Link("Link1",exLinkEndPos) = 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,"",exBarPredecessor) = "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,"",exBarPredecessor) = "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,"",exBarPredecessor) = "1FF"
.SchedulePDM 0,""
End With
.EndUpdate
End With
|