VARCHART XGantt用戶手冊(cè)（ActiveX版）：如何使用日歷（上）
VARCHART XGantt是一個(gè)交互式的甘特圖控件，其模塊化的設(shè)計(jì)讓您可以創(chuàng)建滿足您和您的客戶所需求的應(yīng)用程序。相較于其他甘特圖控件，VARCHART XGantt穩(wěn)定性高，開發(fā)時(shí)間長(zhǎng)，各大行業(yè)的知名公司都在使用它。本文主要描述了如何使用日歷教程中的一部分內(nèi)容，現(xiàn)在跟著小編來了解一下吧~
點(diǎn)擊下載VARCHART XGantt免費(fèi)版
日歷表示工作時(shí)間和非工作時(shí)間的無間隔序列。在具有可變配置文件的日歷（輪班日歷）中，不同的時(shí)間段會(huì)重復(fù)成功，例如早、晚或夜班。日歷本身沒有視覺外觀，僅是工作時(shí)間和非工作時(shí)間的邏輯區(qū)別。只有將日歷分配給CalendarGrid對(duì)象，日歷才能變得可見。
在VARCHART XGantt中，日歷還可以從工期中得出節(jié)點(diǎn)的開始和結(jié)束日期。如果未設(shè)置其他選項(xiàng)，則將使用名為BaseCalendar的預(yù)定義基本日歷進(jìn)行所有計(jì)算。在基本日歷中，將星期一至星期五定義為工作時(shí)間，而星期日和星期六則不工作。如果需要，可以修改基本日歷。
定義日歷
日歷可以在設(shè)計(jì)時(shí)通過屬性頁定義，也可以在運(yùn)行時(shí)通過應(yīng)用程序編程接口（API）定義。在本文中，我們將從開發(fā)人員的角度解釋日歷的基本處理，并提供一些C＃編程示例。
在VcGantt控件中，存在一個(gè)對(duì)象VcCalendarCollection，它負(fù)責(zé)管理所有日歷。它具有與VARCHART XGantt中的其他集合類似的管理功能。預(yù)定義的BaseCalendar和在設(shè)計(jì)時(shí)創(chuàng)建的任何其他日歷會(huì)自動(dòng)構(gòu)成集合的一部分。
可以通過CalendarCollection對(duì)象的Add方法創(chuàng)建一個(gè)新日歷。該方法需要唯一的名稱才能識(shí)別日歷。最初，新日歷僅由工作時(shí)間組成。
請(qǐng)注意：日歷必須至少包含一個(gè)時(shí)間間隔，因?yàn)椴荒艽嬖诎枪ぷ鲿r(shí)間的日歷。
為了使我們的編程示例的結(jié)果可在甘特圖的圖片中得到驗(yàn)證，為編程示例中的時(shí)間范圍定義了從2011年1月1日到2011年12月31日的恒定時(shí)間段。如果日歷在集合中被激活，則日歷只能在甘特圖的背景中可見：
示例代碼
'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
點(diǎn)擊下載VARCHART XGantt免費(fèi)版
如果現(xiàn)在希望重新激活默認(rèn)的基本日歷，則可以通過以下設(shè)置來執(zhí)行此操作：
示例代碼
'To re-activate the default calendar
Dim calendar As VcCalendar
Set calendar =
VcGantt1.CalendarCollection.CalendarByName("BaseCalendar")
VcGantt1.CalendarCollection.Active = calendar
在下面的示例中，我們將顯示如何按時(shí)間間隔定義工作時(shí)間配置文件。定義非工作日的不規(guī)則模式：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
在視覺上，可以通過淺灰色陰影來識(shí)別非工作時(shí)間。由于默認(rèn)情況下工作時(shí)間沒有顏色，因此圖表的白色背景在其中仍然可見。在下一步中，我們希望工作時(shí)間以淺黃色顯示，非工作時(shí)間以淺藍(lán)色顯示。顏色由可在間隔處定義的圖形屬性產(chǎn)生。
示例代碼
'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
下面的示例顯示如何定義一個(gè)星期，其中星期一至星期五為工作時(shí)間，而周末為空閑時(shí)間。到目前為止引入的選項(xiàng)還不足以滿足此要求；必須提供VcCalendarProfile類型的對(duì)象。
請(qǐng)注意：在VARCHART XGantt中，可以在全局或局部級(jí)別上定義VcCalendarProfile對(duì)象。本地日歷配置文件對(duì)象只能在定義它們的日歷中使用，而全局對(duì)象可以同時(shí)在不同的日歷中使用。在我們的編程示例中，僅使用本地日歷配置文件對(duì)象。就功能而言，本地日歷與全局日歷沒有區(qū)別。如果創(chuàng)建了具有相同名稱的本地配置文件和全局配置文件，則在相應(yīng)的日歷內(nèi)僅尋址本地配置文件；無法訪問全局配置文件。
vcWeekProfile類型的日歷配置文件允許描述一周中某天的工作時(shí)間和非工作時(shí)間。僅在將周配置文件添加到日歷的間隔集合后，該配置文件才生效。可以省略設(shè)置StartDateTime和EndDateTime，因?yàn)槲覀兿Ｍ覀兊脑O(shè)置在日歷的整個(gè)期間內(nèi)都是有效的，沒有任何限制。預(yù)設(shè)名稱<WORK>和<NONWORK>的日歷配置文件具有定義的含義：它們用于分配工作時(shí)間和非工作時(shí)間。
示例代碼
'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"區(qū)分一天中的工作時(shí)間和非工作時(shí)間需要一個(gè)日配置文件，該日配置文件可以指定精確的時(shí)鐘時(shí)間，例如從8.00 h到12.00 h am和從1.00 h到5.00 h pm。由于新創(chuàng)建的日簡(jiǎn)介僅包含工作時(shí)間，因此任何中斷都應(yīng)定義為非工作間隔。
示例代碼
'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"本教程內(nèi)容較多，內(nèi)容尚未更新完，敬請(qǐng)期待后續(xù)內(nèi)容~感興趣的朋友可以點(diǎn)擊下載VARCHART XGantt最新版本嘗試一下~
相關(guān)內(nèi)容推薦：
想要購(gòu)買VARCHART XGantt正版授權(quán)，或了解更多產(chǎn)品信息請(qǐng)點(diǎn)擊
1024，慧都致敬程序員們，zend現(xiàn)金優(yōu)惠券限時(shí)放送，了解詳情請(qǐng)點(diǎn)擊下方圖片
QQ交談
在線咨詢
渝公網(wǎng)安備
50010702500608號(hào)
客服熱線