设计一个如图89—1所示的表单,具体描述如下: (1)表单名和文件名均为“timer”,表单标题为“时钟”,表单运行时自动显示系统的当前时间。 (2)显示时问的为标签控件Label1(要求在表单中居中,标签文本对齐方式为居中)。

admin2010-08-26  33

问题 设计一个如图89—1所示的表单,具体描述如下:

     (1)表单名和文件名均为“timer”,表单标题为“时钟”,表单运行时自动显示系统的当前时间。
     (2)显示时问的为标签控件Label1(要求在表单中居中,标签文本对齐方式为居中)。
     (3)单击“暂停”命令按钮(Command1)时,时钟停止。
     (4)单击“继续”命令按钮(Command2)时,时钟继续显示系统的当前时间。
     (5)单击“退出”命令按钮(command3)时,关闭表单。
     提示:使用计时器控件,将该控件的Interval属性没置为“500”,即每500毫秒触发一次计时器控件的Timer事件(显示一次系统时间);将该控件的Interval属性没置为“0”将停止触发Timer事件。在设计表单时将Timer控件的Interval属性设置为“500”。

选项

答案(1)在命令窗口中输入命令: Crea Form Timer (2)在表单中添加一个标签控件Label1、3个命令按钮控件eommand1、command2、command3,一个时钟控件timer。 (3)在表单属性窗口中将form1的Caption属性值修改为“时钟”,Name属性值修改为“timer”,Label1的Alignment属性值修改为2,选择【格式】→【对齐】→【水平居中】,将Label1设置为水平居中。在表单属性窗口中将command1、command2、command3的Caption属性值改为“暂停”“继续”“退出”。 (4)双击“暂停”命令按钮,在Click事件中输入代码: ThisForm.Timer1.Interval=0 双击“继续”命令按钮,在Click事件中输入代码: ThisForm.Timer1.Interval=500 双击“退出”命令按钮,在Click事件中输入代码: ThisForm.Release 双击“计时器”命令按钮,在Click事件中输入代码: ThisForm.Label1.Caption=time()

解析
转载请注明原文地址:https://jikaoti.com/ti/EAe0FFFM
0

最新回复(0)