VARCHART XGantt是一款功能強大的甘特圖控件。其模塊化的設(shè)計讓您可以創(chuàng)建滿足您和您的客戶所需求的應(yīng)用程序（我們領(lǐng)先的甘特圖控件VARCHART XGantt可用于.NET，ActiveX和ASP.NET應(yīng)用程序）。VARCHART XGantt可以快速、簡單地集成到您的應(yīng)用程序中，幫助您識別性能瓶頸、避免延遲以及高效利用資源，使復(fù)雜數(shù)據(jù)變得更加容易理解。

如果您使用Gantt Charts來進(jìn)行資源控制，那么您通常會對當(dāng)前情況有一個清晰和精確的概述感興趣。特別是在某些事情似乎不怎么明了的情況下，您需要立即看到問題。介于此本文旨在講述如何使用值來標(biāo)記曲線，供大家學(xué)習(xí)討論。

詳細(xì)的規(guī)劃不僅需要用直方圖來表示資源，而且還需要顯示資源利用率的準(zhǔn)確值，以便能夠快速識別資源瓶頸。

使用的一個生動的例子是精確控制機器部件數(shù)量的生產(chǎn)計劃，由于一個或多個直方圖的高度復(fù)雜性，這些直方圖具有許多值的堆疊曲線，在許多情況下會導(dǎo)致空間不足，從而妨礙標(biāo)簽的可讀性，因此不能在其中標(biāo)記曲線。如果應(yīng)用程序中只顯示少量且很少更改的值，從而在x方向上為標(biāo)簽留出足夠的空間，則可以通過放置在直方圖下方的第二個VARCHART XGantt實例獲得曲線標(biāo)簽。

在我們的示例中，甘特圖是由VARCHART XGantt ActiveX創(chuàng)建的。機器的容量由部件的數(shù)量來衡量，與計劃的部件數(shù)量一起顯示（第一個數(shù)字一般表示利用率，第二個數(shù)字表示資源的最大可用性）：

【直方圖中生產(chǎn)計劃顯示利用率】

直方圖顯示了資源調(diào)度器在8點時計算出的20個片和9點時計算出的10個片的分布，因此，9點10件的可用容量很容易識別。

需要注意以下四點：

1. 必須禁用上部XGantt的水平滾動條，以使兩個XGantt實體看起來像一個圖。
2. 縮放系數(shù)、表寬、水平滾動偏移量和圖的單位寬度的設(shè)置必須相同。
3. XGantt在設(shè)計時要定位數(shù)字，需要在第二步中創(chuàng)建一個用于包含標(biāo)簽的層。
4. 在運行時，每個標(biāo)簽創(chuàng)建一個組和一個節(jié)點，標(biāo)簽被放置在要標(biāo)記的曲線的那個周期。

當(dāng)組布局切換到“All nodes in one row”和“Nodes optimized”時，標(biāo)簽將在正確的位置繪制。使用以下代碼創(chuàng)建標(biāo)簽：

 Dim currentDate As Date
 Dim histogram As VcHistogram
 Dim capacityCurve As VcCurve
 Dim loadCurve As VcCurve
 Dim leftDate As Date
 Dim rightDate As Date
 Dim leftValue1 As Long
 Dim leftValue2 As Long
 Dim rightValue As Long
 Dim cal As VcCalendar

 'Reset second XGantt (only necessary if switching between several curves is
possible)
 VcGantt2.Reset vcRemoveNodes

 'Calculate necessary objects
 Set cal = VcGantt1.CalendarCollection.Active
 Set histogram = VcGantt1.HistogramCollection.HistogramByName _
 (histogramName)
 Set capacityCurve = histogram.CurveCollection.CurveByName(histogramName)
 Set loadCurve = histogram.CurveCollection.CurveByName _
 ("Load_" + histogramName)

 'Create nodes in a loop over the time displayed
currentDate = VcGantt1.TimeScaleStart
 Do While currentDate < VcGantt2.TimeScaleEnd
 'Read curves
 Call capacityCurve.GetValues(d, leftDate, leftValue1, _
 rightDate, rightValue)
 Call loadCurve.GetValues(d, leftDate, leftValue2, _
 rightDate, rightValue)

 'create node for second XGantt with Node-ID, 2 values, group name =
 'histogram name, start and end date
 VcGantt2.InsertNodeRecord CStr(d) + ";" + _
 CStr(leftValue2) + "/" + _
CStr(leftValue2) + "/" + _
histogramName + ";" + _
normDat(d) + ";" + _
normDat(DateAdd("h", 1, d))

 'calculate next start date (at the end of a working day moving forward to
 'the beginning of the next working day)
 currentDate = cal.AddDuration(currentDate, 1)
 If Hour(currentDate) = 17 Then
 currentDate = cal.AddDuration(cal.AddDuration(currentDate, 1), -1)
 End If
 Loop
 'import all nodes to the Gantt diagram
 VcGantt2.EndLoading
 'Perform grouping again
 VcGantt2.GroupNodes True

更多VARCHART XGantt系列教程將在后續(xù)更新，敬請關(guān)注~

想要購買VARCHART XGantt正版授權(quán)，或者獲取更多該產(chǎn)品相關(guān)信息的朋友可以點擊" "~

海量產(chǎn)品正在參加年終大促，價格優(yōu)惠！詳情請點擊" 年終巔峰鉅惠 "~