面向对象程序设计实用教程--Visual Basic可视化编程 教学课件 作者 杨光宏 第2章.pptVIP

第二章 窗体与控件 本章学习目标 应知： 工程的概念 变量的作用及类型 流程控制 应会： 使用日期函数 使用Timer控件 定义变量 条件判断语句 项目1 制作显示时钟的程序 制作一个用以显示时间的程序，程序的运行效果如图所示 任务1 新建一个工程 运行VisualBasic 6.0，在弹出的“新建工程”对话框中选择“标准EXE” 更改工程的名称 任务2 设计程序界面 任务3 编写显示时间的代码 在命令按钮的Click事件过程中输入以下代码： Private Sub Command1_Click() Label1.Caption = Time End Sub 项目2 动态显示时间 能不能够让程序自动地更新标签上的时间呢？在这个项目里我们就是要做一个能够自动更新时间的程序，让程序看起来更像一个时钟。 任务1 使用Timer控件更新时间 Enabled属性：决定Timer事件是否发生。 Interval属性：决定了两次 Timer事件发生的时间 间隔。以毫秒为单位， 属性值在0到65535之间。 编写代码 双击Timer1控件，在“Timer1_Timer()”事件过程里输入下列代码：Private Sub Timer1_Timer() Label1.Caption = Time ‘用Time函数获取得当前的系统时间，End Sub 修改命令按钮Command1的Click事件过程的代码：Private Sub Command1_Click() Timer1.Enabled = True 设置Timer1的Enable属性为TrueEnd Sub 任务2 增加显示上下午的功能 在Timer事件过程中，添加下面一段代码： Dim lhour As Long ‘定义一个lhour变量，用来记录当前时间的小时数。lhour = Hour(Time) ’用Hour函数获得系统时间的小时数，并赋值给lhour变量。If lhour = 0 And lhour 12 Then 判断当前的小时数， ‘如果在0到12之间则是上午。  Label2.Caption = “上午” Else 如果不是上午说明现在是下午。 Label2.Caption = “下午” End If 2.3 程序中的知识点 变量 赋值语句：变量名 = 值 函数 判断语句 2.4 小结 本章学习了工程的概念，变量的相关概念。介绍了非常常用的Timer控件，并介绍了如何使用Timer控件，学习了一些相关的时间日期函数，最后学习判定结构。本章的内容虽然不是很多，但都是一些基础的、常用的、重要的内容，希望能好好地掌握。 2.5 思考与练习题 1．如何设置工程的属性？ 2．Timer控件有哪个事件？它有哪两个常用的属性？这两属性的作用是什么？ 3．变量的作用是什么？ 4．变量类型的含义？ 5．程序代码的逻辑结构有哪几种？ 6．编写一段代码，实现下述功能：定义一个整数类型的变量，用于记录一个人的考试成绩。并对这个成绩进行判断，如果大于等于60分，则在Label1上显示“恭喜你，你及格了！”；否则，则在Label1上显示“很遗憾，你不及格！”。 * * 面向对象程序设计实用教程 — Visual Basic 可视化编程 更改窗口的BorderStyle 添加Label1和Command控件 更改Font和ForeColor颜色 运行结果界面 *