農(nóng)歷公歷轉(zhuǎn)換

1、目 錄摘 要關(guān)鍵字前 言第一章 VB語言概述11、VB簡介 12、VB語言的基本特點(diǎn)及VB應(yīng)用程序的基本持點(diǎn)13、為何我選擇VB作為開發(fā)語言14、VB6.0應(yīng)用的基本開發(fā)方法第二章 用VB開發(fā)多功能日歷程序21、本程序運(yùn)行界面簡介22、本程序部分控件的設(shè)置23、主程序部分代碼第三章 畢業(yè)設(shè)計(jì)總結(jié)第四章 主要參考文獻(xiàn)附錄 摘 要：在日常生活和工作中經(jīng)常有人用到農(nóng)歷和公歷的查詢問題。因此，我借這次畢業(yè)設(shè)計(jì)之機(jī)，在輔導(dǎo)老師的指導(dǎo)下，編寫了一個(gè)可以在VB6下正常運(yùn)行的日歷、計(jì)算器多功能應(yīng)用程序，編程的思路是:先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢?cè)O(shè)置好，再通過算法轉(zhuǎn)換成具體應(yīng)用。程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗

2、體比較美觀。單擊屬相標(biāo)志可以退出程序。單擊時(shí)鐘數(shù)字將返回到今天。單擊查詢控制面板開關(guān)將向下拉出查詢控制面板。.關(guān)鍵字：農(nóng)歷公歷轉(zhuǎn)換及計(jì)算器、查詢控制面板、VB6。多功能電子日歷的開發(fā) 前 言電腦已經(jīng)成為掛在我們嘴角的一句口頭禪，它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。Windows系統(tǒng)的推出使電腦從高雅的學(xué)術(shù)殿堂走入了尋常百姓家，各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。

3、以前開發(fā)Windows下軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識(shí)和經(jīng)過特殊的培訓(xùn)才能勝任?，F(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用Visual Basic也一樣能夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。Visual Basic繼承了Basic語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)Windows系統(tǒng)編程。我作為一名中央電大的學(xué)生，對(duì)從事計(jì)算機(jī)操作和編程工作有著特殊的愛好，在工作和學(xué)習(xí)之余，我時(shí)常鉆研專業(yè)課基礎(chǔ)理論，經(jīng)常用VB搞一些小程序，在工作中經(jīng)常有人問到農(nóng)歷和公歷的查詢問題。網(wǎng)頁上有一些這方面的介紹，但是關(guān)于VB方面的編程資料卻比較少。因此，借這次畢業(yè)設(shè)計(jì)之機(jī)，我編寫

4、了一個(gè)可以在VB6下正常運(yùn)行的日歷、計(jì)算器多功能應(yīng)用程序，歡迎各位老師提出批評(píng)改進(jìn)意見。 第一章 VB語言概述 一、VB簡介 VB是微軟公司出品的一個(gè)快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風(fēng)靡全球。VB是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開發(fā)周期，較易維護(hù)的生成代碼。 美國微軟公司在1991年推出VB1.0至今已經(jīng)經(jīng)歷了6個(gè)版本，VB6.0運(yùn)行在win9x或winme，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個(gè)32位的應(yīng)用程序開發(fā)工具。二、VB語言的基本特點(diǎn)及VB應(yīng)用程序

5、的基本持點(diǎn) VB程序語言具有許多優(yōu)秀的特性,用其設(shè)計(jì)應(yīng)用程序時(shí)有兩個(gè)基本特點(diǎn):可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程.1、可視化設(shè)計(jì) 同其他的一些可視化程序開發(fā)工具一樣,VB具有可視化設(shè)計(jì)的特點(diǎn),微軟的Word在剛剛進(jìn)入市場時(shí),同WPS競爭的一個(gè)重要的功能砝碼就是所見即所得的字處理功能,VB在設(shè)計(jì)應(yīng)用程序界面時(shí)也可以說是所見即所得.在設(shè)計(jì)時(shí),頭腦中所想象的應(yīng)用程序界面,完全可以通過鍵盤鼠標(biāo)以及徒手畫出來,而不是編制大量的代碼然后再編譯生成,如果需要修改,也是利用鍵盤鼠標(biāo)和手畫,而底層的一些程序代碼由VB自動(dòng)生成或修改。 VB為用戶提供大量的界面元素(在VB中稱為控件對(duì)象),這些控件對(duì)象對(duì)于熟悉Windows

