教学案例3-2 标签控件及应用.docx

《教学案例3-2 标签控件及应用.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《VisualBasic程序设计》案例----利用标签控件,设计“显示信息窗口”界面任课教师：王贺艳任课班级：焊接1201-1202任课学期：2012/2013学年第二学期任务：利用标签控件,设计“显示信息窗口”界面课时：2课时教学目标知识目标：1．掌握程序设计的方法与步骤；2．熟悉标签控件的布局；3．掌握标签控件常用属性、事件及编写程序的方法等。4．标签控件常用属性：Caption、Alignment、BorderStyle、BackStyle、AutoSize、WordWrap属性。5．转换函数应用

2、：Asc()与Chr()、Fix()与Int()、LCase()与UCase()、Str()与Val()。6．命令按钮的Enabled属性、Visible属性。能力目标：通过学习掌握标签控件常用属性、事件及编写程序的方法等。情感目标：培养学生程序设计的兴趣。教学重点标签控件的常用属性；教学难点Int()取整函数的应用。教学过程一、任务引入我们在使用Windows应用过程中，经常在对话框中有一些提示信息，然后才可进行下一步操作，如何在窗口中显示一些提示信息，现在我们就来学习如何利用标签控件设计一“显示信息

3、窗口”界面。如下图所示。二、讲授内容按要求设计小程序并讲授相关知识：⑴窗口标题设为：信息显示窗口。⑵共有5个命令按钮：其Caption属性分别为：显示信息、退出、放假时间、开学时间、注意事项。⑶共有3个标签控件。⑷单击按钮，则窗体上左侧3个命令按钮可用。⑸单击按钮，则在其右侧显示相应信息。⑹命令按钮单击事件Command1_Click()。⑺命令按钮的Enabled属性、Visible属性。⑻标签的常用属性有：Caption、Alignment、BorderStyle、BackStyle、AutoSiz

4、e、WordWrap属性。⑼转换函数：Asc()与Chr()、Fix()与Int()、LCase()与UCase()、Str()与Val()。⑽生成可执行文件，名字为：xinxi.exe，保存在C盘中。1．根据任务要求，设计程序简单界面。2．设置对象属性设置窗口标题：Caption：信息显示窗口3．在窗体上设计一5个命令按钮、3个标签控件如下图所示。命令按钮的Caption属性分别设为：显示信息、退出、放假时间、开学时间、注意事项。4．命令按钮的Enabled属性、Visible属性Enabled属性：

5、决定控件是否可以使用。该属性有两个值：True表示可用，False表示不可用，此时控件上的字体是灰色。Visible属性：决定控件是否可见。该属性有两个值：True表示可见，False表示不可见，此时控件在窗体上是不可见的。5．标签的常用属性Caption属性：设置标签上显示的文本内容。Alignment属性：设置标签上文本的对齐方式。有3个值：0—左对齐1—右对齐2—居中对齐。BorderStyle属性：设置标签控件的边界模式。有2个值：0—无边界线1—有立体边框。BackStyle属性：设置标签控件

6、的背景模式。有2个值：0—透明1—不透明。AutoSize属性：设置标签控件的尺寸是否随标题内容的大小、多少自动调整。有2个值：True—自动调整False：不调整。WordWrap属性：设置标签控件上文本是否自动换行。有2个值：True—自动换行False：不换行。注意：只有WordWrap属性设为True并且AutoSize属性也设为True进，控件上的内容才自动换行。6．转换函数：Asc()与Chr()、Fix()与Int()、Lcase()与Ucase()、Str()与Val()⑴Asc()与C

7、hr()Asc()：将字符转换成ASCII值。Asc(“A”)=65Chr()：将ASCII值转换成对应的字符。Chr(97)=a⑵Fix()与Int()Fix()：去掉n的小数部分，截取整数。Fix(-4.5)=-4Int()：正数取得整数部分，负数取不大于n的最大整数。Int(-4.5)=-5⑶LCase()与UCase()LCase()：大写字母转换为小写字母。LCase(“ABC”)=abcUCase()：小写字母转换为大写字母。LCase(“xyz”)=XYZ⑷Str()与Val()Str()

8、：将数值转换为字符串。Str(12.34)=“12.34”Val()：将字符串转换为数值。Val(“12.6”)=12.67．对象事件教师在计算机上一边编写程序一边根据上面要完成的“任务”给学生讲授相关知识，引导学生思考问题。PrivateSubCommand1_Click()Command3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueEndSubPrivateSubComm