2022年多功能电子日历系统的开发 .pdf

《2022年多功能电子日历系统的开发 .pdf》由会员分享，可在线阅读，更多相关《2022年多功能电子日历系统的开发 .pdf（32页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 目录摘要关键字前言第一章 VB 语言概述11、VB简介12、VB语言的基本特点及VB应用程序的基本持点13、为何我选择 VB作为开发语言14、VB6.0 应用的基本开发方法第二章 用 VB开发多功能日历程序21、本程序运行界面简介22、本程序部分控件的设置23、主程序部分代码第三章毕业设计总结第四章 主要参考文献附录名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：38

2、0856918 电子邮箱： 摘要：在日常生活和工作中经常有人用到农历和公历的查询问题。因此，我借这次毕业设计之机，在辅导老师的指导下，编写了一个可以在VB6 下正常运行的日历、计算器多功能应用程序，编程的思路是:先把公、农历的数据用数组查询设置好，再通过算法转换成具体应用。程序应用了不规则窗体技术，使得窗体比较美观。单击属相标志可以退出程序。单击时钟数字将返回到今天。单击查询控制面板开关将向下拉出查询控制面板。.关键字：农历公历转换及计算器、查询控制面板、VB6。名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅

3、导及相关资料的专业网站QQ：380856918 电子邮箱： 多功能电子日历的开发前言电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发 Windows下软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，

4、即使你没有接受过严格的程序设计训练，使用Visual Basic也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic 继承了 Basic语言易学易用的特点，特别适合于初学者学习Windows系统编程。我作为一名中央电大的学生，对从事计算机操作和编程工作有着特殊的爱好，在工作和学习之余，我时常钻研专业课基础理论，经常用VB搞一些小程序，在工作中经常有人问到农历和公历的查询问题。网页上有一些这方面的介绍，但是关于VB方面的编程资料却比较少。因此，借这次毕业设计之机，我编写了一个可以在VB6下正常运行的日历、计算器多功能应用程序，欢迎各位老师提出批评改进意见。第一章VB语

5、言概述一、VB简介VB 是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。美国微软公司在1991 年推出 VB1.0 至今已经经历了6 个版本，VB6.0 运行在 win9x 或winme，win2000，winxp，windowsNT等操作系统下，是一个32 位的应用程序开发工具。二、VB语言的基本特点及VB应用程序的基本持点 VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事

6、件驱动编程.1、可视化设计同其他的一些可视化程序开发工具一样,VB 具有可视化设计的特点,微软的 Word在刚刚进入市场时,同 WPS 竞争的一个重要的功能砝码就是 所见即所得 的字处理功能,VB 在设计应用程序界面时也可以说是 所见即所得.在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由VB自动生成或修改。名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：3808

7、56918 电子邮箱： VB为用户提供大量的界面元素(在 VB中称为控件对象),这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如窗体 、菜单、命令按钮 、工具按钮 、检查框 等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。2 事件驱动编程 Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用 VB设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编

8、程。前面已经谈到,在 VB中把窗体以及 菜单、按钮 等控件称为对象,如果设计出了应用程序,那么与应用程序的用户直接进行交互的就是这些对象组成的图形界面,也称为用户接口或用户界面,在设计应用程序时就必须考虑到用户如何与程序进行交户.更进一步,甚至程序和程序之间也会有通讯和交户,基本上用户是通过鼠标、键盘与应用程序进行交互的,这时那些对象就必须对鼠标和键盘操作所引发的事件做出响应.响应就是指执行一段应用程序,它不沿预定的路径执行,而是在响应不同事件时执行不同的代码.因此,应用程序代码的路径在每次响应而执行时可能都是不形同的。三、为何选择 VB作为开发语言除了 VB之外,当前能够编制Windows应

