【正文】 目 錄 摘 要 關(guān)鍵字 前 言 第一章 VB 語(yǔ)言概述 1． VB 簡(jiǎn)介 1． VB 語(yǔ)言的基本特點(diǎn)及 VB 應(yīng)用程序的基本持點(diǎn) 1． 為何我選擇 VB 作為開(kāi)發(fā)語(yǔ)言 1． 應(yīng)用的基本開(kāi)發(fā)方法 第二章 用 VB 開(kāi)發(fā)多功能日歷程序 2． 本程序運(yùn)行界面簡(jiǎn)介 2． 本程序部分控件的設(shè)置 2． 主程序部分代碼 第三章 畢業(yè)設(shè)計(jì)總結(jié) 第 四 章 主要參考文獻(xiàn) 摘 要 ： 在日常生活和工作中經(jīng)常有人用到農(nóng)歷和公歷的查詢(xún)問(wèn)題。因此，我借這次畢業(yè)設(shè)計(jì)之機(jī)，在輔導(dǎo)老師的指導(dǎo)下，編寫(xiě)了一個(gè)可以在 VB6 下正常運(yùn)行的日歷、計(jì)算器多功能應(yīng)用程序，編程的思路是 :先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢(xún)?cè)O(shè)置好，再通過(guò)算法轉(zhuǎn)換成具體應(yīng)用。程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀(guān)。單擊屬相標(biāo)志可以退出程序。單擊時(shí)鐘數(shù)字將返回到今天。單擊查詢(xún)控制面板開(kāi)關(guān)將向下拉出查詢(xún)控制面板。 . 關(guān)鍵字 ： 農(nóng)歷公歷轉(zhuǎn)換及計(jì)算器、查詢(xún)控制面板、 VB6。 多功能電子日歷 的開(kāi)發(fā) 前 言 電腦已經(jīng)成為掛在我們嘴角的一句口頭禪，它已經(jīng)深入到日常工作和生活的方方面面，比 如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。 Windows系統(tǒng)的推出使電腦從高雅的學(xué)術(shù)殿堂走入了尋常百姓家，各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿(mǎn)了多如牛毛的各種軟件，但它們依然不能滿(mǎn)足用戶(hù)的各種特殊需要，人們還不得不開(kāi)發(fā)適合自己特殊需求的軟件。以前開(kāi)發(fā) Windows下軟件是專(zhuān)業(yè)人員的工作，需要掌握許多專(zhuān)業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任?，F(xiàn)在不同了，即使你沒(méi)有接受過(guò)嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用 Visual Basic也一樣能夠開(kāi) 發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。 Visual Basic繼承了 Basic語(yǔ)言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows系統(tǒng)編程。 我 作為一名中央電大的學(xué)生 ， 對(duì) 從事計(jì)算機(jī)操作和編程工作 有著特殊的愛(ài)好，在工作和學(xué)習(xí)之余 ， 我時(shí)常鉆研專(zhuān)業(yè)課基礎(chǔ)理論，經(jīng)常用 VB搞一些小程序， 在工作中經(jīng)常有人問(wèn)到農(nóng)歷和公歷的查詢(xún)問(wèn)題。網(wǎng)頁(yè)上有一些這方面的介紹，但是關(guān)于 VB 方面的編程資料卻比較少。因此， 借這次畢業(yè)設(shè)計(jì)之機(jī)， 我編寫(xiě)了一個(gè)可以在 VB6下正常運(yùn)行的日歷、計(jì)算器多功能應(yīng)用程序， 歡迎各位老師提出批評(píng)改進(jìn)意見(jiàn) 。 第一章 VB 語(yǔ)言概述 一、 VB 簡(jiǎn)介 VB 是微軟公司出品的一個(gè)快速可視化程序開(kāi)發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位， VB在短短的幾年內(nèi)風(fēng)靡全球。 VB是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。 美國(guó)微軟公司在 1991 年推出 至今已經(jīng)經(jīng)歷了 6個(gè)版本， 運(yùn)行在 win9x 或winme， win2020， winxp， windowsNT等操作系統(tǒng)下，是一個(gè) 32 位的應(yīng)用程序開(kāi)發(fā)工具。 二、 VB 語(yǔ)言的基本特點(diǎn) 及 VB 應(yīng)用程序的基本持點(diǎn) VB 程序語(yǔ)言具有許多優(yōu)秀的特性 ,用其設(shè)計(jì)應(yīng)用程序時(shí)有兩個(gè)基本特點(diǎn) :可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程 . 可視化設(shè)計(jì) 同其他的一些可視化程序開(kāi)發(fā)工具一樣 ,VB 具有可視化設(shè)計(jì)的特點(diǎn) ,微軟的 Word 在剛剛進(jìn)入市場(chǎng)時(shí) ,同 WPS 競(jìng)爭(zhēng)的一個(gè)重要的功能砝碼就是 所見(jiàn)即所得 的字處理功能 ,VB 在設(shè)計(jì)應(yīng)用程序界面時(shí)也可以說(shuō)是 所見(jiàn)即所得 .在設(shè)計(jì)時(shí) ,頭腦中所想象的應(yīng)用程序界面 ,完全可以通過(guò)鍵盤(pán)鼠標(biāo)以及徒手畫(huà)出來(lái) ,而不是編制大量的代碼然后再編譯生成 ,如果需要修改 ,也是利用鍵盤(pán)鼠標(biāo)和手畫(huà) ,而底層 的一些程序代碼由 VB自動(dòng)生成或修改。 VB為用戶(hù)提供大量的界面元素 (在 VB中稱(chēng)為控件對(duì)象 ),這些控件對(duì)象對(duì)于熟悉 Windows應(yīng)用程序的用戶(hù)而言是一點(diǎn)也不陌生 ,如 窗體 、 菜單 、 命令按鈕 、 工具按鈕 、 檢查框 等等 ,用戶(hù)只需要利用鼠標(biāo)、鍵盤(pán)把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?,設(shè)置它們的大小、形狀、屬性等 ,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。 2事件驅(qū)動(dòng)編程 Windows 操作系統(tǒng)出現(xiàn)以來(lái) ,圖形化的用戶(hù)界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的 ,在使用 VB設(shè)計(jì)應(yīng)用程序時(shí) ,必須首 先確定應(yīng)用程序如何同用戶(hù)進(jìn)行交互 .例如發(fā)生鼠標(biāo)單擊、鍵盤(pán)輸入等事件時(shí) ,由用戶(hù)編寫(xiě)的代碼控制這些事件的響應(yīng) ,這就是所謂的事件驅(qū)動(dòng)編程。 前面已經(jīng)談到 ,在 VB 中把窗體以及 菜單 、 按鈕 等控件稱(chēng)為對(duì)象 ,如果設(shè)計(jì)出了應(yīng)用程序 ,那么與應(yīng)用程序的用戶(hù)直接進(jìn)行交互的就是這些對(duì)象組成的圖形界面 ,也稱(chēng)為用戶(hù)接口或用戶(hù)界面 ,在設(shè)計(jì)應(yīng)用程序時(shí)就必須考慮到用戶(hù)如何與程序進(jìn)行交戶(hù) .更進(jìn)一步 ,甚至程序和程序之間也會(huì)有通訊和交戶(hù) ,基本上用戶(hù)是通過(guò)鼠標(biāo)、鍵盤(pán)與應(yīng)用程序進(jìn)行交互的 ,這時(shí)那些對(duì)象就必須對(duì)鼠標(biāo)和鍵盤(pán)操作所引發(fā)的事件做 出響應(yīng) .響應(yīng)就是指執(zhí)行一段應(yīng)用程序 ,它不沿預(yù)定的路徑執(zhí)行 ,而是在響應(yīng)不同事件時(shí)執(zhí)行不同的代碼 .因此 ,應(yīng)用程序代碼的路徑在每次響應(yīng)而執(zhí)行時(shí)可能都是不形同的。 三、為何 選擇 VB 作為開(kāi)發(fā)語(yǔ)言 除了 VB 之外 ,當(dāng)前 能夠編制 Windows 應(yīng)用程序的可視化編程工具還有很多 ,所 針 對(duì)的編 程 領(lǐng) 域 也 各 有 側(cè) 重 , 就 微 軟 系 列 的 可 視 化 開(kāi) 發(fā) 工 具 而 言 , 就有VB,VisualC++,VisualJ++,Visual Foxpro等 ,其中 Visual Foxpro是針對(duì)數(shù)據(jù)庫(kù)編程的開(kāi)發(fā)工具 。Visual C++是為專(zhuān)業(yè) 程序設(shè)計(jì)員提供的開(kāi)發(fā)工具 ,變量聲明和定義嚴(yán)密 ,功能強(qiáng)大靈活 ,必須經(jīng)過(guò)相當(dāng)?shù)呐Σ拍苷莆?。而 VB不支持虛類(lèi)、多態(tài)性和類(lèi)的繼承 ,相對(duì)而言 VB 簡(jiǎn)單易學(xué) ,變量定義不太嚴(yán)密 ,對(duì)于非專(zhuān)業(yè)程序員而言功能足夠強(qiáng)大 ,同 Visual C++一樣也支持網(wǎng)絡(luò)編程和數(shù)據(jù)庫(kù)編程。 除了微軟之外 ,其他公司也在為 Windows 操作系統(tǒng)平臺(tái)制作應(yīng)用程序開(kāi)發(fā)工具 ,例如前Borland 的公司出品的 Delphi,C++Bulider, J++Bulider 等 ,其他一些公司出品的針對(duì)數(shù)據(jù)庫(kù)編程的 PowerBulider, PowerDesigner等 ,不可否認(rèn) ,這些產(chǎn)品相當(dāng)出色 ,如果能夠熟練掌握將是編程者能力的體現(xiàn) ,但是必須承認(rèn) ,對(duì) Windows 操作系統(tǒng)最熟悉的還是微軟 ,而且微軟本身 Windows操作系統(tǒng)的源代碼采取不公開(kāi)的策略 ,使得其他公司出品的產(chǎn)品在實(shí)現(xiàn)相同功能時(shí)多少都要走些彎路 ,用戶(hù)在使用這些產(chǎn)品設(shè)計(jì)應(yīng)用程序時(shí) ,程序的效率將會(huì)受到影響。 在選擇所需要的應(yīng)用程序開(kāi)發(fā)工具時(shí) ,不但要考慮開(kāi)發(fā)工具的功能是否強(qiáng)大 ,還要考慮所花費(fèi)的時(shí)間和效果 ,單純地追求功能的強(qiáng)大 ,也許會(huì)事倍功半。 中央電大陳明主編的 《 Visual Basic 程序 設(shè)計(jì) 》 是計(jì)算機(jī)應(yīng)用專(zhuān)業(yè)采用的一本難得的教材 ,使我受益匪淺。通過(guò)這門(mén)課程的學(xué)習(xí)，我已能用 VB編寫(xiě)簡(jiǎn)單的程序，為了搞好這次畢業(yè)設(shè)計(jì)，我決定使用 VB作為編程語(yǔ)言。 四、 應(yīng)用的基本開(kāi)發(fā)方法 交互式開(kāi)發(fā) 計(jì)算器面板開(kāi)關(guān) 傳統(tǒng)的應(yīng)用程序開(kāi)發(fā)過(guò)程可以分為三個(gè)明顯的步驟 :編碼、編譯和測(cè)試。但是 VB與傳統(tǒng)的語(yǔ)言不同 ,它使用交互式方法開(kāi)發(fā)應(yīng)用程序 ,使三個(gè)步驟之間不再有明顯的界限。 在大多數(shù)語(yǔ)言里 ,如果編寫(xiě)代碼時(shí)發(fā)生了錯(cuò)誤 ,則在開(kāi)始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲。此時(shí)必須查找并改正該錯(cuò)誤 ,然后再次進(jìn)行編 譯 ,對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過(guò)程。 VB在編程者輸入代碼時(shí)便進(jìn)行解釋 ,即時(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫(xiě)錯(cuò)誤?？雌饋?lái)就像一位專(zhuān)家在監(jiān)視代碼的輸入。 除即時(shí)捕獲錯(cuò)誤以外 ,VB 也在輸入代碼時(shí)部分地編譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測(cè)試應(yīng)用程序時(shí) ,只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤、則將錯(cuò)誤突出顯示于代碼中。這時(shí)可以更正錯(cuò)誤并繼續(xù)編譯、而不需從頭開(kāi)始。 由于 VB 的交互特性 ,因此在開(kāi)發(fā)應(yīng)用程序時(shí) ,系統(tǒng)頻繁地運(yùn)行著應(yīng)用程序。通過(guò)這種方式 ,代碼運(yùn)行的效果可以在開(kāi)發(fā)時(shí)進(jìn)行測(cè)試 ,而不必等到編譯完成 以后。 第 二 章 用 VB 開(kāi)發(fā) 多功能日歷 程序 一、本程序運(yùn)行界面簡(jiǎn)介 編程的主導(dǎo)思想是 :先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢(xún)?cè)O(shè)置好，再通過(guò)算法轉(zhuǎn)換成具體應(yīng)用。程序的運(yùn)行界面見(jiàn)圖 1， 圖 1 程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀(guān)。單擊屬相標(biāo)志可以退出程序。單擊時(shí)鐘數(shù)字將返回到今天。單擊計(jì)算器面板開(kāi)關(guān)將向下拉出計(jì)算器面板 ,單擊查詢(xún)控制面板開(kāi)關(guān)將向下拉出查詢(xún)控制面板 ,見(jiàn)圖 2。 查詢(xún)控制面板開(kāi)關(guān) 屬相標(biāo)志 ,單擊退出本程序 圖 2 二、本程序部分控件的設(shè)置 Gz C_clock G_y,下面兩個(gè)為 g_m,g_d n_y,下面兩個(gè)為 n_m,n_d Picture1 Pt : picturebox控件 該時(shí)鐘是畫(huà)出來(lái)的 , 還有 L1,L2,L3 三個(gè) line 控件 三、主程序部分代碼： Option Explicit 39。*************************************** 39。拖動(dòng)無(wú)標(biāo)題窗體 Const HTCAPTION = 2 Const WM_NCLBUTTONDOWN = amp。HA1 Private Declare Function ReleaseCapture Lib user32 () As Long Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Picture2 cmdt Picture2 Lable4 Picture5 圖中我們看到的一個(gè)個(gè)小按鈕是用photoshop畫(huà)出來(lái)的 ,實(shí)際上在每個(gè)按鈕上面我都加上了透明的 lable 控件 Text1:textbox控件 Updown1 39。============================================================================= Private Declare Function GetObjectAPI Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long Private Declare Function SetWindowRgn Lib user32 (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function CreateRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib gdi32 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function GetBitmapBits Lib gdi32 (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As In