资源描述：
《关于vb控制器的说明及其流程图》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、关于VB控制器的说明及其流程图主程序代码部分：DimsAsInteger,tDimGifWidthAsIntegerDimGifHeightAsIntegerDimFormBackColorAsStringDimGiffileAsStringConstpiAsDouble=3.14159265358979PrivateSubForm_Load()GifWidth=200GifHeight=100FormBackColor="#EFEBDE"Giffile="F:VB11.gif"CallViewGifTim
2、er1.Interval=1000Me.ScaleLeft=-1000Me.ScaleTop=-1000Fori=0To11Label2(i).AutoSize=TrueLabel2(i).Caption=i+1Label2(i).Left=700*Cos((i*30-60)*pi/180)-80Label2(i).Top=700*Sin((i*30-60)*pi/180)-100NextEndSubPrivateSubLabel1_Click()t=InputBox("")IfIsDate(t)=TrueThe
3、nLabel1.Caption=tTimer1.Enabled=FalseRefreshFori=1To60PSet(600*Cos(i*6*pi/180),600*Sin(i*6*pi/180)),vbBlackNexts=Format(t,"s")Line(0,0)-(600*Cos(s*pi/30-pi/2),600*Sin(s*pi/30-pi/2)),vbRedEndIfEndSubPrivateSubTimer1_Timer()RefreshFori=1To60PSet(600*Cos(i*6*pi/
4、180),600*Sin(i*6*pi/180)),vbBlackNextLabel1.Caption=Nows=Format(Now,"s")Line(0,0)-(600*Cos(s*pi/30-pi/2),600*Sin(s*pi/30-pi/2)),vbRedEndSubPrivateSubViewGif()WebBrowser1.Navigate"about:blank"WebBrowser1.Document.openWebBrowser1.Document.writeln""WebBrow
5、ser1.Document.writeln""WebBrowser1.Document.writeln""WebBrowser1.Document.writeln"functionKeyDo
6、wn(){"WebBrowser1.Document.writeln"if((window.event.altKey)&&"WebBrowser1.Document.writeln"((window.event.keyCode==37)
7、
8、"WebBrowser1.Document.writeln"(window.event.keyCode==39))){"WebBrowser1.Document.writeln"event.returnValue=false;"WebBrowser1.Document.writ
9、eln"}"WebBrowser1.Document.writeln"if((event.keyCode==8)
10、
11、"WebBrowser1.Document.writeln"(event.keyCode==116)
12、
13、"WebBrowser1.Document.writeln"(event.ctrlKey&&event.keyCode==82)){"WebBrowser1.Document.writeln"event.keyCode=0;"WebBrowser1.Document.writeln"event.r
14、eturnValue=false;"WebBrowser1.Document.writeln"}"WebBrowser1.Document.writeln"if((event.ctrlKey)&&(event.keyCode==78))"WebBrowser1.Document.writeln"event.returnValue=false;"WebBrowser1.Do