9、用程序的可视化编程工具还有很多,所针对的编 程 领 域 也 各 有 侧 重,就 微 软 系 列 的 可 视 化 开 发 工 具 而 言,就 有VB,VisualC+,VisualJ+,Visual Foxpro等,其中 Visual Foxpro是针对数据库编程的开发工具;Visual C+是为专业程序设计员提供的开发工具,变量声明和定义严密,功能强大灵活,必须经过相当的努力才能掌握;而 VB不支持虚类、多态性和类的继承,相对而言 VB简单易学,变量定义不太严密,对于非专业程序员而言功能足够强大,同 Visual C+一样也支持网络编程和数据库编程。除了微软之外,其他公司也在为Windows

10、操作系统平台制作应用程序开发工具,例如前Borland的公司出品的Delphi,C+Bulider,J+Bulider等,其他一些公司出品的针对数据库编程的 PowerBulider,PowerDesigner等,不可否认,这些产品相当出色,如果能够熟练掌握将是编程者能力的体现,但是必须承认,对 Windows 操作系统最熟悉的还是微软,而且微软本身 Windows操作系统的源代码采取不公开的策略,使得其他公司出品的产品在实现相同功能时多少都要走些弯路,用户在使用这些产品设计应用程序时,程序的效率将会受到影响。在选择所需要的应用程序开发工具时,不但要考虑开发工具的功能是否强大,还要考虑所花费的

11、时间和效果,单纯地追求功能的强大,也许会事倍功半。中央电大陈明主编的Visual Basic程序设计是计算机应用专业采用的一本难得的教材,使我受益匪浅。通过这门课程的学习，我已能用 VB编写简单的程序，为了搞好这次毕业设计，我决定使用VB作为编程语言。四、VB6.0 应用的基本开发方法 1、交互式开发名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 计 算 器 面 板开关传统的应用程序开发过程可以分为三个明显的步骤:编码、编译和测试。但是 VB与传统的语

12、言不同,它使用交互式方法开发应用程序,使三个步骤之间不再有明显的界限。在大多数语言里,如果编写代码时发生了错误,则在开始编译应用程序时该错误就会被编译器捕获。此时必须查找并改正该错误,然后再次进行编译,对每一个发现的错误都要重复这样的过程。VB在编程者输入代码时便进行解释,即时捕获并突出显示大多数语法或拼写错误。看起来就像一位专家在监视代码的输入。除即时捕获错误以外,VB 也在输入代码时部分地编译该代码。当准备运行和测试应用程序时,只需极短时间即可完成编译。如果编译器发现了错误、则将错误突出显示于代码中。这时可以更正错误并继续编译、而不需从头开始。由于 VB的交互特性,因此在开发应用程序时,系

13、统频繁地运行着应用程序。通过这种方式,代码运行的效果可以在开发时进行测试,而不必等到编译完成以后。第二章用 VB开发多功能日历程序一、本程序运行界面简介编程的主导思想是:先把公、农历的数据用数组查询设置好，再通过算法转换成具体应用。程序的运行界面见图1，图 1 程序应用了不规则窗体技术，使得窗体比较美观。单击属相标志可以退出程序。单击时钟数字将返回到今天。单击计算器面板开关将向下拉出计算器面板,单击查询控制面板开关将向下拉出查询控制面板,见图 2。查询控制面板开关属相标志,单击退出本程序名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 32 页 -http:/ 易瑞六月风计算机毕业

14、设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 图 2 二、本程序部分控件的设置Gz C_clock G_y,下面两个为g_m,g_d n_y,下 面 两 个为n_m,n_d Picture1 Pt:picturebox控件该时钟是画出 来 的,还有 L1,L2,L3 三个 line 控件名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 三、主程序部分代码：Option Explicit*拖动无标题窗体Const HT

15、CAPTION=2 Const WM_NCLBUTTONDOWN=&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 cmdtLable4 Picture5 图中我们看到的一个个小按钮是用photoshop

