VB日歷-課程設計報告

1、.課程設計題目 電子臺歷所選題目：電子臺歷難度：兩星級*知識點：（1）非矩形窗口；（2）動態(tài)數(shù)組；（3）配置文件的讀寫；（4）圖片的應用；（5）控件數(shù)組；（6）彈出式菜單的使用；（7）公共對話框控件；（8）多模塊程序設計；（9）日期函數(shù)的使用前言“臺歷”是人們辦公、學習的好幫手，人們把它置于案頭用來查看日期、星期并可以方便地記事。本題目便編制一個“電子臺歷”程序，實現(xiàn)臺歷的一般功能。一、 功能1、 啟動程序，顯示一個圓角矩形窗口，并自動顯示當前月的月歷。星期從星期一開始排列，星期六和星期天以不同的顏色顯示。2、 鼠標單擊可以查看不同的年份和月份（左鍵增大，右鍵減?。螕裟硞€日期會在窗口右半邊

2、顯示是否有記事。雙擊左下角的當前日期，可以使臺歷立即顯示當月月歷。3、 在窗體的空白處右擊，可以彈出一個菜單，可以對顯示的日歷日期的顏色、字體，窗體的背影圖片加以修改。所有顏色、字體和背影圖片的設置會自動保存，下次啟動時會自動應用上一次的設置。4、 從快捷菜單中選擇“添加節(jié)日”或“添加記事”，可以分別實現(xiàn)對節(jié)日和記事的添加。在彈出的對話框中，能同時添加多個節(jié)日或記事。二、 課程設計的詳細設計1、 程序的界面要求是圓角矩形窗口，該功能的實現(xiàn)用到了SetWindowRgn函數(shù)。SetWindowRgn函數(shù)是屬于API函數(shù)，在使用時要先聲明。其代碼如下：Private Declare Functio

3、n CreateRoundRectRgn Lib gdi32 (ByVal X1 As Long, _ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, _ByVal hRgn As Long, ByVal bRedraw As Boolean) As LonghRgn = CreateRoundRectRgn(0

4、, 0, 570, 400, 80, 100) 創(chuàng)建圓角矩形區(qū)域Call SetWindowRgn(Me.hWnd, hRgn, True)2、 年份、月份、日期和記事的顯示依靠標簽的Caption屬性。其中，星期和日期的顯示使用了控件數(shù)組，星期的顯示使用了14個控件，日期的顯示使用了74個控件。又把各個標簽的背影設為透明，這樣，便實現(xiàn)了日歷界面的顯示。3、 為了使文字有浮于圖片之上的立體感，使用了內容相同但顏色伸淺不同且位置錯開一點的兩個控件來實現(xiàn)。功能的實現(xiàn)依靠以下代碼：Public Sub GetCaption() 產生標簽的文字，達到字體有懸浮的效果 Dim j As Integer

5、lblYear1.Caption = lblYear.Caption lblYear1.FontName = lblYear.FontName lblMonth1.Caption = lblMonth.Caption lblMonth1.FontName = lblMonth.FontName lblNow1.Caption = lblNow.Caption lblNow1.FontName = lblNow.FontName For j = 37 To 73 lblDay(j).Caption = lblDay(73 - j).Caption Next lblShowNote1.Captio

6、n = lblShowNote.Caption lblShowNote1.FontName = lblShowNote.FontName For j = 0 To 6 lblWeek(13 - j).FontName = lblWeek(j).FontName NextEnd Sub4、 本程序的主窗口使用了漂亮的圖片作背影，樣例共提供了4個.bmp格式的圖片的加載使用以下代碼來實現(xiàn)：Private Sub Pic1_Click() 日歷背影圖象變化 frmCalMain.Picture = Nothing frmCalMain.Picture = LoadPicture(App.Path &

7、 picsp1.bmp) frmMenu.Pic1.Checked = True frmMenu.Pic2.Checked = False frmMenu.Pic3.Checked = False frmMenu.Pic4.Checked = False strPicName = p1End SubPrivate Sub Pic2_Click() frmCalMain.Picture = Nothing frmCalMain.Picture = LoadPicture(App.Path & picsp2.bmp) frmMenu.Pic2.Checked = True frmMenu.Pic1

