倒計時VB源代碼

倒計時VB源代碼鬥制計時2分53秒計時暫停復(fù)位程序設(shè)計：杜宗飛復(fù)制下面代碼到txt文件，將擴展名改成frm即可用VB運行。VERSION5.00BeginVB.FormForm1"倒計時"30301204505430"Form1"3030"倒計時"30301204505430"Form1"303054303'窗口缺省ClientHeight=ClientLeft=ClientTop=ClientWidth=LinkTopic=ScaleHeight=ScaleWidth=StartUpPosition=BeginVB.TimerTimer1Interval=1000Left=4680Top=1920EndBeginVB.CommandButtonCommand3Caption="復(fù)位"BeginPropertyFontName="宋體"Size=14.25Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=615

Left=3480TabIndex=3Top=2040Width=1455inVB.CommandButtonCommand2Caption="暫停"EndName="宋體"Size=14.25Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseBeginPropertyFontEndProperty61518006151800220401455LeftTabIndexTopWidthEndBeginVB.CommandButtonCommand1Caption=BeginPropertyFontNameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyTOC\o"1-5"\h\zHeight=Left=TabIndex=Top=Width=EndBeginVB.LabelLabel2BackStyle=Caption=ForeColor=Height="計時"="宋體"=14.25=134=700=0'False=0'False=0'False6151200204014550'Transparent"程序設(shè)計：杜宗飛"&H00FF8080&255Left1800TabIndex2760Top27601695Width1695EndBeginVB.LabelAlignmentBackStyleBeginPropertyNameLabel1FontSize'Center'Transparent"宋體"60134134CharsetWeightUnderline700ItalicStrikethroughEndPropertyHeightLeftTabIndex1455480'False'False'False2404335AttributeAttributeAttributeAttributeVB_Name2404335AttributeAttributeAttributeAttributeVB_NameVB_GlobalNameSpaceVB_Creatable=FalseVB_PredeclaredId=True"Form1"FalseTopWidthEndEndAttributeVB_Exposed=FalseOptionExplicitForm的原始大小Form的原始大小PrivateInitHeightAsLongDimtAsIntegerPrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateConstHWND_TOPMOST&=-1PrivateConstSWP_NOSIZE&=&H1PrivateConstSWP_NOMOVE&=&H2PrivateSubTimer1_Timer()t=t-1IftMod60<10ThenLabel1.Caption=Int(t/60)&"分"&"0"&tMod60&"秒"ElseLabel1.Caption=Int(t/60)&"分"&tMod60&"秒"EndIfIft=0ThenTimer1.Enabled=FalseForm1.BackColor=RGB(255,0,0)EndIfEndSubPrivateSubCommand1_Click()t=181Timer1.Enabled=TrueForm1.BackColor=&H8000000FEndSubPrivateSubCommand2_Click()IfTimer1.EnabledThenTimer1.Enabled=FalseCommand2.Caption="繼續(xù)"ElseTimer1.Enabled=TrueCommand2.Caption="暫停"EndIfEndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseCommand2.Caption="暫停"Label1.Caption="0分0秒"Form1.BackColor=&H8000000FEndSubPrivateSubForm_Load()SetWindowPosForm1.hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVEOrSWP_NOSIZETimer1.Enabled=FalseInitWidth=ScaleWidthInitHeight=ScaleHeightDimCtlAsControl'記錄每個Control的原始位置、大小、字型大小,放在Tag屬性中OnErrorResumeNext'確保left,top,width,height,Tag屬性沒有全有的ControlForEachCtlInMe'也能正常執(zhí)行Ctl.Tag=Ctl.Left&""&Ctl.Top&""&Ctl.Width&""&Ctl.Height&〃〃Ctl.Tag=Ctl.Tag&Ctl.FontSize&""NextCtlOnErrorGoTo0EndSubPrivateSubForm_Resize()DimD(4)AsDoubleDimIAsLongDimTempPosAsLongDimStartPosAsLongDimCtlAsControlDimTempVisibleAsBooleanDimScaleXAsDoubleDimScaleYAsDoubleScaleX=ScaleWidth/InitWidthScaleY=ScaleHeight/InitHeightOnErrorResumeNextForEachCtlInMeTempVisible=Ctl.VisibleCtl.Visible=FalseStartPos=1'讀取Control的原始位置、大小、字型大小ForI=0To4TempPos=InStr(StartPos,Ctl.Tag,"",vbTextCompare)IfTempPos>0ThenD(I)=Mid(Ctl.Tag,StartPos,TempPos-StartPos)StartPos=TempPos+1ElseD(I)=0EndIf'根據(jù)比例設(shè)定Control的位置、大小、字型大小Ctl.MoveD(0)*ScaleX,D(1)*ScaleY,D(2)*ScaleX,D(3)*ScaleY'C