第03單元 電子日歷制作

第3單元電子日歷制作

任務1日歷臺制作

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

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

Sub過程不返回值。

Funtion過程返回一個值。

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

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

語句塊

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

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