第03單元 電子日歷制作

第3單元電子日歷制作

任務1日歷臺制作

任務2萬年歷制作上一頁下一頁目錄結(jié)束本節(jié)任務1日歷臺制作

3.1.1常用內(nèi)部控件與函數(shù)3.1.2創(chuàng)建日歷臺程序界面對象3.1.3循環(huán)控制結(jié)構(gòu)3.1.4編寫日歷臺程序功能代碼上一頁下一頁目錄結(jié)束本節(jié)1.使用Frame控件框架（Frame）的主要作用是作為容器安放其他控件對象，將這些控件對象分成可標識的控件組。不同的對象可以放在一個框架中，框架提供了視覺上的區(qū)分和總體的激活/屏蔽特性。在工具箱中，其系統(tǒng)隱含名稱和標題為FrameX（X為1，2，3…）。2.使用直線和形狀控件直線控件（Line）和形狀控件（Shape）可在窗體增加簡單的線條或?qū)嵭膱D形，用來美化、裝飾用戶界面。直線控件和形狀控件的默認名稱分別為LineX和ShapeX（X為1，2，3，…）。直線、形狀通常為窗體提供可見的背景。用直線控件可以建立簡單的直線，通過屬性的變化可以改變直線的粗細、顏色及線型；用形狀控件可以在窗體上畫幾何圖形，同時可以設置形狀的顏色和填充圖案。3.使用組合框控件組合框控件是列表框控件和文本框控件的組合。它可以像列表框一樣，讓用戶通過鼠標選擇所需要的項目，也可以像文本框一樣，用鍵入的方式選擇項目。3.1.1常用內(nèi)部控件與函數(shù)上一頁下一頁目錄結(jié)束本節(jié)4.使用計時器控件計時器控件（Timer）也稱定時器或時鐘，是一種獨立于用戶，按一定時間間隔周期性地自動觸發(fā)事件的控件。一般用來檢查系統(tǒng)時間，判斷是否執(zhí)行某項任務。在程序運行時，計時器是不可見的，所以可以隨意將它安放在窗體的任何位置上。Timer控件在VisualBasic6.0中有多種應用:響應時間的流逝，在一定的時間間隔執(zhí)行操作，檢查系統(tǒng)時鐘，判斷是否該執(zhí)行某項任務，其他后臺處理等等。在本任務中，主要使Timer控件得到當前的系統(tǒng)時間，并且按照秒為單位進行計時（用戶看到的是以日為單位的計時效果）。Timer控件是程序的關鍵所在。5.使用日期和時間函數(shù)時間和日期函數(shù)使程序能向用戶顯示日期和時間。6.使用格式輸出函數(shù)用格式輸出函數(shù)可以使數(shù)值、日期或字符串，按指定的格式輸出。7.使用轉(zhuǎn)換函數(shù)在VisualBasic中，一些數(shù)據(jù)類型可以自動轉(zhuǎn)換，例如數(shù)字字符串可自動轉(zhuǎn)換為數(shù)值型，但是，多數(shù)類型不能自動轉(zhuǎn)換，這就需要用類型轉(zhuǎn)換函數(shù)。上一頁下一頁目錄結(jié)束3.1.2創(chuàng)建日歷臺程序界面對象本節(jié)下面是日歷臺程序界面對象及其屬性設置的操作步驟：步驟1：步驟1：啟動VisualBasic6.0，打開1個新的標準工程。如果VisualBasic6.0已經(jīng)運行，單擊“文件”→“新建工程”菜單項，打開1個新的標準工程。步驟2：在Form1上添加2個命令按鈕控件，將它們的Caption屬性分別設置為“OK”和“Cancel”。步驟3：在Form1上添加3個標簽(Labe1)、2個組合框(Combo)和1個Shape控件(Shape1)。然后將Label2、Label3的Caption屬性設置為空，Name屬性分別設置為"lblday"和"lbldate"，將Combo1、Combo2的Text屬性分別設置為“cbomonth”和“cboyear”，Name屬性分別設置為“cbomonth”和“cboyear”。步驟4：復制1個Label，然后將它們的Caption屬性分別設置為“月份”和“年份”。步驟5：在Shape上新建1個標簽，把它的Name屬性改為“l(fā)blnumber”，然后再復制30個lblnumber，接下來把它們的Caption屬性分別設置為“1”、“2”等等，最后調(diào)整它們的大小和位置。上一頁下一頁目錄結(jié)束3.1.3循環(huán)控制結(jié)構(gòu)本節(jié)在程序設計中，循環(huán)是指從某處開始有規(guī)律地反復執(zhí)行某一程序塊的現(xiàn)象，并稱重復執(zhí)行的程序塊為它的循環(huán)體。使用循環(huán)可以簡化程序、節(jié)約內(nèi)存、提高效率。VB提供了豐富多彩的設計循環(huán)結(jié)構(gòu)的語句，為各種循環(huán)結(jié)構(gòu)程序設計打開了方便之門。For循環(huán)，也稱For-Next循環(huán)或計數(shù)循環(huán)。程序按照結(jié)構(gòu)中指明的循環(huán)次數(shù)來執(zhí)行循環(huán)體部分?！靖袷健縁or循環(huán)變量=初值To終值［Step步長］［循環(huán)體］［ExitFor］Next［循環(huán)變量］［,循環(huán)變量］……上一頁下一頁目錄結(jié)束本節(jié)當對一個語句序列執(zhí)行固定次數(shù)的循環(huán)時，用For-Next循環(huán)非常方便。For循環(huán)用于循環(huán)次數(shù)已知的情況，執(zhí)行一定次數(shù)后即可結(jié)束循環(huán)；而While循環(huán)用于不知道循環(huán)次數(shù)，但可以用一個條件來進行判斷是否結(jié)束。所以對于循環(huán)次數(shù)有限的情況，可以使用While循環(huán)。從某種程度上來說，While循環(huán)比For循環(huán)更靈活。【格式】While<條件>［語句塊］Wend上一頁下一頁目錄結(jié)束VisualBasic6.0中的代碼模塊1.窗體模塊2.標準模塊3.類模塊4.設計系統(tǒng)標準模塊5.保存標準模塊6.刪除標準模塊3.1.4編寫日歷臺程序功能代碼本節(jié)創(chuàng)建過程過程在VisualBasic6.0中分為子程序過程（SubProcedure），函數(shù)過程（FunctionProcedure）和屬性過程（PropertyProcedure）。

