第6章 全部教案.docx

第6章 全部教案.docx

《第6章 全部教案.docx》由会员分享，可在线阅读，更多相关《第6章 全部教案.docx（44页珍藏版）》请在冰豆网上搜索。

第6章全部教案

这一章我们将来学习这一内容。

今天我们先来学习第一文本控件――标签。

一、复习控件基本知识

（1）控件概述

1、控件：

是建立VB应用程序的基本元素。

可视化程序设计就是通过控件实现的。

2、VB的控件分类：

分为三大类：

内部固有控件、ActiveX控件、可插入的对象。

用户可以通过“工具箱”获取各种内部控件。

内部控件是包含在VisualBasic系统内，可以直接使用的控件；因此具有相对较好的运行性能。

3、常用的内部控件有：

命令按钮、文本框、标签、框架、列表框、组合框、复选框、选项按钮、图片框、定时器、数据控件等。

（2）控件的常用属性

1、属性的设置方法：

有两种方法：

一种是通过属性窗口来直接设置，另一种是在代码中设置。

即：

对象名称．属性名称=设置值

例如：

Command1．Caption=“确定”

用代码设置的方法常用于动态地修改控件的有关属性。

2、控件的常用属性

Caption属性：

也称标题属性，用于设置在控件上显示的文本内容。

Name属性：

对象在创建时所取的名字。

编代码引用该对象时使用，这个名字不会出现在窗体上，且每个对象都有。

Enabled属性：

决定了对象在运行时是否允许用户操作。

Font属性：

用于设置字符的格式，如字体、字号、字形等。

Height、Width、Top、Left属性：

决定控件的大小、位置。

ForeColor、BackColor：

分别设置对象的背景色、前景色。

（3）控件的格式化

1、控件的添加/删除：

两种方法：

单击拖动、双击再移动。

2、控件的大小与位置：

控件的位置调整有两种方法：

一是用鼠标拖动对象，二是使用Ctrl+方向键。

3、窗体与控件的布局调整：

两种方法：

一是通过“格式”菜单，二是通过“窗体编辑器”。

二、常用控件1――标签（Label）

标签（Label）主要用于显示文本信息，但不能作为输入信息的界面。

也可以说主要用来显示比较固定的提示性信息。

标签的默认名称（Name）和标题（Caption）为Labelx（x为1、2、3…）。

它所显示的内容只能用Caption属性进行设置和修改，不能直接编辑。

标签控件常用来标注本身不具有Caption属性的控件，如为文本框、列表框和组合框等控件附加描述信息。

（1）常用属性

标签的部分属性与窗体及其他控件相同，包括FontBold、FontItalic、FontName、FontSize、FontUnderline、Height、left、Name、Top、Visual、Width。

其它属性为：

1、Alignment属性：

用来确定标签中标题的对齐方式，可以设置为0、1和2；标题靠左（默认）、靠右、居中显示。

2、AutoSize属性：

用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。

3、Caption属性：

用来在标签中显示文本。

可以在Caption属性中为控件指定一个访问键

例如：

Command1.Caption=“结束（&E）”

运行时只要用户同时按下Alt键和E键，就能执行该按钮命令

4、BorderStyle属性：

设置标签的边框。

可取0和1；无框和有框。

5、Enabled属性：

返回或设置一个值，用来确定一个窗体或控件是否对用户产生的事件作出响应。

6、Backstyle属性：

用来设置标签是否覆盖背景。

设置值为0和1。

（0：

透明，1：

不透明）。

7、WordWrap属性：

该属性设置是否扩大以显示标题文字。

（2）事件

Label的常用事件有：

Click、DblClick等。

如：

PrivateSubLabel1_Click（）‘单击标签能改移动标签位置并改变其大小

Label1.MoveLeft+150,Top+200,Width+200,Height+200

EndSub

只不过标签的主要作用用于显示文本信息，所以对于我们初学者而言，标签的很多事件都没有实际意义，在这我们就不再说明。

若同学们有兴趣可以去查一查。

此外，标签主要用于显示一段文字，可以通过Caption属性定义，不需要使用其它方法了。

（四）新课小结

文本框（TextBox）是一个文本编辑区域，在设计阶段或运行期间可以在该区域中输入、编辑和显示文本内容。

类似于一个简单的文本编辑器。

1、属性

文本框的基本属性主要有：

Height、Width、Top、Left、Enabled、Visible、FontName、FontSize等。

（1）Text属性

Text属性用于显示文本框中的信息。

（2）Maxlength属性

Maxlength属性用于设置文本中输入字符的长度。

“0”属性值表示不限制用户输入字符的长度。

注意：

VB中所有的字符、汉字的长度均为“1”。

（3）Multiline属性

Multiline属性用于设置TextBox中的文本能否换行。

（4）Scrollbars属性

Scrollbars属性用于设置TextBox是否具有滚动条，并设置滚动条的样式。

0：

None，无

1：

Horizontal，加水平滚动条

2：

Vertical，加垂直滚动条

3：

Both，同时加水平、垂直滚动条

（5）Locked属性

Locked属性用于设置文本框是否可编辑（常在程序中使用）。

（6）PassWord属性

PassWord属性用于设置用何种显示字符掩饰用户输入的字符（常用于密码口令的输入）。

