彩票走势图

一个较为综合的柱状图往往包含许多堆叠的有多个值的曲线，时间一久，柱状图就变得越来越复杂以至于一些标签常常不易读取，或者曲线不能再被标记。若在应用程序中只显示少数变量，为X方向的腾出一个标签的空间，就可以整合第二个可获取曲线标记的XGantt图放在柱状图下面了。

在下面由VARCHART XGantt ActiveX创建的甘特图中，包括了资源调度模块。机器的产能（以生产件数来计算）与预定的生产件数一起显示（第一个数字总是表示利用值，第二个数字表示资源的最大可用值） ：

图中带标记的订单规定了生产量30件，柱状图显示了资源调度计算的产品20件（8点）和10件（9点）。所以在9点钟还有10件的可用产能。

XGantt的水平滚动条可被禁用，以使两个图表实体看起来像一个图。而且，缩放系数、表格宽度、水平滚动位移和单位宽度必须是相同的，这些由OnTableWidth 、OnTimeScaleSectionRescale、 OnZoomFactorModifyComplete和On(Pre)ScrollDiagramHor事件来实现。示例ControlCenter显示了两个XGantt实体的布局（一个在另一个下面）是如何实现的。

在创建第二个XGantt图时可创建一个包含标签的层，数字可放入其中。该层是无边界线的透明层，使标签看起来并不像一般的层。在运行时，每个标签都有一个组和一个节点，标签被放置在那段曲线中以备使用。当组布局被切换到“所有节点位于一列”或“节点优化”时 ，这些标签将在X方向的准确位置彼此相邻。

使用以下代码创建标签(VB98)：

Private Sub loadCurveValues(histogramName As String)

   Dim currentDate As Date Dim capacityCurve As VcCurve
   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 cal As VcCalendar

重置第二个XGantt（在几个曲线之间切换才有必要）： 

VcGantt2.Reset vcRemoveNodes

计算必要的对象：

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

在循环中创建随时间显示的节点：

currentDate = VcGantt1.TimeScaleStart
   Do While currentDate < VcGantt2.TimeScaleEnd

读取曲线：

Call capacityCurve.GetValues(d, leftDate, leftValue1, _ rightDate, rightValue)
      Call loadCurve.GetValues(d, leftDate, leftValue2, _rightDate, rightValue)

 为第二个 XGantt创建节点：使用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))

计算下一次开始日期：

currentDate = cal.AddDuration(currentDate, 1)
      If Hour(currentDate) = 17 Then
            currentDate = cal.AddDuration(cal.AddDuration(currentDate, 1), -1)
      End If
   Loop

导入所有节点到甘特图：

VcGantt2.EndLoading

再次运行分组：

 VcGantt2.GroupNodes True
End Sub

>>VARCHART XGantt详情

>>VARCHART XGantt下载试用