VARCHART XGantt是一個交互式的甘特圖控件，其模塊化的設計讓您可以創建滿足您和您的客戶所需求的應用程序。VARCHART XGantt可以快速、簡單地集成到您的應用程序中，幫助您識別性能瓶頸、避免延遲以及高效利用資源，使復雜數據變得更加容易理解。本篇文章主要介紹VARCHART XGantt用戶手冊中的如何提供數據（針對ActiveX版），這個版本與.NET版本最大的區別就是代碼不同，現在就跟著小編來看一下吧~

點擊下載VARCHART XGantt免費版

為了顯示活動和鏈接，需要為VARCHART XGantt提供數據。默認情況下，所需的通信由兩個表實現：

1. Maindata

2.關系

通過加載數據文件samples.ini，表格由以下數據填充：

Maindata表的字段：

關系領域：

此外，必須手動定義所需字段。您可以在設計時通過對話框編輯數據表，或在運行時通過對象VcDataTableFieldCollection的Add（...）方法執行此操作。

如果您需要的表格多于默認定義的兩個表格，則可以在屬性頁面上創建它們，單擊常規屬性頁面上啟用的擴展數據表后，在屬性頁面上管理數據表。您可以在對話框編輯數據表中創建（或編輯）新表所需的字段。

VcDataRecordCollection的DataRecordByID（）方法允許通過主鍵快速查找對象。

為了使我們的入門示例中的活動和鏈接可見，您需要首先在數據表中輸入一些記錄。

這可以通過使用對象類型VcDataRecordCollection的Add（...）方法來完成。方法EndLoading完成了相應圖表的數據輸入。為此，請在表單的Load事件中輸入以下代碼行。

示例代碼

Set dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
Set dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add "1;Node 1;07.05.2007;;5"
dataRecCltn.Add "2;Node 2;14.05.2007;;5"
dataRecCltn.Add "3;Node 3;21.05.2007;;5" 
Set dataTable =
VcGantt1.DataTableCollection.DataTableByName("Relations")
Set dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add "1;1;2"
dataRecCltn.Add "2;2;3"
VcGantt1.EndLoading

記錄中的值由分號分隔。字段的順序必須與數據定義中字段的順序相對應。新記錄必須具有明確的非空標識。記錄中的日期必須與數據定義表中的DateFormat定義相對應。持續時間的解釋取決于時間單位，并在常規屬性頁面上預設為Days。

對于表和常規屬性頁上的每個對話框，一致定義Date輸出格式。

從CSV文件加載數據

或者，您也可以從所謂的CSV文件加載數據。文件的結構必須符合以下方案：

示例代碼

1;Node 1;07.05.2007;;5
2;Node 2;14.05.2007;;5
3;Node 3;21.05.2007;;5
****
1;1;2
2;2;3

每條記錄都有自己的路線。行的內容對應于對象類型VcDataRecordCollection的Add（...）方法的傳遞參數。

首先列出Maindata的記錄，然后列出關系記錄。使用****表名****以標記每個記錄組的開頭。

如果您在intro.csv下保存了這樣的文件，您可以按如下方式導入數據：

示例代碼

VcGantt1.Open("c:\intro.csv")

指定表示的時間段

到目前為止，活動仍然是不可見的，因為時間尺度尚未適應節點所處的時間段。要顯示的時間范圍的可以由屬性TimeScaleStart和TimeScaleEnd定義，也可以通過對象VcGantt的OptimizeTimeScaleStartEnd（...）方法從數據中確定。

示例代碼

 VcGantt1.TimeScaleEnd = DateSerial(2008, 1, 1)
 VcGantt1.TimeScaleStart = DateSerial(2007, 5, 4)

下面列出了我們的入門示例所需的代碼行。

示例代碼

Private Sub Form_Load()
 VcGantt1.Width = ScaleWidth - VcGantt1.Left
 VcGantt1.Height = ScaleHeight - VcGantt1.Top

Set dataTable = VcGantt1.DataTableCollection.DataTableByName("Maindata")
Set dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add "1;Node 1;07.05.2007;;5
dataRecCltn.Add "2;Node 2;14.05.2007;;5"
dataRecCltn.Add "3;Node 3;21.05.2007;;5"
Set dataTable =
VcGantt1.DataTableCollection.DataTableByName("Relations")
Set dataRecCltn = dataTable.DataRecordCollection
dataRecCltn.Add "1;1;2"
dataRecCltn.Add "2;2;3"
 VcGantt1.EndLoading

 VcGantt1.OptimizeTimeScaleStartEnd (3)
End Sub
Private Sub Form_Resize()
 VcGantt1.Width = ScaleWidth - VcGantt1.Left
 VcGantt1.Height = ScaleHeight - VcGantt1.Top
End Sub

如果您現在運行該程序，結果對應一下圖片。

想要購買VARCHART XGantt正版授權，或了解更多產品信息請點擊