（7）SelStart属性

SelStart属性用于设置在TextBox中正文的起始位置。

（第一个字符的位置为0）

（8）SelLength属性

SelLength属性用于设置TextBox中正文的长度。

（9）SelText属性

SelText属性用于设置TextBox中正文的内容。

这几个属性一般用在文本编辑中设置插入点及范围、选定字符串、清除文本等。

2、事件：

Change、GotFocous、LostFocus等

（1）Change事件

在文本中输入新信息时，或在程序中将Text属性设置为新值时，每当用户键入一个字符，都会引发一次该事件。

（2）GotFocous事件：

当文本框具有输入焦点（即活动状态）时，键盘上输入的每个字符都将在文本框中显示出来。

只有当一个文本框被激活并且可见性为True时才收到焦点。

（3）Lostfocus事件

当用户使用键或用鼠标单击窗体上其他对象而使该文本失去焦点时，触发该事件。

注意：

Focus英文为“焦点”、“聚焦”之意，最直观的例子是，比如有两个窗体，互相有一部分遮盖，当你点下面的窗体时，它就会全部显示出来，这时它处在被激活的状态，并且标题条变成蓝色，这就是GotFocus事件，而相反，另外一个窗体被遮盖，并且标题条变灰，称为LostFocus事件。

上面所说的“光标”并非指鼠标指针。

3、方法

SetFocus方法：

用于将光标自动移到指定的文本框中（该方法主要用于程序中）。

其形式如下：

[对象.]SetFocus

如，程序代码：

Text5.SetFocus

当VB执行了上述程序代码后，就会将光标移到Text5上。

下面我们用几个例子来说明：

例1：

在窗体上已经建立了两个文本框Text1和Text2，并编写如下三个事件过程：

PrivateSubForm_Click（）

Text2.Text="P"

Text1.Text="P"+Text1.Text

EndSub

PrivateSubText1_Change（）´内容发生改变

Text2.Text=Text2.Text+"N"+Text1.Text

EndSub

PrivateSubForm_Load（）

Text2.Text="M"

Text1.Text="M"

EndSub

运行程序后单击窗体，则在文本框Text2中显示的内容是（D）

A.PNMB.NPMC.PNPD.PNPM、

例2：

简单的算术器。

本任务是设计一个简单的计算器，用文本框接受用户从键盘输入的数据，用命令按钮表示加、减、乘、除、整除、求余这些简单的运算功能。

“＝”符号用标签实现。

　界面如下图：

　　任务设计

１、在窗体上建立三个文本框，分别用于存放两个操作数和计算的结果。

　　２、在窗体上建立六个命令按钮，分别表示符号。

　　3、在窗体上建立一个标签，表示“＝”符号。

程序如下：

PrivateSubCommand1_Click（）

Text3.Text=Val（Text1.Text）+Val（Text2.Text）

EndSub

PrivateSubCommand2_Click（）

Text3.Text=Text1.Text-Text2.Text

EndSub

PrivateSubCommand3_Click（）

Text3.Text=Text1.Text*Text2.Text

EndSub

PrivateSubCommand4_Click（）

Text3.Text=Text1.Text/Text2.Text

EndSub

PrivateSubCommand5_Click（）

Text3.Text=Text1.TextModText2.Text

EndSub

[例3]：

在窗体上建立两个文本框，编写代码使得文本框1获得焦点时（按Tab键或用鼠标点击），文本呈全部选中状态；当第一个文本框内容改变时，第二个文本框内的文本和第一个文本框同步变化。

运行界面如下图所示：

提示：

1．在窗体上建立控件对象并进行初始属性设置。

提示：

文本框1的Text属性设为任意文本，TabIndex属性设为1；文本框2的Text属性设为空白，TabIndex属性设为0。

2．设计和编写事件过程代码，并调试运行。

参考代码如下：

PrivateSubText1_Change（）

Text2.Text=Text1.Text'当文本框1中内容发生变化时，文本框2将同步变化

EndSub

PrivateSubText1_GotFocus（）'

Text1.SelStart=0'从起始点开始选定

Text1.SelLength=Len（Text1.Text）'选定文本的长度是Text1中全部文本

EndSub

5、若要求文本框中的文本内容在输入完成后，不能再被编辑，应该怎么设置?

6、用户只要向文本框中输入信息，就会触发什么事件？

接下来，我们将来学习另一种控件――图形控件。

（三）新课讲授

VisualBasic中与图形有关的标准控件有4种，即图片框、图像框、直线和形状。

在这一节中，将只介绍前面两种控件的用法。

图片框（PictureBox）和图像框（Image）是VisualBasic用来显示图形的两种基本控件，用于在窗体的指定位置显示图形信息。

其默认名称分别为PictureX和ImageX（X为1，2，3…）。

一、属性

（1）CurrentX和CurrentY属性

该属性用来设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。

这两个属性只能在运行期间使用，格式如下：

[对象.]CurrentX[=X]

[对象.]CurrentY[=Y]

其中，“对象”可以是窗体、图片框和打印机，X和Y表示横坐标和纵坐标值，默认时以twip为单位。

如果省略“=X”或“=Y”，则显示当前的坐标值。

如果省略“对象”，则指的是当前窗体。

【例1】坐