6、應(yīng)用程序的用戶而言是一點(diǎn)也不陌生,如窗體、菜單、命令按鈕、工具按鈕、檢查框等等,用戶只需要利用鼠標(biāo)、鍵盤把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?設(shè)置它們的大小、形狀、屬性等,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。2事件驅(qū)動(dòng)編程 Windows操作系統(tǒng)出現(xiàn)以來,圖形化的用戶界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的,在使用VB設(shè)計(jì)應(yīng)用程序時(shí),必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互.例如發(fā)生鼠標(biāo)單擊、鍵盤輸入等事件時(shí),由用戶編寫的代碼控制這些事件的響應(yīng),這就是所謂的事件驅(qū)動(dòng)編程。 前面已經(jīng)談到,在VB中把窗體以及菜單、按鈕等控件稱為對(duì)象,如果設(shè)計(jì)出了應(yīng)用程序,那么與應(yīng)用程序的用戶直接進(jìn)行交互的就是這

7、些對(duì)象組成的圖形界面,也稱為用戶接口或用戶界面,在設(shè)計(jì)應(yīng)用程序時(shí)就必須考慮到用戶如何與程序進(jìn)行交戶.更進(jìn)一步,甚至程序和程序之間也會(huì)有通訊和交戶,基本上用戶是通過鼠標(biāo)、鍵盤與應(yīng)用程序進(jìn)行交互的,這時(shí)那些對(duì)象就必須對(duì)鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng).響應(yīng)就是指執(zhí)行一段應(yīng)用程序,它不沿預(yù)定的路徑執(zhí)行,而是在響應(yīng)不同事件時(shí)執(zhí)行不同的代碼.因此,應(yīng)用程序代碼的路徑在每次響應(yīng)而執(zhí)行時(shí)可能都是不形同的。 三、為何選擇VB作為開發(fā)語言 除了VB之外,當(dāng)前能夠編制Windows應(yīng)用程序的可視化編程工具還有很多,所針對(duì)的編程領(lǐng)域也各有側(cè)重,就微軟系列的可視化開發(fā)工具而言,就有VB,VisualC+,Visua

8、lJ+,Visual Foxpro等,其中Visual Foxpro是針對(duì)數(shù)據(jù)庫編程的開發(fā)工具;Visual C+是為專業(yè)程序設(shè)計(jì)員提供的開發(fā)工具,變量聲明和定義嚴(yán)密,功能強(qiáng)大靈活,必須經(jīng)過相當(dāng)?shù)呐Σ拍苷莆?而VB不支持虛類、多態(tài)性和類的繼承,相對(duì)而言VB簡單易學(xué),變量定義不太嚴(yán)密,對(duì)于非專業(yè)程序員而言功能足夠強(qiáng)大,同Visual C+一樣也支持網(wǎng)絡(luò)編程和數(shù)據(jù)庫編程。 除了微軟之外,其他公司也在為Windows操作系統(tǒng)平臺(tái)制作應(yīng)用程序開發(fā)工具,例如前Borland的公司出品的Delphi,C+Bulider, J+Bulider等,其他一些公司出品的針對(duì)數(shù)據(jù)庫編程的PowerBulider,

9、 PowerDesigner等,不可否認(rèn),這些產(chǎn)品相當(dāng)出色,如果能夠熟練掌握將是編程者能力的體現(xiàn),但是必須承認(rèn),對(duì)Windows操作系統(tǒng)最熟悉的還是微軟,而且微軟本身Windows操作系統(tǒng)的源代碼采取不公開的策略,使得其他公司出品的產(chǎn)品在實(shí)現(xiàn)相同功能時(shí)多少都要走些彎路,用戶在使用這些產(chǎn)品設(shè)計(jì)應(yīng)用程序時(shí),程序的效率將會(huì)受到影響。 在選擇所需要的應(yīng)用程序開發(fā)工具時(shí),不但要考慮開發(fā)工具的功能是否強(qiáng)大,還要考慮所花費(fèi)的時(shí)間和效果,單純地追求功能的強(qiáng)大,也許會(huì)事倍功半。 中央電大陳明主編的Visual Basic程序設(shè)計(jì)是計(jì)算機(jī)應(yīng)用專業(yè)采用的一本難得的教材,使我受益匪淺。通過這門課程的學(xué)習(xí)，我已能用VB

