资源描述:
《初一成绩管理系统vb1》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、初一成绩管理系统VB1不用timer取系统时钟的记时方法:privatesubcmdstart_click()statichourasintegerstaticminuteasintegerstaticsecondasintegerstaticmsecondasintegerdimiasintegerifflag=falsethenhour=0minute=0second=0msecond=0endifflag=falsedowhilehour<24dowhileminute<60dowhilesecond<60dowhilemsecond<100fori=1to100doeven
2、tsifflag=truethengotoexitloopendifnextilbshow.caption=format$(hour,"00")+":"+format$(munute,"00")+":"+format$(second,"00")+":"+format$(msecond,"00")msecond=msecond+1loopmsecond=0second=second+1loopsecond=0minute=minute+1loopminute=0hour=hour+1loophour=0exitloop:endsub闲置循环1、先工程……添加模块然后在其中建立一个叫m
3、ain的过程2、工程……工程1属性……通用标签……启动对象中选择“submain”dimiasintegersubmain()form1.showdowhiledoevents()form1.clsform1.printii=i+1loopendsubprivatesubcommand1_click()staticflagasbooleanifflagthenflag=falseelsecommand1.caption="cancel"flag=truei=0dowhileflagand(i<1000000)forj=1to1000i=i+1nextjdoeventsloopfla
4、g=falsecommand1.caption="ok"endifendsubforeachiinform1.controlsi.enabled=falsenexti当对数组使用foreach……next时要注意每次循环时,元素变量代表的是数组中当前元数的值而不是元数本身所以只能取元数的值而不能改变数组元数的值一OptionExplicit'API函数声明PrivateConstSRCCOPY=&HCC0020PrivateDeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByV
5、alnwidthAsLong,ByValnheightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLongPrivateDeclareFunctionStretchBltLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByValnwidthAsLong,ByValnheightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValnSrcWidthAs
6、Long,ByValnSrcHeightAsLong,ByValdwRopAsLong)AsLongConstmnNotPic=481'错误代码'显示图像过程PublicSubshowpic()DimlAsLongDimnwidthAsLong,nheightAsLongpicshow.Refresh'刷新picshow的内容'将实际图像的宽和高与picshow的宽和高进行比较,如果都小于,'则调用Bitblt函数把图像从pictmp中复制到picshow中Ifpictmp.Width7、l=BitBlt(picshow.hdc,0,0,picshow.ScaleWidth,picshow.ScaleHeight,pictmp.hdc,0,0,SRCCOPY)Else'否则比较实际图像的宽和高'将大者缩小到对应值,而小者按大者的缩小比例进行缩小'再调用StrechBlt函数把图像从pictmp中压缩到picshow中Ifpictmp.Width>pictmp.HeightThennwidth=picshow.ScaleWidthnheight=(pic