文檔半島外圍網上直營>>VARCHART XGantt 2019教程>>VARCHART XGantt_v5.1用戶手冊：如何創建直方圖（ActiveX版）（上）

VARCHART XGantt_v5.1用戶手冊：如何創建直方圖（ActiveX版）（上）

VARCHART XGantt，用于工業4.0項目管理、交互式的甘特圖絕佳解決方案，世界級甘特圖大師。它是一個交互式的甘特圖控件，其模塊化的設計讓您可以創建滿足您和您的客戶所需求的應用程序。（我們領先的甘特圖控件VARCHART XGantt可用于.NET，ActiveX和ASP.NET應用程序。）

點擊下載VARCHART XGantt免費版

在此示例中，您將熟悉直方圖。我們將演示如何定義可用性曲線，如何從活動創建容量曲線以及如何在工作負載內可視化標記的活動部分。

在上面的示例中，活動按單個單元的數量占用資源。在活動重疊的地方，占用單位加起來等于所占總容量。

在接下來的步驟中，我們將通過上述功能完成我們前面的示例。為了更好地說明直方圖的功能，我們使用了不同的記錄和無限鏈接。 Form1_Load示例已修改，如下所示：

示例代碼

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

 VcGantt1.InsertNodeRecord ("1;Node 1;07.05.07;;5")
 VcGantt1.InsertNodeRecord ("2;Node 2;09.05.07;;5")
 VcGantt1.InsertNodeRecord ("3;Node 3;10.05.07;;6")
 VcGantt1.InsertNodeRecord ("4;Node 4;17.05.07;;10")
 VcGantt1.InsertNodeRecord ("5;Node 5;22.05.07;;3")
 VcGantt1.InsertNodeRecord ("6;Node 6;23.05.07;;1")
 VcGantt1.EndLoading

 VcGantt1.OptimizeTimeScaleStartEnd (3)

 'Calculating the end date of all nodes
 Dim node As VcNode
 VcGantt.SuspendUpdate True
 For Each node In VcGantt1.NodeCollection
 SetNodeEndDate node
 Next
 VcGantt.SuspendUpdate False
End Sub

此外，我們從上面的示例中刪除了過濾器（“里程碑”，“活動”）和附加層（“里程碑”）。完整的程序可以在UserGuideSamples \ VB6 \ XGantt_Tutorial02目錄中找到。

首先，通過選擇單選按鈕甘特圖和直方圖，需要在圖表區域部分的屬性頁面布局上顯示直方圖。

標記的節點應顯示交叉影線圖案。因此，在屬性頁的節點部分，節點的標記類型將圖表中的字段設置為無標記。

稍后將在我們的示例中再次需要一個數據字段，我們現在將創建該數據字段。在“編輯數據表”對話框中，請創建一個Integer類型的字段并將其命名為Selected。該字段將使活動的顯示取決于ist標記狀態。

每次觸發事件OnNodesMarkComplete時，都需要更新Selected字段的值。

示例代碼

Private Sub VcGantt1_OnNodesMarkComplete()
 Dim node As VcNode
 For Each node In VcGantt1.NodeCollection
 If node.MarkNode = True Then
 node.DataField(5) = 1
 Else
 node.DataField(5) = 0
 End If
 node.UpdateNode
 Next
End Sub

在OnNodeCreateCompleteEx事件中，以下代碼將防止新創建的節點在出現時被標記。由于在創建新節點時，先前選擇的所有節點都將未標記，因此必須更新“Selected”字段的內容。

示例代碼

Private Sub VcGantt1_OnNodeCreateCompleteEx _
 (ByVal node As VcGanttLib.VcNode,_
 ByVal creationType As VcGanttLib.CreationTypeEnum,_
 ByVal isLastNodeInSeries As Boolean)
 node.DataField(1) = "Node " + node.DataField(0)
 node.MarkNode = False
 node.UpdateNode
 Dim node As VcNode
 For Each node In VcGantt1.NodeCollection
 node.DataField(5) = 0
 node.UpdateNode
 Next
End Sub

接下來，我們將定義區分標記和未標記活動的過濾器。請單擊按鈕Filter ...在屬性頁面對象上獲取對話框“管理過濾器”。請通過單擊創建兩個新過濾器，并將其中一個命名為NotSelected，另一個命名為Marked。