10、編寫簡單的程序，為了搞好這次畢業(yè)設(shè)計(jì)，我決定使用VB作為編程語言。 四、VB6.0應(yīng)用的基本開發(fā)方法 1、交互式開發(fā) 傳統(tǒng)的應(yīng)用程序開發(fā)過程可以分為三個(gè)明顯的步驟:編碼、編譯和測試。但是VB與傳統(tǒng)的語言不同,它使用交互式方法開發(fā)應(yīng)用程序,使三個(gè)步驟之間不再有明顯的界限。 在大多數(shù)語言里,如果編寫代碼時(shí)發(fā)生了錯(cuò)誤,則在開始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲。此時(shí)必須查找并改正該錯(cuò)誤,然后再次進(jìn)行編譯,對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過程。VB在編程者輸入代碼時(shí)便進(jìn)行解釋,即時(shí)捕獲并突出顯示大多數(shù)語法或拼寫錯(cuò)誤?？雌饋砭拖褚晃粚＜以诒O(jiān)視代碼的輸入。 除即時(shí)捕獲錯(cuò)誤以外,VB也在輸入代碼時(shí)部分地編

11、譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測試應(yīng)用程序時(shí),只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤、則將錯(cuò)誤突出顯示于代碼中。這時(shí)可以更正錯(cuò)誤并繼續(xù)編譯、而不需從頭開始。 由于VB的交互特性,因此在開發(fā)應(yīng)用程序時(shí),系統(tǒng)頻繁地運(yùn)行著應(yīng)用程序。通過這種方式,代碼運(yùn)行的效果可以在開發(fā)時(shí)進(jìn)行測試,而不必等到編譯完成以后。 第二章 用VB開發(fā)多功能日歷程序 一、本程序運(yùn)行界面簡介編程的主導(dǎo)思想是:先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢?cè)O(shè)置好，再通過算法轉(zhuǎn)換成具體應(yīng)用。程序的運(yùn)行界面見圖1，計(jì)算器面板開關(guān)查詢控制面板開關(guān)屬相標(biāo)志,單擊退出本程序 圖1程序應(yīng)用了不規(guī)則窗體技術(shù)，使得窗體比較美觀。單擊屬相標(biāo)志可以退出程序。單擊時(shí)鐘數(shù)

12、字將返回到今天。單擊計(jì)算器面板開關(guān)將向下拉出計(jì)算器面板,單擊查詢控制面板開關(guān)將向下拉出查詢控制面板,見圖2。 圖2二、本程序部分控件的設(shè)置GzPicture1n_y,下面兩個(gè)為n_m,n_dG_y,下面兩個(gè)為g_m,g_dC_clock該時(shí)鐘是畫出來的,還有L1,L2,L3 三個(gè)line控件Pt : picturebox控件Lable4cmdtPicture2Picture5圖中我們看到的一個(gè)個(gè)小按鈕是用photoshop畫出來的,實(shí)際上在每個(gè)按鈕上面我都加上了透明的lable控件Updown1Text1:textbox控件三、主程序部分代碼：Option Explicit*拖動(dòng)無標(biāo)題窗體Co

13、nst HTCAPTION = 2Const WM_NCLBUTTONDOWN = &HA1Private Declare Function ReleaseCapture Lib user32 () As LongPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long=Private Declare Function GetObjectAPI L

