|
53
|
How can I prevent the control from filtering while the user is typing in the filter prompt, and apply the filter only when the Enter key is pressed
With AxG2Host1
With .Host
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptOnEnter Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPrompt = "<i><fgcolor=808080>Type filter and press Enter…</fgcolor></i>"
.FilterBarPromptType = 3
With .Items
.AddItem("Nancy Davolio")
.AddItem("Andrew Fuller")
.AddItem("Janet Leverling")
.AddItem("Margaret Peacock")
.AddItem("Steven Buchanan")
.AddItem("Michael Suyama")
.AddItem("Robert King")
.AddItem("Laura Callahan")
.AddItem("Anne Dodsworth")
End With
.EndUpdate()
End With
End With
|
|
52
|
Print and Print Preview
Dim h
With AxG2Host1
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostReadOnly
With .Host
.BeginUpdate()
.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
.ReplaceIcon("C:\images\favicon.ico",0)
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",3) = "<img>1</img>"
End With
.EndUpdate()
End With
With CreateObject("Exontrol.Print")
.PrintExt = AxG2Host1.Host
.Preview()
End With
End With
|
|
51
|
How can I replace or add an icon at runtime
Dim h
With AxG2Host1
With .Host
.BeginUpdate()
.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
.ReplaceIcon("C:\images\favicon.ico",0)
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",3) = "<img>1</img>"
End With
.EndUpdate()
End With
End With
|
|
50
|
How do I get the start/end of the bar once the BarResize/BarResizing event occurs
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
Dim h,key
With AxG2Host1
h = .get_HostEventParam(0)
key = .get_HostEventParam(1)
Debug.Print( .get_HostEventParam(-2) )
Debug.Print( "Start:" )
Debug.Print( .Host.Items.ItemBar(h,key,1) )
Debug.Print( .get_HostEventParam(-2) )
Debug.Print( "End:" )
Debug.Print( .Host.Items.ItemBar(h,key,2) )
End With
End Sub
With AxG2Host1
With .Host.Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #3/30/2019#
End With
With .Host.Items
.AddBar(.AddItem("Task"),"Task",#4/1/2019#,#4/14/2019#)
End With
End With
|
|
49
|
How do I get the bar/task from the cursor
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
Dim b,c,h,i
With AxG2Host1
Debug.Print( "Event:" )
Debug.Print( .get_HostEventParam(-2) )
With .Host
i = .ItemFromPoint(-1,-1,c,h)
Debug.Print( "Cell:" )
Debug.Print( .Items.CellCaption(i,c) )
With .Chart
b = .BarFromPoint(-1,1)
Debug.Print( "Bar:" )
Debug.Print( AxG2Host1.Host.Items.ItemBar(i,b,0) )
End With
End With
End With
End Sub
|
|
48
|
How do I get the cell from the cursor
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
Dim c,h,i
With AxG2Host1
Debug.Print( "Event:" )
Debug.Print( .get_HostEventParam(-2) )
With .Host
i = .ItemFromPoint(-1,-1,c,h)
Debug.Print( "Cell:" )
Debug.Print( .Items.CellCaption(i,c) )
End With
End With
End Sub
|
|
47
|
How can I highlights cells based on its value
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
With .Host
.BeginUpdate()
.BackColorAlternate = RGB(0,0,0)
With .Columns.Item("Title")
.Def(4) = 15790320
.Width = .AutoWidth
End With
With .ConditionalFormats
.Add("lower(%4) contains `manager`").Bold = True
.Add("%3").BackColor = RGB(240,240,240)
End With
.Items.ExpandItem(0) = True
With .Columns.Item("EmployeeID")
.Width = .AutoWidth
End With
.EndUpdate()
End With
End With
|
|
46
|
How do I programatically hide a column
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Columns.Item("LastName").Visible = False
End With
|
|
45
|
Is it possible to get the information from the control when we click on the bar/item
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
Dim b,c,hit,i
With AxG2Host1
Debug.Print( .get_HostEventParam(-2) )
With .Host
i = .ItemFromPoint(-1,-1,c,hit)
Debug.Print( "cell's value from cursor: " )
Debug.Print( .Items.CellValue(i,c) )
Debug.Print( "cell's value on col 1: " )
Debug.Print( .Items.CellValue(i,1) )
b = .Chart.BarFromPoint(-1,-1)
Debug.Print( "Bar:" )
Debug.Print( b )
Debug.Print( "Bar Start:" )
Debug.Print( .Items.ItemBar(i,b,1) )
Debug.Print( "Bar End:" )
Debug.Print( .Items.ItemBar(i,b,2) )
Debug.Print( "Bar Caption:" )
Debug.Print( .Items.ItemBar(i,b,3) )
End With
End With
End Sub
With AxG2Host1
With .Host
.Debug = True
With .Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
With .Host.Chart
.PaneWidth(False) = 128
.ScrollTo(#5/27/2017#,1)
End With
End With
|
|
44
|
How do I get the bar from the cursor
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
With AxG2Host1
Debug.Print( .get_HostEventParam(-2) )
Debug.Print( .Host.Chart.BarFromPoint(-1,-1) )
End With
End Sub
With AxG2Host1
With .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
With .Chart.Bars.Item("Task")
.Height = 15
.Color = &H1ff0000
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
With .Host.Chart
.PaneWidth(False) = 128
.ScrollTo(#5/27/2017#,1)
End With
End With
|
|
43
|
How do I add Start/End columns
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
With AxG2Host1
Debug.Print( .get_HostEventParam(-2) )
End With
End Sub
With AxG2Host1
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostReadWrite Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowAddEmptyItem
With .Host
.SingleSel = False
.OnResizeControl = 1
.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exDisableNoVertical
With .Columns.Add("Start")
.AllowSizing = False
.Def(18) = 1
.Editor.EditType = 7
End With
With .Columns.Add("End")
.AllowSizing = False
.Def(18) = 2
.Editor.EditType = 7
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.AllowCreateBar = 1
.PaneWidth(False) = 256
.Bars.Item("Task").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
End With
End With
End With
|
|
42
|
How do I hide the left/items/columns part of the control
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
With .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostReadWrite Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowAddEmptyItem
With .Host
.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exDisableSplitter Or EXG2ANTTLib.OnResizeControlEnum.exResizeChart
With .Chart
.ColumnsFormatLevel = "1"
.PaneWidth(False) = 0
.ScrollTo(#5/27/2017#,1)
End With
End With
End With
|
|
41
|
How do I hide the right/chart/tasks part of the control
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
With .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
With .Host
With .Chart
.PaneWidth(True) = 0
.OverviewVisible = 0
End With
End With
End With
|
|
40
|
How do hide the top/overview part of the control
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,.get_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource))
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"BirthDate")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"HireDate")
With .Host
With .Chart
.OverviewVisible = 0
.PaneWidth(False) = 256
.ScrollTo(#4/27/1969#,1)
End With
End With
End With
|
|
39
|
How do I resize the panels
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
With .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
With .Chart.Bars.Item("Task")
.Height = 15
.Color = &H1ff0000
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
With .Host.Chart
.PaneWidth(False) = 128
.ScrollTo(#5/27/2017#,1)
End With
End With
|
|
38
|
How do I lock the first column
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
With .Host
.CountLockedColumns = 1
.BackColorLock = .BackColorAlternate
End With
End With
|
|
37
|
How do I specify a different color for the tasks ( EBN color )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
With .Host
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2Host\Sample\EBN\Assorted\wbs-ass.ebn")
With .Chart.Bars.Item("Task")
.Height = 15
.Color = &H1ff0000
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
.Host.Chart.PaneWidth(False) = 256
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
36
|
How do I specify a different color for the tasks ( solid color, transparent )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
With .Host.Chart.Bars.Item("Task")
.Pattern = 1
.Color = RGB(0,0,255)
.Def(19) = 50
End With
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksColor,"Color")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksCaption,"TaskName")
.Host.Items.ExpandItem(0) = True
.Host.Chart.PaneWidth(False) = 256
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
35
|
GroupBy
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host
.AllowGroupBy = True
.SortBarVisible = True
.BackColorSortBar = AxG2Host1.Host.BackColor
.BackColorSortBarCaption = .BackColorSortBar
.SortBarCaption = "<sha ;;0><fgcolor=FF0000>Drag a <b>column</b> header here to sort by that column."
With .Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Items.ExpandItem(0) = True
.CountLockedColumns = 1
.BackColorLock = .BackColorAlternate
With .Columns.Item("EmployeeID")
.AllowGroupBy = False
.Def(7) = AxG2Host1.Host.BackColorAlternate
End With
.Columns.Item("Title").SortOrder = 1
End With
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
34
|
How can I hide a column
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.Host.Columns.Item(0).Visible = False
End With
|
|
33
|
Can row errors being highligted until the user correct them, not to clear them as soon a change occurs
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_HostDef(EXG2HOSTLib.DefHostPropertyEnum.exErrorClearOnChange,False)
End With
|
|
32
|
No error is highligthed
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
End With
|
|
31
|
I've noticed that rows with errors are shown in red. Is it possible to change the colors
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_HostDef(EXG2HOSTLib.DefHostPropertyEnum.exErrorBackColor,0)
.set_HostDef(EXG2HOSTLib.DefHostPropertyEnum.exErrorForeColor,16777215)
End With
|
|
30
|
Is it possible to rename the (New) to something else
With AxG2Host1
.set_HostDef(EXG2HOSTLib.DefHostPropertyEnum.exNew,"*")
With .Host
.BeginUpdate()
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate()
End With
.Refresh()
End With
|
|
29
|
How can I hide the (New) item (sample 2)
With AxG2Host1
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostAllowUpdate Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowDelete
With .Host
.BeginUpdate()
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate()
End With
End With
|
|
28
|
How can I hide the (New) item (sample 1)
With AxG2Host1
.set_HostDef(EXG2HOSTLib.DefHostPropertyEnum.exNew,"")
With .Host
.BeginUpdate()
.Items.AddItem("A")
.Items.AddItem("B")
.EndUpdate()
End With
.Refresh()
End With
|
|
27
|
Read-Only
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostReadOnly
End With
|
|
26
|
How can I prevent user create new /delete tasks ( only move or resize then )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostAllowUpdate
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
25
|
How do I get the row/item/task/link from the cursor
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
With AxG2Host1
Debug.Print( .HostContext.ToString )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostAllowUpdate Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowAddNew
End With
|
|
24
|
Disable Delete
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostAllowUpdate Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowAddNew
End With
|
|
23
|
Disable AddNew
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostAllowUpdate Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowDelete
End With
|
|
22
|
ACCDB sample ( file )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
21
|
MDB sample ( file )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\sample.mdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
20
|
DBF sample ( file )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\sample.dbf")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
End With
|
|
19
|
DAO sample ( object, DAO.DBEngine.120, multiple tasks, multiple tables )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees,rsLinks,rsTasks
With AxG2Host1
With CreateObject("DAO.DBEngine.120")
With .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
rsTasks = .OpenRecordset("EmployeeDetails")
rsLinks = .OpenRecordset("EmployeeLinks")
End With
End With
.set_DataSource("Items",rsEmployees)
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataSource("Tasks",rsTasks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataSource("Links",rsLinks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
18
|
DAO sample ( file, multiple tasks, multiple tables )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataTechnology("Tasks","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataTechnology("Links","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
17
|
DAO sample ( object, DAO.DBEngine.120, single task, single table )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees,rsLinks
With AxG2Host1
With CreateObject("DAO.DBEngine.120")
With .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
rsLinks = .OpenRecordset("EmployeeLinks")
End With
End With
.set_DataSource("Items",rsEmployees)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,.get_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource))
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"BirthDate")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"HireDate")
.set_DataSource("Links",rsLinks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
End With
|
|
16
|
DAO sample ( file, single task, single table )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,.get_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource))
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"BirthDate")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"HireDate")
.set_DataTechnology("Links","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
End With
|
|
15
|
DAO sample ( tree recordset )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
End With
|
|
14
|
DAO sample ( flat recordset )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees
With AxG2Host1
With CreateObject("DAO.DBEngine.120")
With .OpenDatabase("C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
rsEmployees = .OpenRecordset("Employees")
End With
End With
.set_DataSource("Items",rsEmployees)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
End With
|
|
13
|
DAO sample ( flat )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","DAO.DBEngine.120;DAO.DBEngine.36")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
End With
|
|
12
|
ADO sample ( object, ADODB.Recordset, multiple tasks )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees,rsLinks,rsTasks,rstasks
With AxG2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Items",rsEmployees)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
rsTasks = CreateObject("ADODB.Recordset")
rsTasks.Open("EmployeeDetails","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Tasks",rstasks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
rsLinks = CreateObject("ADODB.Recordset")
rsLinks.Open("EmployeeLinks","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Links",rsLinks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
11
|
ADO sample ( file, multiple tasks, multiple tables )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataTechnology("Tasks","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Tasks",.get_DataSource("Items"))
.set_DataMember("Tasks","EmployeeDetails")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,"Tasks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksItemID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"DateStart")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"DateEnd")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksID,"TaskID")
.set_DataTechnology("Links","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
With .Host.Chart.Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Progress"
End With
.Host.Items.ExpandItem(0) = True
.Host.Chart.ScrollTo(#5/27/2017#,1)
End With
|
|
10
|
ADO sample ( object, ADODB.Recordset, single task, single table )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees,rsLinks
With AxG2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Items",rsEmployees)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,.get_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource))
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"BirthDate")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"HireDate")
rsLinks = CreateObject("ADODB.Recordset")
rsLinks.Open("EmployeeLinks","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Links",rsLinks)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
End With
|
|
9
|
ADO sample ( file, single task, single table )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksDataSource,.get_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource))
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksStart,"BirthDate")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exTasksEnd,"HireDate")
.set_DataTechnology("Links","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Links",.get_DataSource("Items"))
.set_DataMember("Links","EmployeeLinks")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksDataSource,"Links")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksStart,"Start")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exLinksEnd,"End")
End With
|
|
8
|
ADO sample ( tree recordset )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsID,"EmployeeID")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsParentID,"ReportsTo")
End With
|
|
7
|
ADO sample ( flat recordset )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim rsEmployees
With AxG2Host1
rsEmployees = CreateObject("ADODB.Recordset")
rsEmployees.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb",3,3)
.set_DataSource("Items",rsEmployees)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
End With
|
|
6
|
ADO sample ( flat table )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","ADODB.Recordset;ADOR.Recordset")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\Access\sample.accdb")
.set_DataMember("Items","Employees")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
End With
|
|
5
|
XML sample ( object, MSXML.DOMDocument )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
Dim xml
With AxG2Host1
xml = CreateObject("MSXML.DOMDocument")
xml.async = False
xml.load("C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml")
.set_DataSource("Items",xml)
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
With .Host
.LinesAtRoot = -1
.SingleSel = False
.AutoDrag = 3
End With
End With
|
|
4
|
XML sample ( file tree )
' Error event - Fired when an internal error occurs.
Private Sub AxG2Host1_Error(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_ErrorEvent) Handles AxG2Host1.Error
With AxG2Host1
Debug.Print( e.error )
Debug.Print( e.description )
End With
End Sub
With AxG2Host1
.set_DataTechnology("Items","MSXML.DOMDocument")
.set_DataSource("Items","C:\Program Files\Exontrol\ExG2Host\Sample\sample.xml")
.set_DataField(EXG2HOSTLib.HostObjectFieldEnum.exItemsDataSource,"Items")
With .Host
.LinesAtRoot = -1
.SingleSel = False
.AutoDrag = 3
End With
End With
|
|
3
|
How can I let user create new items/bars when clicking the empty area of the control
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
With AxG2Host1
Debug.Print( .get_HostEventParam(-2) )
End With
End Sub
With AxG2Host1
.HostReadOnly = EXG2HOSTLib.HostReadOnlyEnum.exHostReadWrite Or EXG2HOSTLib.HostReadOnlyEnum.exHostAllowAddEmptyItem
With .Host
.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exDisableNoVertical
With .Chart
.PaneWidth(False) = 128
.AllowCreateBar = 1
End With
End With
End With
|
|
2
|
How do I handle events of the host
' HostEvent event - Notifies the application once the host fires an event.
Private Sub AxG2Host1_HostEvent(ByVal sender As System.Object, ByVal e As AxEXG2HOSTLib._IG2HostEvents_HostEventEvent) Handles AxG2Host1.HostEvent
With AxG2Host1
Debug.Print( .get_HostEventParam(-2) )
End With
End Sub
With AxG2Host1
With .Host
.BeginUpdate()
.Columns.Add("new column")
.EndUpdate()
End With
End With
|
|
1
|
How can I get the version of the host/exg2antt control
With AxG2Host1
Debug.Print( .Version )
Debug.Print( "Host" )
Debug.Print( .Host.Version )
End With
|