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

點(diǎn)擊下載VARCHART XGantt免費(fèi)版

為了顯示活動(dòng)和鏈接，需要為VARCHART XGantt提供數(shù)據(jù)。默認(rèn)情況下，所需的通信由兩個(gè)表實(shí)現(xiàn)：

1. Maindata

2.關(guān)系

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

Maindata表的字段：

關(guān)系領(lǐng)域：

此外，必須手動(dòng)定義所需字段。您可以在設(shè)計(jì)時(shí)通過對(duì)話框編輯數(shù)據(jù)表，或在運(yùn)行時(shí)通過對(duì)象VcDataTableFieldCollection的Add（...）方法執(zhí)行此操作。

如果您需要的表格多于默認(rèn)定義的兩個(gè)表格，則可以在屬性頁(yè)面上創(chuàng)建它們，單擊常規(guī)屬性頁(yè)面上啟用的擴(kuò)展數(shù)據(jù)表后，在屬性頁(yè)面上管理數(shù)據(jù)表。您可以在對(duì)話框編輯數(shù)據(jù)表中創(chuàng)建（或編輯）新表所需的字段。

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

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

這可以通過使用對(duì)象類型VcDataRecordCollection的Add（...）方法來(lái)完成。方法EndLoading完成了相應(yīng)圖表的數(shù)據(jù)輸入。為此，請(qǐng)?jiān)诒韱蔚?strong>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

記錄中的值由分號(hào)分隔。字段的順序必須與數(shù)據(jù)定義中字段的順序相對(duì)應(yīng)。新記錄必須具有明確的非空標(biāo)識(shí)。記錄中的日期必須與數(shù)據(jù)定義表中的DateFormat定義相對(duì)應(yīng)。持續(xù)時(shí)間的解釋取決于時(shí)間單位，并在常規(guī)屬性頁(yè)面上預(yù)設(shè)為Days。

對(duì)于表和常規(guī)屬性頁(yè)上的每個(gè)對(duì)話框，一致定義Date輸出格式。

從CSV文件加載數(shù)據(jù)

或者，您也可以從所謂的CSV文件加載數(shù)據(jù)。文件的結(jié)構(gòu)必須符合以下方案：

示例代碼

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

每條記錄都有自己的路線。行的內(nèi)容對(duì)應(yīng)于對(duì)象類型VcDataRecordCollection的Add（...）方法的傳遞參數(shù)。

首先列出Maindata的記錄，然后列出關(guān)系記錄。使用****表名****以標(biāo)記每個(gè)記錄組的開頭。

如果您在intro.csv下保存了這樣的文件，您可以按如下方式導(dǎo)入數(shù)據(jù)：

示例代碼

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

指定表示的時(shí)間段

到目前為止，活動(dòng)仍然是不可見的，因?yàn)闀r(shí)間尺度尚未適應(yīng)節(jié)點(diǎn)所處的時(shí)間段。要顯示的時(shí)間范圍的可以由屬性TimeScaleStart和TimeScaleEnd定義，也可以通過對(duì)象VcGantt的OptimizeTimeScaleStartEnd（...）方法從數(shù)據(jù)中確定。

示例代碼

 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

如果您現(xiàn)在運(yùn)行該程序，結(jié)果對(duì)應(yīng)一下圖片。

想要購(gòu)買VARCHART XGantt正版授權(quán)，或了解更多產(chǎn)品信息請(qǐng)點(diǎn)擊