14、ib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As LongPrivate Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As LongPrivate Declare Function SetWindowRgn Lib user32 (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPr

15、ivate Declare Function CreateRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function CombineRgn Lib gdi32 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPrivate Declare Fun

16、ction GetBitmapBits Lib gdi32 (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As LongPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd TypePrivate Const RGN_OR = 2Dim bmByte() As Byte*滾動(dòng)

17、字幕Private Declare Function DrawText Lib user32 Alias DrawTextA (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As LongPrivate Declare Function GetTickCount Lib kernel32 () As LongConst DT_BOTTOM As Long = &H8Const DT_CALCRECT As Long = &H400Con

18、st DT_CENTER As Long = &H1Const DT_EXPANDTABS As Long = &H40Const DT_EXTERNALLEADING As Long = &H200Const DT_LEFT As Long = &H0Const DT_NOCLIP As Long = &H100Const DT_NOPREFIX As Long = &H800Const DT_RIGHT As Long = &H2Const DT_SINGLELINE As Long = &H20Const DT_TABSTOP As Long = &H80Const DT_TOP As

19、Long = &H0Const DT_VCENTER As Long = &H4Const DT_WORDBREAK As Long = &H10Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypeConst ScrollText As String = 1901-2049 & vbCrLf & _ 多功能電子日歷 *Dim EndingFlag As Boolean, jS As IntegerDim e As StringDim f As StringDim g As DoubleDi

20、m S_mem As DoubleDim op As StringDim chk As IntegerConst Pi = 3.979Private Const SWP_NOMOVE = 2Private Const SWP_NOSIZE = 1Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEPrivate Const HWND_TOPMOST = -1Private Const HWND_NOTOPMOST = -2Dim flAge As Boolean, color_index As Integer, tiAo As Boolean, jiSu

21、an As BooleanDim s_mem_B As Boolean, tip As Integer, ziShi As String* 數(shù)字按下、松開Private Sub cmdNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdNum(Index)End SubPrivate Sub cmdNum_MouseUp(Index As Integer, Button As Integer, Shift As

22、 Integer, x As Single, y As Single) Show_b Picture5, P9, cmdNum(Index)End Sub* 角度、弧度Private Sub cmdOp_1_Click(Index As Integer) MPl.Play Select Case Index Case 0 If g = 1 Then If op = Then e = Str(Val(e) * 180 / Pi) txtDisp.Text = e Else f = Str(Val(e) * 180 / Pi) txtDisp.Text = f End If chk = 1 g =

23、 Pi / 180 End If ShowNumARG Pt, wPw1(3), 19 Case 1 If g 1 Then If op = Then e = Str(Val(e) * Pi / 180) txtDisp.Text = e Else f = Str(Val(e) * Pi / 180) txtDisp.Text = f End If chk = 1 g = 1 End If ShowNumARG Pt, wPw1(3), 20 Case 2 g = 1 ShowNumARG Pt, wPw1(3), 21 End SelectEnd SubPrivate Sub cmdOp_1

24、_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp_1(Index)End SubPrivate Sub cmdOp_1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOp_1(Index)End Sub* 單一功能鍵按下、松開Pri

25、vate Sub cmdops_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOps(Index)End SubPrivate Sub cmdops_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOps(Index)End Sub* 單

26、一功能鍵按下、松開Private Sub cmdOps_Click(Index As Integer) Dim sum As Double, i As IntegerOn Error GoTo eh1 MPl.Play Select Case Index Case 0 e = Str(Sqr(Val(e) ShowNumFun Pt, wPw1(3), 10 Ji_suan Case 1 If e 0 Then e = -Val(txtDisp) Else e = 0 End If Ji_suan Case 2 e = Str(Sin(Val(e) * g) ShowNumFun Pt, wP

27、w1(3), Index - 1 Ji_suan Case 3 e = Str(Cos(Val(e) * g) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 4 e = Str(Tan(Val(e) * g) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 5 e = Str(Atn(Val(e) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 6 e = Str(1 / Sin(Val(e) * g) ShowNumFun Pt, wPw1(3), In

28、dex - 1 Ji_suan Case 7 e = Str(1 / Cos(Val(e) * g) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 8 e = Str(Exp(Val(e) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 9 e = Str(Log(Val(e) ShowNumFun Pt, wPw1(3), Index - 1 Ji_suan Case 10 Randomize If op = Then e = Str(# * Rnd) txtDisp.Text = e f = El

29、se f = Str( * Rnd) txtDisp.Text = f End If ShowNumFun Pt, wPw1(3), Index - 1 Case 11 e = Str(1 / Val(e) Ji_suan * 第11-23種情況略* Case 24 If s_mem_B = False Then If op = Then e = Str(S_mem) txtDisp.Text = e f = Else f = Str(S_mem) txtDisp.Text = f End If s_mem_B = True Else S_mem = 0 s_mem_B = False End

30、 If End SelectExit Subeh1:txtDisp.Text = -E-e = f = op = End SubPrivate Sub cmdAC_Click() MPl.Play g = 1 ShowNumFun Pt, wPw2(3), 1 ShowNumARG Pt, wPw1(3), 20 e = f = op = txtDisp.Text = 0End SubPrivate Sub cmdAC_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5

31、, P8, cmdACEnd SubPrivate Sub cmdAC_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdACEnd SubPrivate Sub cmdEq_Click() MPl.Play If op = Then e = Str(-(Val(e) txtDisp.Text = e Else f = Str(-(Val(e) txtDisp.Text = f End If chk = 1End SubPrivate Sub cmdEq_

32、MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdEqEnd SubPrivate Sub cmdEq_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdEqEnd SubPrivate Sub cmdNum_Click(Index As Integer) On Error GoTo eh2 MPl.Play If

33、 chk = 1 Then e = f = op = chk = 0 End If If op = Then e = e & Trim(Str(Index) txtDisp.Text = e Else f = f & Trim(Str(Index) txtDisp.Text = f End If Exit Subeh2: txtDisp.Text = -E- e = f = op = End SubPrivate Sub cmdOp_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y A

34、s Single) Show_b Picture5, P8, cmdOp(Index)End SubPrivate Sub cmdOp_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp(Index)End SubPrivate Sub cmdOp_Click(Index As Integer) On Error GoTo eh3 op_Sub txtDisp.Text = e op = chk = 0 Select

35、 Case Index Case 0 op = + Case 1 op = - Case 2 op = * Case 3 op = / Case 4 op = End Select Exit Subeh3: txtDisp.Text = -E- e = f = op = End SubPrivate Sub cmdPi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPiEnd SubPrivate Sub cmdPi_MouseUp(Button

36、As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPiEnd SubPrivate Sub cmdPi_Click() MPl.Play If op = Then e = 3. txtDisp.Text = e Else f = 3. txtDisp.Text = f End IfEnd SubPrivate Sub cmdPM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b

37、 Picture5, P8, cmdPMEnd SubPrivate Sub cmdPM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPMEnd SubPrivate Sub cmdPM_Click() On Error GoTo eh1 op_Sub txtDisp.Text = e op = chk = 1 Exit Subeh1: txtDisp.Text = -E- e = f = op = End SubPrivate Sub cmdPt_

38、MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdPtEnd SubPrivate Sub cmdPt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdPtEnd SubPrivate Sub cmdPt_Click() MPl.PlayIf op = Then e = e & . txtDisp.Text =

39、eElse f = f & . txtDisp.Text = fEnd IfEnd SubPrivate Sub cmdT_Click() 顯示查詢面板 If tiAo Then Timer4.Enabled = False Timer3.Enabled = True Else Timer4.Enabled = True Timer3.Enabled = False End If Label4.Enabled = False Picture4.Visible = True Picture5.Visible = FalseEnd SubPrivate Sub Label4_Click() Pt.

40、Visible = True cmdT.Enabled = False Picture5.Visible = True Picture4.Visible = False If jiSuan Then Timer6.Enabled = True Timer5.Enabled = False Timer1.Enabled = True Timer8.Enabled = False Else Timer6.Enabled = False Timer5.Enabled = True Timer8.Enabled = True Timer1.Enabled = False End If Picture5

41、.SetFocusEnd Sub單擊返回今天Private Sub C_clock_Click() Text1.Text = Year(Date) Text2.Text = Month(Date) Text3.Text = Day(Date) txt_Sub disPlay (Date)End SubPrivate Sub Form_Activate() RunMain picScrollEnd SubPrivate Sub Form_Load()= Dim t As Single, rtn Form1.Height = 2715 Form1.Width = 5400 rtn = SetWin

42、dowPos(Form1.hwnd, -1, 0, 0, 0, 0, FLAGS) tip = 1 t = Timer If Me.Picture 0 Then Call SetAutoRgn(Me) tiAo = False jiSuan = False- Picture4.Visible = False Picture5.Visible = False-計(jì)算器變量初始化 s_mem_B = False S_mem = 0 chk = 0 e = f = op = txtDisp.Text = 0 g = 1 ShowNumFun Pt, wPw2(3), 1 ShowNumARG Pt,

43、wPw1(3), 20- fhSec3 = 0 color_index = 1 jS = 0 picScroll.ForeColor = vbRed picScroll.FontSize = 8 Picture2.Visible = False color1 = 1 flAge = False shxing= Text1.Text = Year(Date) Text2.Text = Month(Date) Text3.Text = Day(Date) txt_Sub disPlay (Date)End SubPrivate Sub Form_MouseDown(Button As Intege

44、r, Shift As Integer, x As Single, y As Single) If Button = 1 Then Dim ReturnVal As Long x = ReleaseCapture() ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End IfEnd SubPrivate Sub Gz_Click() EndEnd SubPrivate Sub picScroll_Click() Picture2.Visible = True RunMain Picture2End SubPrivat

45、e Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then Dim ReturnVal As Long x = ReleaseCapture() ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End IfEnd SubPrivate Sub Picture2_Click() Picture2.Visible = False RunMain picScrollEnd

46、SubPrivate Sub Picture4_Click() Timer3.Enabled = True Timer4.Enabled = FalseEnd SubPrivate Sub Picture5_Click() Pt.Visible = False Timer6.Enabled = True Timer5.Enabled = False Timer1.Enabled = True Timer8.Enabled = FalseEnd SubPrivate Sub Picture5_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdPM_Click Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 cmdNum_Click (KeyAscii - 48) Case 46 cmdPt_Click Case 42 cmdOp_Click (2) Case 43 cmdOp_Click (0) Case 45 cmdOp_Click (1) Case 47 cmdOp_Click (3) Case Else KeyAscii = 0 End Select