2017宁波版信息技术九年级系列课件 第四课 认识VB

加粗，72 设置字形、字号 1000 自动运行时间间 隔（单位毫秒）
试一试，改变Label1字体颜色
（4）对象事件过程的编程
如右图所示，双击窗体中的 Timer1,显示代码窗体，在Timer 事件中输入以下代码：
• Sub Timer1_Timer() • Label1.Caption = Time • End Sub
练习二
• • • • • • • • • • Private Sub Command1_Click() Dim str As String str = "计算机" Label1.Caption = str End Sub Private Sub Command2_Click() Dim str As String str = "computer" Label1.Caption = str End Sub
的“生成电子时钟.exe”,可以编译程序并产生可 执行文件。 试一试： 下载LCD Mono字体 （为节约时间，教师应事先准备 好，上课前发送到学生桌面）， 设置Label1对象的Font属性，运 行效果如右图
小结：
创建应用程序
新建工程 创建应用程序界面
设置属性值
对象事件过程的编程
保存文件
程序运行与调试
（5）保存文件
• 新建一文件夹保存该工程下所 有文件，窗体文件保存为“电 子时钟.frm”，工程保存为“电 子时钟.vbp”
请同学们先建一个文件夹，并命名为4位学号+名字
（6）程序运行与调试
从“运行”菜单中选择“启动”按钮 或按【F5】键运行程序，验证结果。单击“结束
”按钮
，可以中止程序，单击“文件”菜单中
第四课 认识VB
宁波版九年级信息技术（VB） (附P17练一练1、2两题及电子时钟的VB 源程序)
2017.5
学习目标
• • • • 认识VB界面 学会设置对象基本属性 学会打开与保存文件的方法 初步掌握VB程序调试方法
欣赏VB程序
打开运行
大家想知道这些 程序是怎么编出来的 吗？
这节课让我们每 个同学亲自来编一个 电子时钟。后面几个 将在接下来的几节课 上学习。
• Thank you!
电子时钟
• Private Sub Timer1_Timer() • Label1.Caption = Time • End Sub
练习一
• • • • • • • • • • Private Sub Command1_Click() Dim str As String str = "Hello,欢迎来到VB世界！" Label1.Caption = str End Sub Private Sub Command2_Click() Dim str As String str = "" Label1.Caption = str End Sub
1.认识VB界面
2.使用工具箱
显示各种控件的制 作工具,供用户在窗体 上设计
打开工具箱的方法：
1、单击“视图”菜 单的“工具箱”选项。 2、单击“工具栏” 上的工具箱图标
3.创建应用程序
新建工程 创建应用程序界面
设置属性值
对象事件过程的编程
保存文件
程序运行与调试
以电子时钟为例
（1）新建工程
标准EXE
默认工程名为“工程1”
（2）创建应用程序界面
在窗体上放置两个对 象： 标签控件“Label1”， （注意：为了让电子 时钟能完整的显示分、 秒，请将窗体及标签 控件拉宽些。） Time控件“Timer1”, 如右图
友情提示：暂停播放（最小化），教师演示前两步，学生上机模仿
（3）设置属性值
对象名 Form1 属性名 Caption Caption Label1 Font Timer1 Interval 属性值 属性说明 电子时钟 窗体标题文字 （空） 显示文字