8、.Checked = False frmMenu.Pic3.Checked = False frmMenu.Pic4.Checked = False strPicName = p2End SubPrivate Sub Pic3_Click() frmCalMain.Picture = Nothing frmCalMain.Picture = LoadPicture(App.Path & picsp3.bmp) frmMenu.Pic3.Checked = True frmMenu.Pic1.Checked = False frmMenu.Pic2.Checked = False frmMenu

9、.Pic4.Checked = False strPicName = p3End SubPrivate Sub Pic4_Click() frmCalMain.Picture = Nothing frmCalMain.Picture = LoadPicture(App.Path & picsp4.bmp) frmMenu.Pic4.Checked = True frmMenu.Pic1.Checked = False frmMenu.Pic2.Checked = False frmMenu.Pic3.Checked = False strPicName = p4End Sub5、 啟動程序和左

10、下角的當前日期要求顯示當前月歷，該功能的實現(xiàn)應用了兩個過程和一個函數(shù)來實現(xiàn)：Private Sub DisplayNow() 該過程顯示當前日期 Dim dtmNow As Date dtmNow = Date lblYear.Caption = Format(dtmNow, yyyy年) lblMonth.Caption = Format(dtmNow, M月) lblNow.Caption = Format(dtmNow, 今天是：dddddd) strNow = Format(dtmNow, dddddd) 用于存儲當前年、月、日字符串 intYear = Val(Format(dtmN

11、ow, yyyy) 用三個變量存儲當前年、月、日 intMonth = Val(Format(dtmNow, M) intDay = Val(Format(dtmNow, d) dtmOne = DateAdd(d, (1 - intDay), dtmNow)當前月的第一天 intNum = Days(intYear, intMonth) Call Sort(dtmOne, intNum) 調用過程生成每月的各個日期 使當前日期顏色正確顯示 If frmCalMain.lblYear.Caption & frmCalMain.lblMonth.Caption & _ frmCalMain.lb

12、lDay(intNowDayIndex).Caption & 日 = strNow Then frmCalMain.lblDay(intNowDayIndex).ForeColor= frmCalMain.lblNow.ForeColor End IfEnd SubPrivate Sub Sort(dtm1 As Date, int1 As Integer) 該過程生成每月的各個日期 Dim intweek As Integer, i As Integer, j As Integer Dim h As Integer For h = 0 To 36 各個日期標簽標題清空 lblDay(h).C

13、aption = Next h intweek = Val(Format(dtm1, w) 計算每月的第一天為星期幾 If intweek - 1 0 Then i = intweek - 2 Else i = 6 End If j = 0 Do While j int1 lblDay(i).Caption = j + 1 lblDay(i).MousePointer = 99 使指針變成手的圖形 lblDay(i).MouseIcon = LoadPicture(App.Path & Resourcehand.cur) j = j + 1 i = i + 1 Loop For j = 0 T

14、o 36 If lblDay(j).Caption = ThenlblDay(j).MousePointer = 99使指針邊成移動的圖形 lblDay(j).MouseIcon=LoadPicture(App.Path&Resourcemove.cur) End If NextEnd SubPrivate Function Days(intY As Integer, intM As Integer) 該函數(shù)計算每月天數(shù) Dim k As Integer Select Case intM Case 1, 3, 5, 7, 8, 10, 12 k = 31 Case 2 If intY Mod

15、4 = 0 Then k = 29 Else k = 28 End If Case Else k = 30 End Select Days = kEnd Function6、 本程序使用了配置文件格式來保存關于顏色、字體和圖片的設置以及節(jié)日和記事內容。配置文件是一種特殊的文本文件，一般以.ini為擴展名，它可以使用記事本打開。因為配置文件的特殊格式，Windows提供了專門的API函數(shù)來對起進行讀寫。該功能的實現(xiàn)用到了以下語句：Private Declare Function WritePrivatePro Lib kernel32 Alias _WritePrivatePro (ByVal

16、lpApplicationName As String, _ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lp As String) As LongPrivate Declare Function GetPrivatePro Lib kernel32 Alias _GetPrivatePro (ByVal lpApplicationName As String, _ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal _lpReturnedString As String,

17、ByVal nSize As Long, ByVal lp As String) As LongDim s As String * 100獲得星期一至星期五的顏色參量 Call WritePrivatePro(SetColor, 顏色1, strColor1 App.Path & cal.set)Call GetPrivatePro(SetColor, 顏色1, 0, s, 100, App.Path & cal.set)獲得星期的字體參量Dim s As String * 100, strFont1As StringCall WritePrivatePro(SetFont, 字體1, str

18、Font2, App.Path & cal.set)Call GetPrivatePro(SetFont, 字體1, 0, s, 100, App.Path & cal.set)7、 以上的六個過程不是很難，對我來說花是時間最長的是節(jié)日和記事的讀出。因為節(jié)日和記事在記事本中的保存位置不同，一個在節(jié)名為Festival中，一個在節(jié)名為Note中，而它們要在同一個標簽中顯示，而且以序號排列。我用了很長時間進行調試來實現(xiàn)了該要求。其代碼如下：Private Sub lblDay_Click(Index As Integer) Dim strCaption As String, s1 As Strin

19、g, strFest As String Dim s2 As String * 100, strNote As String, strFest1 As String Dim strMid As String, strDate1 As String, strFest2 As String Dim strDate2 As String, strNoteAndDate As String, strFestAndDate As String Dim i As Integer, j As Integer, k As Integer strDate1保存被選擇的日期 strDate1 = Left(lbl

20、Year.Caption, 4) & - & Left(lblMonth.Caption, _ InStr(lblMonth.Caption, 月) - 1) & - & lblDay(Index).Caption strMid = strDate1 + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + _ Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) lblShowNote.Caption = 顯示記事標簽標題清空 strCaptio

21、n = lblDay(Index).Caption If strCaption = Then Exit Sub strFest1 = Left(lblMonth.Caption, _ InStr(lblMonth.Caption, 月) - 1) & - & lblDay(Index).Caption Do 此循環(huán)用于顯示被選擇的日期有無記事 i = i + 1 s1 = 節(jié)日 & i s2 = Call GetPrivatePro(Festival, s1, 0, s2, 100, App.Path & cal.set) If Trim(Left(s2, InStr(s2, Chr(0) -

22、 1) = 0 Then Exit Do strFestAndDate = Trim(Left(s2, InStr(s2, Chr(0) - 1) strFest2 = Left(strFestAndDate, InStr(strFestAndDate, :) - 1) strFest2保存記事本中已有的日期 strFest = Right(strFestAndDate, Len(strFestAndDate) - InStr(strFestAndDate, :) strFest保存記事本中存儲的記事 If strFest2 = strFest1 Then 若條件成立,則被選擇的日期有記事 k

23、 = k + 1 strMid = strMid + Chr(13) + Chr(10) + CStr(k) + : + strFest lblShowNote.Caption = strMid strFest2 = End If Loop i = 0If lblShowNote.Caption = Then此循環(huán)用于顯示被選擇的日期有無記事 Do While strDate2 strDate1 i = i + 1 s1 = 記事 & i s2 = Call GetPrivatePro(Note, s1, 0, s2, 100, App.Path & cal.set) If Trim(Left

24、(s2, InStr(s2, Chr(0) - 1) = 0 Then lblShowNote.Caption = strMid + 無記事 Exit Do End If strNoteAndDate = Trim(Left(s2, InStr(s2, Chr(0) - 1) strDate2 = Left(strNoteAndDate, InStr(strNoteAndDate, :) - 1) strDate2保存記事本中已有的日期 strNote = Right(strNoteAndDate, Len(strNoteAndDate) - InStr(strNoteAndDate, :)

25、strNote保存記事本中存儲的記事 Loop End If i = 0: j = k Do 此循環(huán)用于顯示被選擇的日期有無記事 i = i + 1 s1 = 記事 & i s2 = Call GetPrivatePro(Note, s1, 0, s2, 100, App.Path & cal.set) If Trim(Left(s2, InStr(s2, Chr(0) - 1) = 0 Then Exit Do strNoteAndDate = Trim(Left(s2, InStr(s2, Chr(0) - 1) strDate2 = Left(strNoteAndDate, InStr(

26、strNoteAndDate, :) - 1) strDate2保存記事本中已有的日期 strNote = Right(strNoteAndDate, Len(strNoteAndDate) - InStr(strNoteAndDate, :) strNote保存記事本中存儲的記事 If strDate2 = strDate1 Then 若條件成立,則被選擇的日期有記事 j = j + 1 strMid = strMid + Chr(13) + Chr(10) + CStr(j) + : + strNote lblShowNote.Caption = strMid strDate2 = End

27、 If Loop GetCaptionEnd Sub自己認為上述代碼還不夠簡潔，還可以進行修改和簡化，由于時間倉促，來不及再進行修改。三、 調試程序的過程1、 在顯示當前月的日期時，曾一度發(fā)生錯誤，不容易找到實現(xiàn)該過程的方法。曾經想過運用當前日期所在的標簽的Index號然后進行加或減生成各個日期，可是這樣調試了好久，不但代碼很多，而且該過程不容易實現(xiàn)。最后自己終于找到了一種簡便的算法：先運用Format函數(shù)得到當前日期，然后生成當前月的第一天，接著計算該天所在標簽，得到標簽的Index號，最后計算輸出當前月的各個日期。這樣，整個過程很簡潔快速的實現(xiàn)了。2、 在生成矩形窗口時，自己遇到了問題：一

28、個窗口一旦有了菜單，運用SetWindowRgn函數(shù)便不好實現(xiàn)對其的剪切，其最后效果因為存在著標題欄（最上部存在一個綠色的長條）而變的難看，不符合要求。自己調試了好久依然不成功。最后自己又增加了一個窗體frmMenu，在該窗體放置了菜單和公共對話框控件。這樣之后，當右擊主窗體frmCalMain時便彈出frmMenu窗體的菜單。這樣，原來可能集中在窗體frmCalMain中的代碼便部分轉移到了frmMenu窗體中，有利于程序的調試。3、 在編寫顏色對話框時不能實現(xiàn)對上一次操作的記憶，自己調試了好久，首先想把在顯示當前日期時要求其顏色要保持和lblNow標簽的顏色一樣，這樣增加了設計的難度，因為

29、不知道該日期是星期幾，而且，在單擊lblYear和lblMonth時要注意顏色的一致性，即月份或年份一旦改變，原來用來顯示當前日期的標簽的顏色就要可能改變，保持所在星期顏色的一致性。自己調試了好久，運用一個全局變量intNowDayIndex滿足了該要求。其具體過程可看附件的代碼。4、 當然還有許多問題，像運用CommonDialog的ShowFont屬性無用（只要把CommonDialog的Flags屬性值設為2），節(jié)日和記事不能正確保存（設計時ComboBox的List屬性值輸入時存在大量的空格）等等小問題，這里就不一一說了。四、 輸入輸出數(shù)據此電子臺歷幾乎沒有涉及數(shù)據的輸入輸出，這里也就

30、不在列出。五、 課程設計總結雖然說此電子臺歷只有兩顆星，但我花的時間并不短，算起來，大約有三個星期，這其中有暑假的一個多星期的時間。整體說來，自己還是蠻有成就感的，畢竟自己僅僅是剛學了VB一年。在設計時，許多自己在課堂或考試中沒有遇到或接觸的東西都是自己看書解決的，這樣使得自己感到在VB上的知識又掌握了許多。正如老師說的，VB課程設計關鍵是訓練學生把所學知識運用到實踐當中去，自己在課堂上學到了什么，就真正掌握了什么。自己本來就夢想要自己編制屬于自己的程序，可以說，自己的夢想已經實現(xiàn)，自己確實感到很高興。六、 附件電子臺歷源代碼：frmCalMain窗體：Option ExplicitOptio

31、n Base 1Private dtmOne As Date, lngMidColor As Long, strNow As String, LocalMousePlaceX As SinglePrivate strSatColor As String, strSunColor As String, strMtoFColor As String, LocalMousePlaceY As SinglePublic intMonth As Integer, intNum As Integer, intNowDayIndex As IntegerPublic intYear As Integer,

32、intDay As IntegerAPI函數(shù)的聲明Private Declare Function CreateRoundRectRgn Lib gdi32 (ByVal X1 As Long, _ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, _ByVal hRgn As Long, ByVal bRedra

33、w As Boolean) As LongPrivate Declare Function WritePrivatePro Lib kernel32 Alias _WritePrivatePro (ByVal lpApplicationName As String, _ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lp As String) As LongPrivate Declare Function GetPrivatePro Lib kernel32 Alias _GetPrivatePro (ByVal lpApplicati

34、onName As String, _ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal _lpReturnedString As String, ByVal nSize As Long, ByVal lp As String) As LongPrivate Sub Sort(dtm1 As Date, int1 As Integer) 該過程生成每月的各個日期 Dim intweek As Integer, i As Integer, j As Integer Dim h As Integer For h = 0 To 36 各個

35、日期標簽標題清空 lblDay(h).Caption = Next h intweek = Val(Format(dtm1, w) 計算每月的第一天為星期幾 If intweek - 1 0 Then i = intweek - 2 Else i = 6 End If j = 0 Do While j int1 lblDay(i).Caption = j + 1 lblDay(i).MousePointer = 99 lblDay(i).MouseIcon = LoadPicture(App.Path & Resourcehand.cur) 使指針變成手的圖形 j = j + 1 i = i

36、+ 1 Loop For j = 0 To 36 If lblDay(j).Caption = Then lblDay(j).MousePointer = 99 lblDay(j).MouseIcon = LoadPicture(App.Path & Resourcemove.cur) 使指針邊成移動的圖形 End If NextEnd SubPrivate Sub DisplayNow() 該過程顯示當前日期 Dim dtmNow As Date dtmNow = Date lblYear.Caption = Format(dtmNow, yyyy年) lblMonth.Caption =

37、Format(dtmNow, M月) lblNow.Caption = Format(dtmNow, 今天是：dddddd) strNow = Format(dtmNow, dddddd) 用于存儲當前年、月、日字符串 intYear = Val(Format(dtmNow, yyyy)用三個變量存儲當前的年、月、日 intMonth = Val(Format(dtmNow, M) intDay = Val(Format(dtmNow, d) dtmOne = DateAdd(d, (1 - intDay), dtmNow) 當前月的第一天 intNum = Days(intYear, int

38、Month) Call Sort(dtmOne, intNum) 調用過程生成每月的各個日期 使當前日期顏色正確顯示 If frmCalMain.lblYear.Caption & frmCalMain.lblMonth.Caption & _ frmCalMain.lblDay(intNowDayIndex).Caption & 日 = strNow Then frmCalMain.lblDay(intNowDayIndex).ForeColor= frmCalMain.lblNow.ForeColor End IfEnd SubPublic Sub GetCaption() 產生標簽的文字

39、，達到字體有懸浮的效果 Dim j As Integer lblYear1.Caption = lblYear.Caption lblYear1.FontName = lblYear.FontName lblMonth1.Caption = lblMonth.Caption lblMonth1.FontName = lblMonth.FontName lblNow1.Caption = lblNow.Caption lblNow1.FontName = lblNow.FontName For j = 37 To 73 lblDay(j).Caption = lblDay(73 - j).Cap

40、tion Next lblShowNote1.Caption = lblShowNote.Caption lblShowNote1.FontName = lblShowNote.FontName For j = 0 To 6 lblWeek(13 - j).FontName = lblWeek(j).FontName NextEnd SubPrivate Sub ShowNowColor() 此過程顯示當前日期的顏色 Dim i As Integer If lblYear.Caption & lblMonth.Caption & lblDay(intNowDayIndex).Caption &

41、 日 = strNow Then lblDay(intNowDayIndex).ForeColor = frmCalMain.lblNow.ForeColor Else Select Case intNowDayIndex Case 5, 12, 19, 2, 633 lblDay(intNowDayIndex).ForeColor = CLng(strSatColor) Case 6, 13, 20, 27, 34 lblDay(intNowDayIndex).ForeColor = CLng(strSunColor) Case Else lblDay(intNowDayIndex).For

42、eColor = CLng(strMtoFColor) End Select End IfEnd SubPrivate Function Days(intY As Integer, intM As Integer)該函數(shù)計算每月的天數(shù) Dim k As Integer Select Case intM Case 1, 3, 5, 7, 8, 10, 12 k = 31 Case 2 If intY Mod 4 = 0 Then k = 29 Else k = 28 End If Case Else k = 30 End Select Days = kEnd FunctionPublic Sub

43、 GetShowNowLblelIndex()此過程可獲得當前日子所在標簽的Index號 Dim i As Integer For i = 0 To 36 If frmCalMain.lblDay(i).Caption = CStr(frmCalMDay) Then intNowDayIndex = i Exit For End If NextEnd SubPrivate Sub Form_Load() Dim i As Integer, s2 As String Dim hRgn As Long, s As String * 100, strWeekFont As String

44、 Dim strTodayColor As String, strHeadColor As String, strTodayFont As String Dim strNoteColor As String, strNoteFont As String, strHeadFont As String DisplayNow 調用過程顯示當前日期 GetShowNowLblelIndex 獲得當前日子所在標簽的Index號 # 各標簽獲得顏色參量 # Call GetPrivatePro(SetColor, 顏色1, 0, s, 100, App.Path & cal.set) strMtoFCol

45、or = Trim(Left(s, InStr(s, Chr(0) - 1) 獲得星期一至星期五的顏色參量 For i = 0 To 36 frmCalMain.lblDay(i).ForeColor = CLng(strMtoFColor)字體顏色的獲取 Select Case i Case 4, 11, 18, 25, 32 i = i + 2 End Select Next Call GetPrivatePro(SetColor, 顏色2, 0, s, 100, App.Path & cal.set) strSatColor = Trim(Left(s, InStr(s, Chr(0)

46、- 1) 獲得星期六的顏色參量 For i = 5 To 33 Step 7 If i = intNowDayIndex Then i = i + 7 frmCalMain.lblDay(i).ForeColor = CLng(strSatColor) Next Call GetPrivatePro(SetColor, 顏色3, 0, s, 100, App.Path & cal.set) strSunColor = Trim(Left(s, InStr(s, Chr(0) - 1) 獲得星期天的顏色參量 For i = 6 To 34 Step 7 If i = intNowDayIndex

47、 Then i = i + 7 frmCalMain.lblDay(i).ForeColor = CLng(strSunColor) Next Call GetPrivatePro(SetColor, 顏色4, 0, s, 100, App.Path & cal.set) strTodayColor = Trim(Left(s, InStr(s, Chr(0) - 1) 獲得顏色參量 frmCalMain.lblNow.ForeColor = CLng(strTodayColor) frmCalMain.lblDay(intNowDayIndex).ForeColor = CLng(strTo

48、dayColor) Call GetPrivatePro(SetColor, 顏色5, 0, s, 100, App.Path & cal.set) strHeadColor = Trim(Left(s, InStr(s, Chr(0) - 1) 獲得顏色參量 frmCalMain.lblYear.ForeColor = CLng(strHeadColor) frmCalMain.lblMonth.ForeColor = CLng(strHeadColor) For i = 0 To 6 frmCalMain.lblWeek(i).ForeColor = CLng(strHeadColor)

49、Next Call GetPrivatePro(SetColor, 顏色6, 0, s, 100, App.Path & cal.set) strNoteColor = Trim(Left(s, InStr(s, Chr(0) - 1) 獲得顏色參量 frmCalMain.lblShowNote.ForeColor = CLng(strNoteColor) Call GetPrivatePro(Pic, 圖片, 0, s, 100, App.Path & cal.set) frmMenu.strPicName = Trim(Left(s, InStr(s, Chr(0) - 1) 保存記事本的圖片信息不丟失,在窗體frmMenu的Exit的單擊事件中用到該變量 s2 = CStr(App.Path & & Pics & & Trim(Left(s, InStr(s, Chr(0) - 1) 保存最近一次操作所得的背影圖片的地址 frmCalMain.Picture = LoadPicture(s2 & .bmp) 下載背影圖片 # 獲得各個標簽的字體類型 # Call GetPrivatePro(SetFont, 字體1, 0, s, 100, App.Path & cal.set) strWeekFont = CStr(Trim(Left(s, InStr(s, Chr(0