VARCHART XGantt用戶手冊（ActiveX版）：如何使用日歷（上）
VARCHART XGantt是一個交互式的甘特圖控件，其模塊化的設計讓您可以創建滿足您和您的客戶所需求的應用程序。相較于其他甘特圖控件，VARCHART XGantt穩定性高，開發時間長，各大行業的知名公司都在使用它。本文主要描述了如何使用日歷教程中的一部分內容，現在跟著小編來了解一下吧~
日歷表示工作時間和非工作時間的無間隔序列。在具有可變配置文件的日歷（輪班日歷）中，不同的時間段會重復成功，例如早、晚或夜班。日歷本身沒有視覺外觀，僅是工作時間和非工作時間的邏輯區別。只有將日歷分配給CalendarGrid對象，日歷才能變得可見。
在VARCHART XGantt中，日歷還可以從工期中得出節點的開始和結束日期。如果未設置其他選項，則將使用名為BaseCalendar的預定義基本日歷進行所有計算。在基本日歷中，將星期一至星期五定義為工作時間，而星期日和星期六則不工作。如果需要，可以修改基本日歷。
定義日歷
日歷可以在設計時通過屬性頁定義，也可以在運行時通過應用程序編程接口（API）定義。在本文中，我們將從開發人員的角度解釋日歷的基本處理，并提供一些C＃編程示例。
在VcGantt控件中，存在一個對象VcCalendarCollection，它負責管理所有日歷。它具有與VARCHART XGantt中的其他集合類似的管理功能。預定義的BaseCalendar和在設計時創建的任何其他日歷會自動構成集合的一部分。
可以通過CalendarCollection對象的Add方法創建一個新日歷。該方法需要唯一的名稱才能識別日歷。最初，新日歷僅由工作時間組成。
請注意：日歷必須至少包含一個時間間隔，因為不能存在包含非工作時間的日歷。
為了使我們的編程示例的結果可在甘特圖的圖片中得到驗證，為編程示例中的時間范圍定義了從2011年1月1日到2011年12月31日的恒定時間段。如果日歷在集合中被激活，則日歷只能在甘特圖的背景中可見：
示例代碼
'To Create and to activate a new calendar
Dim calendar As VcCalendar
VcGantt1.TimeScaleEnd = "01.01.2012"
VcGantt1.TimeScaleStart = "01.01.2011"
Set calendar = VcGantt1.CalendarCollection.Add("CompanyCalendar1")
VcGantt1.CalendarCollection.Active = calendar
如果現在希望重新激活默認的基本日歷，則可以通過以下設置來執行此操作：
示例代碼
'To re-activate the default calendar
Dim calendar As VcCalendar
Set calendar =
VcGantt1.CalendarCollection.CalendarByName("BaseCalendar")
VcGantt1.CalendarCollection.Active = calendar
在下面的示例中，我們將顯示如何按時間間隔定義工作時間配置文件。定義非工作日的不規則模式：2011年1月1日以及2011年1月6日至1月20日，除了10日和11日的兩天：
示例代碼
'Defining non-working times
VcGantt1.TimeScaleEnd = "01.01.2012"
VcGantt1.TimeScaleStart = "01.01.2011"
Dim calendar As VcCalendar
Set calendar = VcGantt1.CalendarCollection.Add("CompanyCalendar1")
VcGantt1.CalendarCollection.Active = calendar
Dim interval As VcInterval
Set interval = calendar.IntervalCollection.Add("NewYear")
interval.CalendarProfileName = ""
interval.StartDateTime = "01.01.2011"
interval.EndDateTime = "02.01.2011"
Set interval = calendar.IntervalCollection.Add("NonworkPeriod")
interval.CalendarProfileName = ""
interval.StartDateTime = "06.01.2011"
interval.EndDateTime = "21.01.2011"
Set interval = calendar.IntervalCollection.Add("WorkPeriod")
interval.CalendarProfileName = ""
interval.StartDateTime = "11.01.2011"
interval.EndDateTime = "13.01.2011"
VcGantt1.CalendarCollection.Update
在視覺上，可以通過淺灰色陰影來識別非工作時間。由于默認情況下工作時間沒有顏色，因此圖表的白色背景在其中仍然可見。在下一步中，我們希望工作時間以淺黃色顯示，非工作時間以淺藍色顯示。顏色由可在間隔處定義的圖形屬性產生。
示例代碼
'Assigning colors to intervals
VcGantt1.TimeScaleEnd = "01.01.2012"
VcGantt1.TimeScaleStart = "01.01.2011"
Dim calendar As VcCalendar
Set calendar = VcGantt1.CalendarCollection.Add("CompanyCalendar1")
VcGantt1.CalendarCollection.Active = calendar
VcGantt1.TimeScaleCollection.FirstTimeScale.Section(0).CalendarGridEx(0)
.UseGraphicalAttributesOfIntervals = True
Dim interval As VcInterval
Set interval = calendar.IntervalCollection.Add("Work")
interval.CalendarProfileName = ""
interval.BackColorAsARGB = &HFFFFFFE0
interval.UseGraphicalAttributes = True
Set interval = calendar.IntervalCollection.Add("NewYear")
interval.CalendarProfileName = ""
interval.StartDateTime = "01.01.2011"
interval.EndDateTime = "02.01.2011"
interval.BackColorAsARGB = &HFFD4E3F5
interval.UseGraphicalAttributes = True
Set interval = calendar.IntervalCollection.Add("NonworkPeriod")
interval.CalendarProfileName = ""
interval.StartDateTime = "06.01.2011"
interval.EndDateTime = "21.01.2011"
interval.BackColorAsARGB = &HFFD4E3F5
interval.UseGraphicalAttributes = True
Set interval = calendar.IntervalCollection.Add("WorkPeriod")
interval.CalendarProfileName = ""
interval.StartDateTime = "11.01.2011"
interval.EndDateTime = "13.01.2011"
interval.BackColorAsARGB = &HFFFFFFE0
interval.UseGraphicalAttributes = True
VcGantt1.CalendarCollection.Update
下面的示例顯示如何定義一個星期，其中星期一至星期五為工作時間，而周末為空閑時間。到目前為止引入的選項還不足以滿足此要求；必須提供VcCalendarProfile類型的對象。
請注意：在VARCHART XGantt中，可以在全局或局部級別上定義VcCalendarProfile對象。本地日歷配置文件對象只能在定義它們的日歷中使用，而全局對象可以同時在不同的日歷中使用。在我們的編程示例中，僅使用本地日歷配置文件對象。就功能而言，本地日歷與全局日歷沒有區別。如果創建了具有相同名稱的本地配置文件和全局配置文件，則在相應的日歷內僅尋址本地配置文件；無法訪問全局配置文件。
vcWeekProfile類型的日歷配置文件允許描述一周中某天的工作時間和非工作時間。僅在將周配置文件添加到日歷的間隔集合后，該配置文件才生效。可以省略設置StartDateTime和EndDateTime，因為我們希望我們的設置在日歷的整個期間內都是有效的，沒有任何限制。預設名稱<WORK>和<NONWORK>的日歷配置文件具有定義的含義：它們用于分配工作時間和非工作時間。
示例代碼
'Defining a week profile
Dim calendar As VcCalendar
Dim interval As VcInterval
Dim calendarProfile As VcCalendarProfile
Set calendar = VcGantt1.CalendarCollection.Add("CompanyCalendar1")
VcGantt1.CalendarCollection.Active = calendar
Set calendarProfile =
calendar.CalendarProfileCollection.Add("WeekProfile")
calendarProfile.Type = vcWeekProfile
VcGantt1.TimeScaleCollection.FirstTimeScale.Section(0).CalendarGridEx(0)
.UseGraphicalAttributesOfIntervals = True
Set interval = calendarProfile.IntervalCollection.Add("Mo-Fr")
interval.CalendarProfileName = ""
interval.StartWeekday = vcMonday
interval.EndWeekday = vcFriday
Set interval = calendarProfile.IntervalCollection.Add("Sa")
interval.CalendarProfileName = ""
interval.BackColorAsARGB = &HFFFFF69F
interval.StartWeekday = vcSaturday
interval.EndWeekday = vcSaturday
Set interval = calendarProfile.IntervalCollection.Add("Su")
interval.CalendarProfileName = ""
interval.BackColorAsARGB = &HFFFBD3AA
interval.StartWeekday = vcSunday
interval.EndWeekday = vcSunday
Set interval = calendar.IntervalCollection.Add("StandardWeek")
interval.CalendarProfileName = "WeekProfile"區分一天中的工作時間和非工作時間需要一個日配置文件，該日配置文件可以指定精確的時鐘時間，例如從8.00 h到12.00 h am和從1.00 h到5.00 h pm。由于新創建的日簡介僅包含工作時間，因此任何中斷都應定義為非工作間隔。
示例代碼
'Defining a day profile
Dim interval As VcInterval
Dim calendarProfile As VcCalendarProfile
Set calendarProfile =
calendar.CalendarProfileCollection.Add("DayProfile")
calendarProfile.Type = vcDayProfile
Set interval = calendarProfile.IntervalCollection.Add("Interval_1")
' 00:00-8:00
interval.CalendarProfileName = ""
interval.StartTime = "1.1.2011 0:00"
interval.EndTime = "1.1.2011 8:00"
Set interval = calendarProfile.IntervalCollection.Add("Interval_2")
' 12:00-13:00
interval.CalendarProfileName = ""
interval.StartTime = "1.1.2011 12:00"
interval.EndTime = "1.1.2011 13:00"
Set interval = calendarProfile.IntervalCollection.Add("Interval_3")
' 17:00-24:00
interval.CalendarProfileName = ""
interval.StartTime = "1.1.2011 17:00"
interval.EndTime = "1.1.2011 00:00"本教程內容較多，內容尚未更新完，敬請期待后續內容~感興趣的朋友可以點擊下載VARCHART XGantt最新版本嘗試一下~
相關內容推薦：
想要購買VARCHART XGantt正版授權，或了解更多產品信息請點擊
1024，慧都致敬程序員們，zend現金優惠券限時放送，了解詳情請點擊下方圖片
QQ交談
在線咨詢
渝公網安備
50010702500608號
客服熱線