关于VB控制器的说明及其流程图.doc

关于VB控制器的说明及其流程图主程序代码部分：Dim s As Integer, tDim GifWidth As IntegerDim GifHeight As IntegerDim FormBackColor As StringDim Giffile As StringConst pi As Double = 3.14159265358979Private Sub Form_Load()GifWidth = 200GifHeight = 100FormBackColor = #EFEBDEGiffile = F:VB11.gifCall ViewGifTimer1.Interval = 1000Me.ScaleLeft = -1000Me.ScaleTop = -1000For i = 0 To 11Label2(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) - 100NextEnd SubPrivate Sub Label1_Click()t = InputBox()If IsDate(t) = True ThenLabel1.Caption = tTimer1.Enabled = FalseRefreshFor i = 1 To 60PSet (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), vbRedEnd IfEnd SubPrivate Sub Timer1_Timer()RefreshFor i = 1 To 60PSet (600 * Cos(i * 6 * pi / 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), vbRedEnd SubPrivate Sub ViewGif()WebBrowser1.Navigate about:blankWebBrowser1.Document.openWebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln function KeyDown()WebBrowser1.Document.writeln if (window.event.altKey)&WebBrowser1.Document.writeln (window.event.keyCode=37)|WebBrowser1.Document.writeln (window.event.keyCode=39)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln WebBrowser1.Document.writeln if (event.keyCode=8) |WebBrowser1.Document.writeln (event.keyCode=116)|WebBrowser1.Document.writeln (event.ctrlKey & event.keyCode=82)WebBrowser1.Document.writeln event.keyCode=0;WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln WebBrowser1.Document.writeln if (event.ctrlKey)&(event.keyCode=78)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln if (event.shiftKey)&(event.keyCode=121)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln if (window.event.srcElement.tagName = & Chr(34) & A & Chr(34) & & window.event.shiftKey)WebBrowser1.Document.writeln window.event.returnValue = false;WebBrowser1.Document.writeln if (window.event.altKey)&(window.event.keyCode=115)WebBrowser1.Document.writeln return false;WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.CloseWebBrowser1.Document.body.Style.border = 0pxWebBrowser1.Document.body.Style.margin = 0pxWebBrowser1.Document.body.bgColor = FormBackColorWebBrowser1.Width = GifWidth * Screen.TwipsPerPixelXWebBrowser1.Height = GifHeight * Screen.TwipsPerPixelYEnd Sub走针提取部分代码：VERSION 5.00Object = EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B#1.1#0; shdocvw.dllBegin VB.Form frmClock BorderStyle = 1 Fixed Single ClientHeight = 4005 ClientLeft = 45 ClientTop = 330 ClientWidth = 6105 DrawWidth = 2 LinkTopic = Form1 MaxButton = 0 False MinButton = 0 False ScaleHeight = 4005 ScaleLeft = -1000 ScaleMode = 0 User ScaleTop = -1000 ScaleWidth = 6105 StartUpPosition = 3 窗口缺省 Begin SHDocVwCtl.WebBrowser WebBrowser1 Height = 1215 Left = 0 TabIndex = 13 Top = 1800 Width = 4695 ExtentX = 8281 ExtentY = 2143 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 1 AutoArrange = 0 False NoClientEdge = 0 False AlignLeft = 0 False NoWebView = 0 False HideFileNames = 0 False SingleClick = 0 False SingleSelection = 0 False NoFolders = 0 False Transparent = 0 False ViewID = 0057D0E0-3573-11CF-AE69-08002B2E1262 Location = End Begin VB.Timer Timer1 Interval = 1000 Left = 120 Top = 2280 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 11 Left = 840 TabIndex = 12 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 10 Left = 840 TabIndex = 11 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 9 Left = 840 TabIndex = 10 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 8 Left = 840 TabIndex = 9 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 7 Left = 840 TabIndex = 8 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 6 Left = 840 TabIndex = 7 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 5 Left = 840 TabIndex = 6 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 4 Left = 840 TabIndex = 5 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 3 Left = 840 TabIndex = 4 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 2 Left = 840 TabIndex = 3 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 1 Left = 840 TabIndex = 2 Top = 600 Width = 375 End Begin VB.Label Label2 Caption = Label2 Height = 375 Index = 0 Left = 1800 TabIndex = 1 Top = 720 Width = 375 End Begin VB.Label Label1 Caption = Label1 BeginProperty Font Name = Arial Size = 12 Charset = 0 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 615 Left = 0 TabIndex = 0 Top = 1800 Width = 2655 EndEndAttribute VB_Name = frmClockAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim s As Integer, tConst pi As Double = 3.14159265358979Private Sub Form_Load()Timer1.Interval = 1000Me.ScaleLeft = -1000Me.ScaleTop = -1000For i = 0 To 11Label2(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) - 100NextEnd SubPrivate Sub Label1_Click()t = InputBox()If IsDate(t) = True ThenLabel1.Caption = tTimer1.Enabled = FalseRefreshFor i = 1 To 60PSet (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), vbRedEnd IfEnd SubPrivate Sub Timer1_Timer()RefreshFor i = 1 To 60PSet (600 * Cos(i * 6 * pi / 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), vbRedEnd Sub说明：本程序主体分为两段：走针与进度条，走针的实现采用了钟表走针的原理及方法，进度条的实现则采取了VB对.GIF动态图的提取方法，以下为具体说明。定义变量：Dim s As Integer, tDim GifWidth As IntegerDim GifHeight As IntegerDim FormBackColor As StringDim Giffile As StringConst pi As Double = 3.14159265358979对走针（类似秒针的）整型数据类型定义对Gif图的宽度的 整型数据类型定义对Gif图的高度的 整型数据类型定义对窗体的背景色的 整型数据类型定义对Gif文件的 字符串定义对以下出现的数学运算的 的常量所取得双精度浮点型定义 且被取到3.14159265358979主窗体加载：Private Sub Form_Load()GifWidth = 200GifHeight = 100FormBackColor = #EFEBDEGiffile = F:VB11.gifCall ViewGifTimer1.Interval = 1000Me.ScaleLeft = -1000Me.ScaleTop = -1000For i = 0 To 11Label2(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) - 100NextEnd Sub定义了进度条的动态图的 宽度= =200，高度= =100，窗体背景色取#EFEBDE，动态图的 本地位置连接，唤出动态图。其后，获取计时器开始计时之间的时间为1 sec ，Me（即Form）的比例设定 向左，向上个取-1000，之后加载了0到11个Label（具体显示为走针的12个刻度），对Label2(i)这12个刻度的具体位置赋值，以三角函数和进行计算。标签label1的单击事件：Private Sub Label1_Click()t = InputBox()If IsDate(t) = True ThenLabel1.Caption = tTimer1.Enabled = FalseRefreshFor i = 1 To 60PSet (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), vbRedEnd IfEnd Sub私有化了 Label1的点击方法，对变量t采用了一个输入框函数，同时将Label1的标题显示为t，将Timer1的定时器设置为停止工作，之后同样运用三角函数和进行计算，格式化了一下参数。定时器Timer1的定时事件：Private Sub Timer1_Timer()RefreshFor i = 1 To 60PSet (600 * Cos(i * 6 * pi / 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), vbRedEnd Sub私有化了定时器Timer1的定时，之后同样运用三角函数和进行计算，格式化了一下参数。控件WebBrowser下的动态图显示方法：Private Sub ViewGif()WebBrowser1.Navigate about:blankWebBrowser1.Document.openWebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln WebBrowser1.Document.writeln function KeyDown()WebBrowser1.Document.writeln if (window.event.altKey)&WebBrowser1.Document.writeln (window.event.keyCode=37)|WebBrowser1.Document.writeln (window.event.keyCode=39)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln WebBrowser1.Document.writeln if (event.keyCode=8) |WebBrowser1.Document.writeln (event.keyCode=116)|WebBrowser1.Document.writeln (event.ctrlKey & event.keyCode=82)WebBrowser1.Document.writeln event.keyCode=0;WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln WebBrowser1.Document.writeln if (event.ctrlKey)&(event.keyCode=78)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln if (event.shiftKey)&(event.keyCode=121)WebBrowser1.Document.writeln event.returnValue=false;WebBrowser1.Document.writeln if (window.event.srcElement.tagName = & Chr(34) & A & Chr(34) & & window.event.shi