VB课程设计报告滚动版字幕

Visual Basic课程设计说明书题 目： 姓 名： 学 号： 指导教师： 综合成绩： 2012年10月VB课程设计报告滚动版字幕一、设计目的在生活中有许多需要滚动字幕的，人们在公共场所经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众注意，具有良好的宣传作用。本程序要求编制一个模拟滚动字幕板的实用程序。二、软件功能介绍（1）启动程序，同时显示图1、图2所示的2个参考界面，窗口1用来显示滚动字幕的显示板，窗口2是控制板。图1 显示窗口图2 控制窗口（2）运行程序时，显示窗口中的文字开始滚动显示。滚动的方式由控制窗口中的“字幕滚动方向控制”框中的4个单选框决定。“滚动字幕的文字大小控制”框可以控制字体大小。“滚动字幕字体控制”是4个按钮式样的单选框，用于设置字体样式。（3）本程序提供8中内置文字内容，单击“内置文字”框中的任一个按钮可以改变字幕的内容。如果要显示自定义的文字内容，可以直接在底部文本框中输入，然后回车即可。（4）通过“前景色”和“背景色”组合框（图3所示），可以改变滚动字幕的前景色和背景色。若选择“颜色自动变化”复选框，则滚动字幕的前景色和背景色均自动变化（每1s变化一次）。图3 选择颜色 （5）点击隐藏按钮即可隐藏控制板，任意双击显示板或滚动中的字幕即可再次显示隐藏的字幕版 （6）本程序解决了颜色自动变化后可能出现前景色和背景色相同的情况，不会出现文字因与背景色颜色相同而不可见的情况三、模块及内部控件列表窗体Form1中相关控件的属性设置对象名称（Name）属性属性值窗体Form1Caption控制板文本框Text1Caption锄禾日当午框架Frame1Caption滚动字幕文字大小控制框架Frame2Caption滚动字幕字体控制框架Frame3Caption内置字幕框架Frame4Caption字幕滚动方向控制单选按钮Option1Caption大字体单选按钮Option2Caption小字体单选按钮Option3Caption从左往右单选按钮Option4Caption从右往左单选按钮Option5Caption穿透式左右摆动单选按钮Option6Caption壁面反射式摆动复选框Check1Caption颜色自动变化标签Label1Caption背景色:标签Label2Caption前景色:标签Label3Caption滚动速度组合框Combo1Text紫色组合框Combo2Text青色水平滚动条HScrollBar1Min10Max200SmallChange5LargeChange5命令按钮Command1Caption宋体命令按钮Command2Caption隶书命令按钮Command3Caption楷书命令按钮Command4Caption黑体命令按钮Command5Caption1命令按钮Command6Caption2命令按钮Command7Caption3命令按钮Command8Caption4命令按钮Command9Caption5命令按钮Command10Caption6命令按钮Command11Caption7命令按钮Command12Caption8命令按钮Command13Caption开始命令按钮Command14Caption恢复设置命令按钮Command15Caption隐藏控制板命令按钮Command16Caption退出计时器Timer1Interval6计时器Timer3Interval1000计时器Timer4Interval6计时器Timer5Interval6计时器Timer6Interval6窗体Form2中控件相关属性设置对象名称（Name）属性属性值窗体Form2Caption滚动字幕板标签Label1AutosizeTrue四、程序分析Option Explicit 强制显式声明Dim n As IntegerDim fx As Integer 定义方向1为向左，0为向右Dim a As IntegerDim b As IntegerPrivate Sub Check1_Click()If Check1.Value = 1 Then 此处选择是否自动改变颜色 Timer3.Enabled = TrueElse Timer3.Enabled = FalseEnd IfEnd SubPrivate Sub Combo1_Click()Select Case Combo1.Text 通过此语句改变Form2里Label的背景色 Case 黑色 Form2.Label1.BackColor = vbBlack 将form2中Label1背景色改为黑色，下同 Case 绿色 Form2.Label1.BackColor = vbGreen Case 蓝色 Form2.Label1.BackColor = vbBlue Case 青色 Form2.Label1.BackColor = vbCyan Case 红色 Form2.Label1.BackColor = vbRed Case 黄色 Form2.Label1.BackColor = vbYellow Case 紫色 Form2.Label1.BackColor = vbMagenta Case Else Exit SubEnd SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.Text 通过此语句改变Form2里Label1显示的字幕的颜色 Case 黑色 Form2.Label1.ForeColor = vbBlack 将Form2里Label1显示的字幕颜色改为黑色，下同 Case 绿色 Form2.Label1.ForeColor = vbGreen Case 蓝色 Form2.Label1.ForeColor = vbBlue Case 青色 Form2.Label1.ForeColor = vbCyan Case 红色 Form2.Label1.ForeColor = vbRed Case 黄色 Form2.Label1.ForeColor = vbYellow Case 紫色 Form2.Label1.ForeColor = vbMagenta Case Else Exit SubEnd SelectEnd SubPrivate Sub command13_Click()If Timer1.Enabled = True Then b = 1 Else If Timer4.Enabled = True Then b = 2 Else If Timer5.Enabled = True Then b = 3 Else If Timer6.Enabled = True Then b = 4 End If End If End IfEnd Ifn = n + 1Select Case b 通过对b的选择从而控制计时器的执行状态，进而决定字幕的移动Case 1 假如计时器1是运行的 If n Mod 2 0 Then 判断此时字幕为滚动状态，以便确定接下来的操作 command13.Caption = 暂停 字幕在移动，Command13显示为”暂停“ Timer1.Enabled = True 保证字幕是滚动的 Else Timer1.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False command13.Caption = 继续 此时字幕停止滚动，Command13显示为”继续“ End If Case 2 若计时器4是运行的 If n Mod 2 0 Then command13.Caption = 暂停 Timer4.Enabled = True Else Timer1.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False command13.Caption = 继续 End If Case 3 若计时器5是运行的 If n Mod 2 0 Then command13.Caption = 暂停 Timer5.Enabled = True Else Timer1.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False command13.Caption = 继续 End If Case 4 若计时器6是运行的 If n Mod 2 0 Then command13.Caption = 暂停 Timer6.Enabled = True Else Timer1.Enabled = False Timer4.Enabled = False Timer5.Enabled = False Timer6.Enabled = False command13.Caption = 继续 End IfEnd Select 结束Select-Case-End-Select 结构语句End SubPrivate Sub Command14_Click() 这里恢复程序开始运行时的状态Option1.Value = True 使用大字体Option4.Value = True 自右向左滚动字幕Timer1.Enabled = TrueTimer3.Enabled = FalseTimer4.Enabled = FalseTimer5.Enabled = FalseTimer6.Enabled = FalseHScroll1.Value = 10 控制字幕的移动速度Check1.Value = 0 颜色不再自动变化Text1.Text = 锄禾日当午Form2.Label1.BackColor = vbMagenta 字幕背景色为紫色Form2.Label1.ForeColor = vbCyan 字幕的暗色为青色Combo1.Text = 紫色Combo2.Text = 青色Form2.Label1.Font = 华文琥珀 将字体恢复成开始时的样子End SubPrivate Sub Command15_Click()Me.Visible = False 此处进行隐藏控制板操作End SubPrivate Sub Command16_Click()End 退出程序End SubPrivate Sub Command1_Click() 改变Form2里label1的字体，下同Form2.Label1.Font = 宋体End SubPrivate Sub Command2_Click()Form2.Label1.Font = 隶书End SubPrivate Sub Command3_Click()Form2.Label1.Font = 楷书End SubPrivate Sub Command4_Click()Form2.Label1.Font = 黑体End SubPrivate Sub Command5_Click() 将text1清空并使用默认的字幕，下同Text1.Text = Text1.Text = 锄禾日当午End SubPrivate Sub Command6_Click()Text1.Text = Text1.Text = 汗滴禾下土End SubPrivate Sub Command7_Click()Text1.Text = Text1.Text = 谁知盘中餐End SubPrivate Sub Command8_Click()Text1.Text = Text1.Text = 粒粒皆辛苦End SubPrivate Sub Command9_Click()Text1.Text = Text1.Text = 横看成岭侧成峰End SubPrivate Sub Command10_Click()Text1.Text = Text1.Text = 远近高低各不同 End SubPrivate Sub Command11_Click()Text1.Text = Text1.Text = 不识庐山真面目End SubPrivate Sub Command12_Click()Text1.Text = Text1.Text = 只缘身在此山中End SubPrivate Sub Form_Load() Form2.Show 程序运行时提示显示两个窗口 Form2.BackColor = Form2.Label1.BackColorfx = 1 值为”1 代表字幕向左移动Option4.Value = TrueTimer1.Enabled = TrueTimer3.Enabled = FalseTimer4.Enabled = FalseTimer5.Enabled = FalseTimer6.Enabled = FalseText1.Text = 锄禾日当午Form2.Label1.BackColor = vbMagentaForm2.Label1.ForeColor = vbCyanCombo1.Text = 紫色Combo2.Text = 青色Combo1.AddItem 黑色 给组合框list属性赋值，下同Combo1.AddItem 绿色Combo1.AddItem 蓝色Combo1.AddItem 青色Combo1.AddItem 红色Combo1.AddItem 黄色Combo1.AddItem 紫色Combo2.AddItem 黑色Combo2.AddItem 绿色Combo2.AddItem 蓝色Combo2.AddItem 青色Combo2.AddItem 红色Combo2.AddItem 黄色Combo2.AddItem 紫色End SubPrivate Sub Option1_Click()Form2.Label1.FontSize = 90 使用较大的字体End SubPrivate Sub Option2_Click()Form2.Label1.FontSize = 50 使用较小的字体End SubPrivate Sub Option3_Click() 改变字幕的滚动方式，下同n = 1command13.Caption = 暂停 每次改变滚动方式时默认字幕是运行着的Timer4.Enabled = TrueTimer5.Enabled = FalseTimer6.Enabled = FalseTimer1.Enabled = FalseEnd SubPrivate Sub Option4_Click()n = 1command13.Caption = 暂停Timer1.Enabled = TrueTimer4.Enabled = FalseTimer5.Enabled = FalseTimer6.Enabled = FalseEnd SubPrivate Sub Option5_Click()n = 1command13.Caption = 暂停Timer5.Enabled = TrueTimer4.Enabled = FalseTimer1.Enabled = FalseTimer6.Enabled = FalseEnd SubPrivate Sub Option6_Click()n = 1command13.Caption = 暂停Timer6.Enabled = TrueTimer4.Enabled = FalseTimer1.Enabled = FalseTimer5.Enabled = FalseEnd SubPrivate Sub Text1_Change()Form2.Label1.Caption = Text1.Text 所显示的字幕即为text1中所键入的字End SubPrivate Sub Timer1_Timer()Form2.Label1.Move Form2.Label1.Left - HScroll1.Value 字幕向左滚动，且移动速度由滚动条的值决定If Form2.Label1.Left -Form2.Label1.Width Then Form2.Label1.Left = Form2.WidthEnd IfEnd SubPrivate Sub Timer3_Timer()Dim s As Integer, r As IntegerRandomizes = Int(Rnd * (7 - 1 + 1) + 1) 随机选出一个（1-7）的整数，下同r = Int(Rnd * (7 - 1 + 1) + 1)Do 运行此循环语句使得字幕的前景色和背景色不会相同r = Int(Rnd * (7 - 1 + 1) + 1)Loop Until s rSelect Case s 此处每一个数都对应一种颜色，通过此语句来随机改变字幕的背景颜色，下同 Case 1 Form2.Label1.BackColor = vbBlack Case 2 Form2.Label1.BackColor = vbGreen Case 3 Form2.Label1.BackColor = vbBlue Case 4 Form2.Label1.BackColor = vbCyan Case 5 Form2.Label1.BackColor = vbRed Case 6 Form2.Label1.BackColor = vbYellow Case 7 Form2.Label1.BackColor = vbMagenta End SelectSelect Case r Case 1 Form2.Label1.ForeColor = vbBlack Case 2 Form2.Label1.ForeColor = vbGreen Case 3 Form2.Label1.ForeColor = vbBlue Case 4 Form2.Label1.ForeColor = vbCyan Case 5 Form2.Label1.ForeColor = vbRed Case 6 Form2.Label1.ForeColor = vbYellow Case 7 Form2.Label1.ForeColor = vbMagenta End SelectEnd SubPrivate Sub Timer4_Timer()Form2.Label1.Move Form2.Label1.Left + HScroll1.Value 字幕向右滚动If Form2.Label1.Left = Form2.Width Then Form2.Label1.Left = -Form2.Label1.WidthEnd IfEnd SubPrivate Sub Timer5_Timer() 字幕进行穿透式左右摆动If fx = 1 Then If Form2.Label1.Left -Form2.Label1.Width Then Form2.Label1.Left = F