日期條：
1、Y軸方向
2、上下三行
3、下方日期
4、中間周幾
5、上方休息日（可手動標識）
6、大小可縮放
7、可左右拖動
休息日 休 休
星期 星期一 星期二 星期三 星期四 星期五 星期六 星期日 星期一 星期二
日期 12/15 12/16 12/17 12/18 12/19 12/20 12/21 12/22 12/23
uj5u.com熱心網友回復：
先弄個設計圖出來看看.....uj5u.com熱心網友回復：
不錯啊, 動手試試呀. 做了才會有實際問題么.uj5u.com熱心網友回復：
建議用 MonthView 控制元件，粗體的就是休息日，通過雙擊日期切換。Option Explicit
Private Function GetIsHoliday(ByVal dt As Date) As Boolean
'讀取設定'
End Function
Private Sub SetIsHoliday(ByVal dt As Date, ByVal IsHoliday As Boolean)
'保存設定'
End Sub
Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
MonthView1.DayBold(DateDblClicked) = Not MonthView1.DayBold(DateDblClicked)
SetIsHoliday DateDblClicked, MonthView1.DayBold(DateDblClicked)
End Sub
Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
Dim i As Long
For i = 0 To Count - 1
State(i) = GetIsHoliday(DateAdd("d", i, StartDate))
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/106564.html
標籤：VB基礎類
上一篇：VBA 自動創建table問題
下一篇：專案微管理38 - 獎勵