实例4 来回移动的彩色文字.pdf
实例实例 4 4 来回移动的彩色文字来回移动的彩色文字“来回移动的彩色文字”程序运行后，在文本框内输入要移动的文字，然后单击“开始”按钮，即可看到输入的一串文字从左向右移动，移到最右边后，再从右向左移动。周而复始，不断来回移动，如图1 所示。在文字来回移动的过程当中，文字的颜色不断变化，同时还显示文字的当前位置。如果在文本框中输入新的文字，则会显示新的移动文字。单击窗体中的“退出”按钮，可以使程序中止运行。图 1“来回移动的彩色文字”程序运行中的一个界面1.1.设置对象的属性设置对象的属性“来回移动的彩色文字”程序有多个控件对象：1 个窗体、4 个时钟、2 个标签、2 个按钮和 1 个文本框，如图 2 所示。图 2 窗体中的对象对象的主要属性设置见表。对象的序号按从上到下、从左到右的顺序依次排号。窗体对象的序号为1。窗体对象的StartUpPosition 属性设置为“2-屏幕中间”。表“来回移动的彩色文字”程序的控件对象属性设置序号序号12345678910类别类别窗体时钟时钟时钟时钟标签名称名称Form1Timer1Timer2Timer3Timer4Label1CaptionCaption文字特点或文字特点或 IntervalIntervalEnabledEnabledTrueFalseFalseFalseFalseTrueTrueTrueTrueTrue来回移动的彩色文字四号，黑色无无无无输入要显示的文字开始退出Interval=80Interval=80Interval=2500Interval=2500四号，紫色小四号四号，粗体四号，粗体四号，红色文本框Text1按钮按钮标签Command1Command2Label22 2程序代码程序代码“来回移动的彩色文字”程序中 Timer1 和 Timer3 时钟对象负责字母从左向右移动，Timer2 和 Timer4 时钟对象负责字母从右向左移动。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 SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer()Cls N=N+1 变量 N 自动加 1 Print Tab(N);A$;显示变量 A$的内容，水平位置由变量 N 决定 Label2.Caption=N 将变量 N 的值赋给标签Labell的 Caption 属性End SubPrivate Sub Timer2_Timer()Cls N=N-1 变量 N 自动减 1 Print Tab(N);A$;Label2.Caption=NEnd SubPrivate 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.TextEnd SubPrivate 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.TextEnd Sub
