【应用说明7】
本应用程序的运行窗口显示一行字“欢迎光临”,还有2个按钮,一个显示“闪烁”;一个显示“停止”。只要用户单击“闪烁”按钮,文字“欢迎光临”就会以0.5秒消失、0.5秒显示反复进行闪烁;单击“停止”按钮时,闪烁停止,恢复图示的初态。
在开发过程中,需要设置的属性如表4.1所示。
{{B}}
表4.1 属性设置{{/B}}
|
对象 |
对象名 |
属性名 |
属性值 |
|
窗体 |
Frml |
Caption |
闪烁显示演示 |
|
标签 |
Label |
Caption |
欢迎光临 |
|
命令按钮 |
CmdF |
Caption |
闪烁 |
|
命令按钮 |
CmdT |
Caption |
停止 |
|
定时器 |
Timerl |
{{U}}(1) {{/U}} |
false |
|
|
|
Interval |
{{U}}(2)
{{/U}} |
在开发过程中,需要编写的程序代码如下:
【程序代码7】
Ptivate Sub CmdF_Click()
Timerl Enabled
= {{U}} (3) {{/U}}
Label Visible =
False
End Sub
Ptivate Sub Timet1_Timer()
Label Visible = not
{{U}} (4) {{/U}}
End Sub
Ptivate Sub CmdT_Click()
Timerl Ensbled
= {{U}} (5) {{/U}}
Label Visible = true
End Sub