实例4 来回移动的彩色文字.doc

实例4 来回移动的彩色文字 1所示。在文字来回移动的过程当中，文字的颜色不断变化，同时 图1“来回移动的彩色文字”程序运行中的一个界面1.设置对象的属性 1个窗体、4个时钟、2个标签、2个按1个文本框，如图2所示。 图2窗体中的对象 。对象的序号按从上到下、从左到右的顺序依次排号。窗1。窗体对象的StartUpPosition属性设置为“2-屏幕中间”。 序号 类别 名称 Caption 文字特点或Interval Enabled 1 窗体 Form1 来回移动的彩色文字 四号，黑色 True 2 时钟 Timer1 无 Interval=80 False 3 时钟 Timer2 无 Interval=80 False 4 时钟 Timer3 无 Interval=2500 False 5 时钟 Timer4 无 Interval=2500 False 6 标签 Label1 输入要显示的文字 四号，紫色 True 7 文本框 Text1 小四号 True 8 按钮 Command1 开始 四号，粗体 True 9 按钮 Command2 退出 四号，粗体 True 10 标签 Label2 四号，红色 True 2．程序代码 Timer1和Timer3时钟对象负责字母从左向右移动，Timer2Timer4时钟对象负责字母从右向左移动。Timerl和Timer2时钟对象触发后执行字母移动Tirner3和Timer4时钟对象触发后执行重新产生新颜色字母的程序。 Dim N As Integer, A$ Private Sub Command1_Click() Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = True Timer4.Enabled = False FontSize = 20 设置字大小 ForeColor = RGB(255, 0, 0) 设置字颜色为红色 A$ = Text1.Text 将文本框Text1中的文字赋给变量A$ N = 1 变量N赋初值1 Cls 清窗体屏幕 End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timer() Cls N = N + 1 变量N自动加1 Print Tab(N); A$; 显示变量A$的内容，水平位置由变量N决定 Label2.Caption = N 将变量N的值赋给标签Labell的Caption属性 End Sub Private Sub Timer2_Timer() Cls N = N - 1 变量N自动减1 Print Tab(N); A$; Label2.Caption = N End Sub Private Sub Timer3_Timer() Timer1.Enabled = False 使时钟控件Timer1无效 Timer2.Enabled = True 使时钟控件Timer2有效 Timer3.Enabled = False 使时钟控件Timer3无效 Timer4.Enabled = True 使时钟控件Timer4有效 ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 设置字的随机颜色 A$ = Text1.Text End Sub Private Sub Timer4_Timer() Timer1.Enabled = True Timer2.Enabled = False Timer3.Enabled = True Timer4.Enabled = False ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) A$ = Text1.Text End Sub