16、画出来的,实际上在每个按钮上面我都加上了透明的lable 控件Text1:textbox控件Updown1 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱：=Private Declare Function GetObjectAPI Lib gdi32 Alias GetObjectA(ByVal hObject As Long,ByVal nCount As Long,lpObject As Any)As Long Private Declare Fu

17、nction 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

18、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

19、Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Private Const RGN_OR=2 Dim bmByte()As Byte*滚动字幕Private Declare Function DrawText Lib user32 Alias DrawTextA(ByVal hdc As Long,ByVal lpStr As String,ByVal nCount As Long,lpRec

20、t As RECT,ByVal wFormat As Long)As Long Private Declare Function GetTickCount Lib kernel32()As Long Const DT_BOTTOM As Long=&H8 Const DT_CALCRECT As Long=&H400 Const DT_CENTER As Long=&H1 Const DT_EXPANDTABS As Long=&H40 Const DT_EXTERNALLEADING As Long=&H200 Const DT_LEFT As Long=&H0 Const DT_NOCLI

21、P As Long=&H100 Const DT_NOPREFIX As Long=&H800 Const DT_RIGHT As Long=&H2 Const DT_SINGLELINE As Long=&H20 Const DT_TABSTOP As Long=&H80 Const DT_TOP As Long=&H0 Const DT_VCENTER As Long=&H4 Const DT_WORDBREAK As Long=&H10 Private Type RECT 名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导

22、网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： Left As Long Top As Long Right As Long Bottom As Long End Type Const ScrollText As String=1901-2049&vbCrLf&_ 多功能电子日历 *Dim EndingFlag As Boolean,jS As Integer Dim e As String Dim f As String Dim g As Double Dim S_mem As Double Dim op As String Dim chk As Integer

23、Const Pi=3.14159265358979 Private Const SWP_NOMOVE=2 Private Const SWP_NOSIZE=1 Private Const FLAGS=SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_TOPMOST=-1 Private Const HWND_NOTOPMOST=-2 Dim flAge As Boolean,color_index As Integer,tiAo As Boolean,jiSuan As Boolean Dim s_mem_B As Boolean,tip As Integ

