《Visual Basic程序设计（第二版）-电子教案-柳青 第3章 标准控件的使用》由会员分享，可在线阅读，更多相关《Visual Basic程序设计（第二版）-电子教案-柳青 第3章 标准控件的使用（95页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic程序设计（第二版）,主编 柳青 严健武 中国水利水电出版社,第3章 标准控件的使用,控件是程序运行界面的基本构成元素，也是用户与程序交互的桥梁。VB6.0开发环境中的“工具箱”提供了20个标准的控件。使用Windows控件编程前，必须先熟悉以下操作，快速掌握控件编程的特点和方法： 如何将控件添加到窗体上，如何调整控件的位置和大小？ 如何编写事件过程，即代码写在什么位置？ 标准控件通用属性的含义和使用方法。 常用控件的基本属性、方法和事件。 通过本章的学习，主要从常用属性、常用事件和常用方法三方面掌握常用控件的使用方法。,3.1 控件的添加与调整,如前所述，有两种方法添加
2、控件到窗体：双击控件，控件将自动添加到当前窗体；在“工具箱”中选中控件，然后在窗体中拖到合适大小。 放置在窗体上的控件，有时需要统一调整尺寸，以便显示整齐和美观。如何同时选择多个控件，统一设置格式或属性？如图3-1所示，如果要设置三个按钮的宽度和高度相同，可以使用鼠标拖动选择；也可以选中第一个控件后，按住CTRL键，再选择其他控件，在控件周围会有8个点，显示被选中的结果，周围深色8个点的控件为基准控件，当调整尺寸时，将以基准控件为参照控件统一调整。,图3-1 选择多个控件,选择需要调整的控件后，可以通过“格式”菜单使控件左右对齐，或设置宽度、高度相同。在菜单栏上分别选择“格式对齐左对齐”选项、
3、“格式统一尺寸两者都相同”选项、“格式垂直距离相同间距”选项，操作效果如图3-3所示。,图3-2 格式设置菜单,图3-3 调整后的控件,3.2 控件的通用属性简介,很多控件都具有想同的属性，为便于学习，将常用的、通用的属性做统一的介绍。 3.2.1 外观属性 1Appearance 属性：设置控件的外观是平面样式还是3D样式。 2BorderStyle属性：控件是否具有边框。 3Caption属性：控件表面的文本。 4ForeColor属性：控件的前景色，即文本颜色 5BackColor属性：控件的背景色。 以Label控件为例，外观属性设置效果如图3-4所示。,图3-4 Label控件的外观
4、属性设置效果,颜色的设置可以使用诸如vbRed、vbBlack等符号常数，系统定义的颜色符号常数可以从枚举数据类型ColorConstants中查看，如图3-5 所示。 此外，也可以在属性窗口中选择颜色对话框进行设置；或者使用RGB函数取得任意颜色值。 RGB函数使用语法：RGB(red, green, blue) 函数的三个参数代表含义： Red： 数值范围从 0 到 255，表示颜色的红色成份。 Green： 数值范围从 0 到 255，表示颜色的绿色成份。 Blue： 数值范围从 0 到 255，表示颜色的兰色成份。,图3-5 颜色常量,3.2.2 位置属性 1Left属性：控件距离其所
5、在的容器控件(如窗体)的左边距离。 2Top属性：控件距离其所在的容器控件的顶端距离。 Left和Top属性可以确定控件在容器控件中的位置。 3Width属性：控件的宽度。 4Height属性：控件的高度。 Width和Height属性确定了控件的尺寸。 位置属性的含义如图3-6所示。 对于窗体Form和图片控件Picture来说，还有两个特殊的宽度高度属性： ScaleWidth属性：内部宽度，不计边框的宽度。 ScaleHeight属性：内部高度, 不计边框的厚度。,这两个属性的含义如图3-7所示。当窗体控件跟随窗体大小发生变 时，这两个属性自动调整控件在窗体的位置和尺寸非常有用。,图3-
6、6 位置属性,图3-7 内部宽度和内部高度属性,例如，使文本框在窗体大小发生变化时填满整个窗体，可以在窗体的事件中编写以下代码实现： Private Sub Form_Resize() Text1.Left = 0 Text1.Top = 0 Text1.Width = Me.ScaleWidth Text1.Height = Me.ScaleHeight End Sub 动态设置属性的效果如图3-8所示。,3.2.3 行为属性 1Enabled 属性：控件是否可用 2Visible 属性：控件是否可见 图3-9是命令按钮的Enabled属性示例。,图3-9 按钮的Enabled属性示例,3.
7、2.4 字体属性 1Font属性：设置控件文本的字体、字形和字号等样式。 Font属性可以通过属性窗口的Font对话框设置，也可以在运行的通过代码动态设置。 例如，以下代码可以动态设置的Font子属性如图3-10所示。,图3-10 Font的子属性,其中: （1）Bold：是否粗体 （2）Italic：是否斜体 （3）Size ：字体大小 （4）UnderLine：是否加下划线 （5）Name：字体名称 2Fonts属性：代表系统已经安装的字体，可以通过循环列出已经安装的所有字体。 以下代码在窗体的ListBox控件中列出所有安装的字体。 Private Sub Form_Click () D
8、im I For I = 0 To Printer.FontCount -1 确定字体数. List1.AddItem Printer.Fonts (I) 把每一种字体放进列表框. Next End Sub,3.3 控件使用,3.3.1 标签控件 Label 标签控件通常用作其他控件的说明，但标签控件本身没有文本输入的功能。标签的标题属性可以提供说明性的文本，这些文本在运行期间不可修改。 1. 主要属性：除通用属性外，常用属性见表3-1。 表3-1 标签控件的常用属性,2. 主要事件 （1）Click事件：鼠标单击Label时发生的事件。 （2）DblClick事件：鼠标双击Label时发生的
9、事件。 例3-1 使用Label控件显示当前日期时间。 分析 要在Label控件显示文本内容，只需要设置其Caption属性；当前时间可以使用VB的系统函数Now来实现。 为了动态显示时间，需要借助定时器控件Timer。Timer控件使用非常简单，其Interval属性表示每隔多少毫米的时间周期定时触发Timer事件一次，当Interval属性大于0，且Enabled属性为True时，定时器开始工作；当Interval等于0时，或Enabled属性为false时，停止工作。 建立工程 新建工程，按默认名称保存工程为“工程1”，窗体名称保存为Form1。 在窗体上添加两个按钮，分别为Comman
10、d1和Command2，以控制定时器的启动和停止；添加一个Timer控件和一个标签控件Label，以在一定时间周期内动态显示当前时间。控件布局和属性设置如图3-11所示。,图3-11 例3-1的界面布局,程序代码 1 Private Sub Form_Load() 2 Timer1.Interval = 1000 3 Timer1.Enabled = False 4 End Sub 5 6 Private Sub Command1_Click() 7 Timer1.Enabled = True 8 End Sub 9 10 Private Sub Command2_Click() 11 Tim
11、er1.Enabled = False 12 End Sub 13 14 Private Sub Timer1_Timer() 15 Label1.Caption = Now 16 End Sub 代码说明 行2，3：设置Timer控件的时间间隔，单位为毫秒（1秒=1000毫秒），并初始化其不可用。 行7：启动定时器，这样，每隔1秒，将触发Timer事件一次 行11：停止定时器 行15：取得当前的时间，显示在Label控件中,运行结果 单击“开始显示时间”按钮，出现图3-12所示效果。,图3-12 运行结果,3.3.2 命令按钮控件 Command 命令按钮控件用来在窗体内添加命令按钮，通常通
12、过鼠标单击按钮实现一个命令的启动、中断或结束，用鼠标单击命令按钮时，看起来像有一个被按下的动作。命令按钮控件是VB最常用的控件之一。 1. 主要属性 除了通用属性外，常用属性建表3-2。,表3-2 命令按钮的常用属性,使用Pictrue、Style、MaskColor和UseMaskColor四个属性，可以设置按钮的背景图。图3-13和图3-14是图片按钮的实现 图3-14左边按钮设置UseMaskColor为false；右边按钮设置MaskColor颜色为红色，并设置UseMaskColor为True后的效果。,图3-13 按钮图片,图3-14 图形按钮,2. 主要事件 （1）Click事件
13、：单击鼠标左键。命令按钮一般用来响应用户的单击操作，主要关心Click事件。 （2）GotFocus事件：获得焦点。 （3）LostFocus事件：失去焦点。 3. 主要方法 SetFocus方法：设置焦点 例3-2 设计如图3-15所示的窗体界面，该窗体包含四个命令按钮。运行时，“控件演示”按钮被隐藏；单击“显示”按钮，“控件演示”按钮显示出来。运行界面如图3-16所示。,图3-15 设计窗体界面,图3-16 运行界面,属性设置 见表3-3。 表3-3 对象属性设置,程序代码 Private Sub Command1_Click() 单击“显示”按钮 Command4.Visible = T
14、rue “控件演示”显示 Command2.Enabled = True “隐藏”按钮可用 Command1.Enabled = False “显示”按钮不可用 End Sub Private Sub Command2_Click() 单击“隐藏”按钮 Command4.Visible = False “控件演示” 隐藏 Command2.Enabled = False “隐藏”按钮不可用 Command1.Enabled = True “显示”按钮可用 End Sub Private Sub Command3_Click() 单击“结束”按钮 Unload Me 卸载当前窗体 End 结束程
15、序运行 End Sub Private Sub Form_Load() 初始化控件 Command4.Visible = False Command2.Enabled = False End Sub 提示：本例涉及命令按纽三个属性Enabled、Visible、Caption的应用。通过设计时对属性赋值（ Command1. Caption设置为“显示”）和运行时对属性赋值（如Command2.Enabled = False），帮助读者熟 和理解前面所学的内容。,3.3.3 文本框控件 Text 文本框控件既可用来显示文本，也可以接受用户键盘数据的输入或修改。 主要属性：除通用属性外，常用属性
16、见表3-3。 表3-3 文本框控件的常用属性,图3-16 Text控件文本选择属性,其中：SelStart的值为0；SelLength的值为6；SelText的值为：本框中的文字 2主要事件：见表3-4。,表3-4 文本框的主要事件,3. 主要方法 SetFocus：让文本框取得输入焦点。 例3-4 设计一个用户界面，包含两个文本框和一个命令按钮。用鼠标选中上面文本框中的一段文本后，单击“确定”按钮，下面文本框中显示被选中的文本。 建立工程 （略） 属性设置 （略） 程序代码 Private Sub Command1_Click() 单击确定按钮, Text2.Text = Text1.SelText End Sub Private Sub Form_Load() Command1.Caption = “确定“ Text1.Text = “这是一个有关文本框的应用例子“
