Visual Basic程序设计（第三版）电子教案+源代码（前9章）潘地林 第7章.ppt

* [例7-6] 设计一用户界面。 Private Sub Form_Load() Dim i As Integer For i = 12 To 28 Step 2 Combo1.AddItem i Next i End Sub * Private Sub Command1_Click() If Option1.Value = 1 Then Text1.FontName = 宋体 If Option2.Value = 1 Then Text1.FontName = 隶书 If Option3.Value = 1 Then Text1.FontName = 楷体“ If Option4.Value = 1 Then Text1.ForeColor = VbRed If Option5.Value = 1 Then Text1.ForeColor = VbGreen If Option6.Value = 1 Then Text1.ForeColor = VbBlue Text1.FontBold = Check1.Value Text1.FontItalic = Check2.Value Text1.FontSize = Val(Combo1.Text) End Sub * 7.5 计时器 * 计时器（Timer）控件又称时钟控件、定时器控件，规律地每隔一定的时间就执行一次代码，适合编写不需要与用户进行交互即可直接执行的代码。计时器控件在运行时是不可见的。 1．属性 ⑴ Interval属性 时间间隔，取值范围为0～65535，单位为毫秒（0.001秒）。例如,希望每隔半秒做一件事情，可将时钟控件的该属性设置为500；如果将该属性设置为0，则计时器停止工作。 * ⑵ Enabled属性 计时器的Enabled值为真，且Interval属性值大于0时，计时器开始工作，若Enabled值为假，则计时器无效。 2．事件 只能响应Timer事件，当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。 * [例7-7] 设计一个简单的动画程序，运行时单击“移动”按钮，标签自右向左移动，且每秒移动10次，每次向左移动100缇，一旦整个标签移出了窗体左端，则标签再从窗体的右端开始移动；单击“暂停”按钮暂停移动 Private Sub Command1_Click() Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True End Sub * Private Sub Command2_Click() Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left + Label1.Width 0 Then Label1.Left = Label1.Left - 100 Else Label1.Left = Form1.Width End If End Sub * [例]设计一个计时器，单击“开始”按钮开始计时，按钮标题变为“停止”；单击“停止”按钮，停止计时，并显示记录的时间数。在任何时候单击“重置”按钮，时间读数都将重置为0，且按钮标题变为“开始” Dim start As Double Private Sub Command1_Click() If Command1.Caption = 开始 Then Command1.Caption = 停止 Timer1.Enabled = True start = Timer ‘返回午夜开始到现在经过的秒数 Else Timer1.Enabled = False End If End Sub * Private Sub Command2_Click() Timer1.Enabled = False Label1.Caption = 00:00:00 Command1.Caption = 开始 End Sub Private Sub Timer1_Timer() m = Timer - start n0 = (m * 10) Mod 10 m = Int(m) n1 = Format(m Mod 60, 00.) n2 = Format((m