24、er,ziShi As String*数字按下、松开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 Sub Private Sub cmdNum_MouseUp(Index As Integer,Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdNum(

25、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 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： f=Str(Val(e)*180/Pi)txtDisp.Text=f End If chk

26、=1 g=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 Select End Sub Private Sub cmdOp_1_MouseUp(Index As Integer,Bu

27、tton As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdOp_1(Index)End Sub Private 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*单一功能键按下、松开Private Sub cmdops_MouseDown(Index As Integer

28、,Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdOps(Index)End Sub Private 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*名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计

29、辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 单一功能键按下、松开Private Sub cmdOps_Click(Index As Integer)Dim sum As Double,i As Integer On 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(V

30、al(e)*g)ShowNumFun Pt,wPw1(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),Index-1 Ji_suan

31、 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 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： Ji_suan Case 9 e=Str(Log(Val(e)ShowNumFun Pt,wPw1(3),Index-1 Ji_suan Case 10 Random

32、ize If op=Then e=Str(9999999999#*Rnd)txtDisp.Text=e f=Else f=Str(99999999*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

33、 S_mem=0 s_mem_B=False End If End Select Exit Sub eh1:txtDisp.Text=-E-e=f=op=End Sub Private Sub cmdAC_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： MPl.Play g=1 ShowNumFun Pt,wPw2(3),1 ShowNumARG Pt,wPw1(3),20 e=f=op=txtDisp.Text=0 End Sub P

34、rivate Sub cmdAC_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdAC End Sub Private Sub cmdAC_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdAC End Sub Private Sub cmdEq_Click()MPl.Play If op=Then e=Str(-(Val(e)txtD

35、isp.Text=e Else f=Str(-(Val(e)txtDisp.Text=f End If chk=1 End Sub Private Sub cmdEq_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdEq End Sub Private Sub cmdEq_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdEq End

36、Sub Private Sub cmdNum_Click(Index As Integer)On Error GoTo eh2 MPl.Play If chk=1 Then e=f=op=chk=0 名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 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

37、Sub eh2:txtDisp.Text=-E-e=f=op=End Sub Private Sub cmdOp_MouseDown(Index As Integer,Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdOp(Index)End Sub Private Sub cmdOp_MouseUp(Index As Integer,Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,

38、P9,cmdOp(Index)End Sub Private Sub cmdOp_Click(Index As Integer)On Error GoTo eh3 op_Sub txtDisp.Text=e op=chk=0 Select Case Index Case 0 op=+Case 1 op=-Case 2 op=*Case 3 op=/Case 4 op=End Select Exit Sub eh3:txtDisp.Text=-E-名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专

39、业网站QQ：380856918 电子邮箱： e=f=op=End Sub Private Sub cmdPi_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdPi End Sub Private Sub cmdPi_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdPi End Sub Private Sub cmdPi_Click()

40、MPl.Play If op=Then e=3.141592654 txtDisp.Text=e Else f=3.141592654 txtDisp.Text=f End If End Sub Private Sub cmdPM_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P8,cmdPM End Sub Private Sub cmdPM_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Sing

41、le)Show_b Picture5,P9,cmdPM End Sub Private Sub cmdPM_Click()On Error GoTo eh1 op_Sub txtDisp.Text=e op=chk=1 Exit Sub eh1:txtDisp.Text=-E-e=f=op=End Sub Private Sub cmdPt_MouseDown(Button As Integer,Shift As Integer,x As Single,y As 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计

42、辅导及相关资料的专业网站QQ：380856918 电子邮箱： Single)Show_b Picture5,P8,cmdPt End Sub Private Sub cmdPt_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)Show_b Picture5,P9,cmdPt End Sub Private Sub cmdPt_Click()MPl.Play If op=Then e=e&.txtDisp.Text=e Else f=f&.txtDisp.Text=f End If End Sub Privat

43、e 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=False End Sub Private Sub Label4_Click()Pt.Visible=True cmdT.Enabled=False Picture5.Visible=True Picture4.Vi

44、sible=False If jiSuan Then Timer6.Enabled=True Timer5.Enabled=False Timer1.Enabled=True Timer8.Enabled=False Else Timer6.Enabled=False Timer5.Enabled=True 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： Timer8.Enabled=True Timer1.Enabled=False End If

45、Picture5.SetFocus End Sub 单击返回今天Private Sub C_clock_Click()Text1.Text=Year(Date)Text2.Text=Month(Date)Text3.Text=Day(Date)txt_Sub disPlay(Date)End Sub Private Sub Form_Activate()RunMain picScroll End Sub Private Sub Form_Load()=Dim t As Single,rtn Form1.Height=2715 Form1.Width=5400 rtn=SetWindowPos(

46、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-计算器变量初始化 s_mem_B=False S_mem=0 chk=0 e=f=op=txtDisp.Text=0 g=1 ShowNumFun Pt,wPw2(3),1 ShowNumARG Pt,wPw1(3),20-fhSec3=0 名师资料总结-精品资料欢迎下载-名师精心整理-第 17

47、 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： 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 Sub Private Sub Form_Mous

48、eDown(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 If End Sub Private Sub Gz_Click()End End Sub Private Sub picScroll_Click()Picture2.Visible=True RunMain Picture2 End S

49、ub Private 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 If End Sub Private Sub Picture2_Click()Picture2.Visible=False RunMain picScroll End Sub Pr

50、ivate Sub Picture4_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 32 页 -http:/ 易瑞六月风计算机毕业设计辅导网提供毕业设计辅导及相关资料的专业网站QQ：380856918 电子邮箱： Timer3.Enabled=True Timer4.Enabled=False End Sub Private Sub Picture5_Click()Pt.Visible=False Timer6.Enabled=True Timer5.Enabled=False Timer1.Enabled=True Timer8.Enabled=False E