Sub過程不返回值。

Funtion過程返回一個值。

Property過程可以返回和設置窗體，標準模塊以及類模塊，也可以設置對象的屬性。所有的可執(zhí)行代碼都必須屬于某個過程。過程的定義是平行的，不能在別Sub、Funtion或Property過程中定義其他過程。1.Sub過程Sub過程可以放在標準模塊或窗體模塊中，VisualBasic6.0中有兩種Sub過程：事件過程和通用過程。過程的定義語法格式如下：【格式】[Static][Private][Public]Sub過程名[(參數(shù)列表)]

語句塊EndSubSub和EndSub之間的語句塊是每次調(diào)用過程執(zhí)行的部分。上一頁下一頁目錄結(jié)束本節(jié)①事件過程事件過程分類窗體事件過程和控件事件過程。事件過程前面的聲明都是Private?！靖袷健縋rivateSubForm_事件名[(參數(shù)列表)]（PrivateSub控件名_事件名[(參數(shù)列表)]）語句塊EndSub②通用過程當幾個不同的事件過程需要執(zhí)行同樣的動作時，為了不重復編寫代碼，可以采用通過過程過實現(xiàn)，由事件過程調(diào)用通用過程。通常，一個通用過程并不與用戶界面中的對象聯(lián)系，通用過程直到被調(diào)用時才起作用。因此，事件過程是必要的，但通用過程不是必要的，只是為了程序員方便而單獨建立?！靖袷健縖Static][Private][Public]Sub過程名[(參數(shù)列表)]

語句塊

[ExitSub][語句塊]EndSubExitSub語句可以使執(zhí)行立即從一個Sub過程中退出，程序接著從調(diào)用該Sub過程語句的下一名繼續(xù)執(zhí)行。在Sub過程的任何位置都可以有ExitSub語句。上一頁下一頁目錄結(jié)束本節(jié)2.Function過程與Sub過程一樣，F(xiàn)unction過程也是一個獨立的過程，可讀取參數(shù)、執(zhí)行一系列語句并改變其參數(shù)的值?！靖袷健縖Static][Private][Public]Function過程名[(參數(shù)列表)][As類型][語句塊][過程名=表達式][ExitFunction][語句塊]EndFunction3.調(diào)用過程①調(diào)用Sub過程調(diào)用Sub過程是一個獨立的語句。調(diào)用Sub過程有兩種方式：一種是使用Call語句，一種是直接用Sub過程名?！靖袷健緾all過程名[(參數(shù)列表)]或者：過程名[(參數(shù)列表)]調(diào)用Sub通用過程和調(diào)用Sub事件過程有點不同之處，通用過程只有被調(diào)用時才起作用，否不會被執(zhí)行。②調(diào)用Function過程調(diào)用函數(shù)Function過程的方法與調(diào)用VisualBasic6.0內(nèi)部函數(shù)方法一樣（例如Sin(x)），由于Function過程能返回一個值，因此完全可以把它看成是一個函數(shù)，在語句中直接使用函數(shù)名，F(xiàn)unction過程可以返回一個值到調(diào)用的過程?！靖袷健窟^程名([參數(shù)列表])采用調(diào)用Sub過程的語法也能調(diào)用Function過程。當用這種方法調(diào)用過程時，會放棄Function過程的返回值。上一頁下一頁目錄結(jié)束本節(jié)上一頁下一頁目錄結(jié)束本節(jié)任務2萬年歷制作3.2.1創(chuàng)建萬年歷程序界面3.2.2設置萬年歷程序界面對象屬性3.2.3編寫萬年歷程序功能代碼上一頁下一頁目錄結(jié)束本節(jié)步驟1：啟動VisualBasic6.0，打開1個新的標準工程。如果VisualBasic6.0已經(jīng)運行，單擊“文件”→“新建工程”菜單項，打開1個新的標準工程。步驟2：在VisualBasic6.0工具箱空白處單擊鼠標右鍵，從彈出菜單中選擇“部件”命令，打開“部件”對話框，從“控件”列表中選擇“MicrosoftCalendarControl8.0”，然后單擊“確定”按鈕即可將日歷控件添加到工具箱中。步驟3：在Form1上添加1個日歷控件、1個文本框和6個命令按鈕。適當調(diào)整它們的大小和位置。3.2.1創(chuàng)建萬年歷程序界面上一頁下一頁目錄結(jié)束

3.2.2設置萬年歷程序界面對象屬性本節(jié)上一頁下一頁目錄結(jié)束PrivateSubCommand1_Click()Calendar1.PreviousMonthEndSubPrivateSubCommand2_Click()Calendar1.NextMonthEndSubPrivateSubCommand3_Click()Calendar1.Value=Text1.TextEndSubPrivateSubCommand4_Click()Calendar1.PreviousYearEndSubPrivateSubCommand5_Click()Calendar1.NextYear