vb的属性、方法和事件(二)

vb的属性、方法和事件（二）

发布时间：2007-05-05 来源：作者：

单击按钮执行操作

使用户与应用程序交互的最简便的方法是给用户提供一个按钮。可以用Visual Basic 提供的CommandButton 控件，或利用包含图形的Image 控件，如一个图标，来创建自己的“按钮”。

使用CommandButton

大多数Visual Basic 应用程序都有CommandButton，使用户通过简单的敲击按钮来执行操作。当用户选中按钮时，不仅会执行相应操作，还会使该按钮看上去象被按下并释放一样。无论何时，只要用户单击按钮，就会调用Click 事件过程。将代码写入Click 事件过程，执行想要执行的动作。

在程序执行时，有多种方法可以选中CommandButton ：

用鼠标单击按钮。

按TAB 键把焦点移到相应按钮上，然后按SPACE 键或ENTER 键选中该按钮。参阅本章后面的“焦点概述”。

按CommandButton 的快捷键（ALT +下划线的字符）。

在代码中设CommandButton 的Value 属性为True。cmdClose.Value = True

在代码中调用CommandButton 的Click 事件。cmdClose_Click

如果该CommandButton 是窗体的缺省命令按钮，既使将焦点移到其它不是CommandButton 的控件上，按下回车键也会选中该按钮。在设计时，通过设置某按钮的Default 属性为True ，指定它为窗体的缺省CommandButton 。

如果该CommandButton 是窗体的缺省的取消按钮，即使把焦点移到其它控件上，也能通过按ESC 键选中该按钮。在设计时，通过设置某按钮的Cancel 属性为True，指定它为窗体的缺省的取消按钮。所有这些操作都使Visual Basic 调用Click 事件过程。

“测试按钮”应用程序

利用Caption 属性可以在按钮上显示文字，告诉用户该按钮的功能。在图 3.4 中，在控件示例应用程序的测试按钮范例中包含一个Caption 属性为"Change Signal" 的CommandButton（此例的工作为Controls.vbp 示例应用程序中的Buttons.frm）。

注意，S 是这个按钮的快捷键，用一条下划线表示。在Caption 属性的正文内插入一个(&) 符号，将使得此符号后面的字符成为该按钮的快捷键（例如，Change &Signal）。

用户单击CommandButton，将执行该CommandButton 的Click 事件过程中的代码。在这个范例中，每次单击按钮，将变换一个不同的交通灯图标。

详细信息关于CommandButton 的属性的详细信息，请参阅第七章“使用Visual Basic 的标准控件”。

用于显示和输入文本的控件

Label 和TextBox 控件是用于显示和输入文本的。让应用程序在窗体中显示文本时使用Label，允许用户输入文本时用TextBox。Labels 中的文本为只读文本，而TextBox 中的文本为可编辑文本。

可由用户编辑的文本，例如一个顺序条目TextBox

字段或一个密码框

只能显示的文本，例如在窗体中标识一个Label

字段或给用户显示指令

Labels 和TextBoxes 将在以下部分讨论：

用Label 显示文本（vbconUsingLabels）使用Label 控件的基本知识。

使用TextBox（vbconWorkingWithTextBox）使用TextBox 的基本知识。

用Label 显示文本

Label 控件显示的文本用户不能直接修改。如TextBox 和ScrollBar 这些没有自己的Caption 属性的控件，可以用Label 标识。在Label 中实际显示的文本是由Caption 属性控制的，该属性可以在设计时在“属性”窗口中设置或在运行时用代码赋值。

在缺省情况下，标题是Label 控件中唯一的可见部分。但是，如果把BorderStyle 属性设成1（可以在设计时进行），那么Label 就有了一个边框，看起来像一个TextBox。还可以通过设置Label 的BackColor、BackStyle、ForeColor 和Font 属性来，改变Label 的外观。

改变Label 尺寸以适应其内容

设计时可在“属性”窗口中指定单行Label 的标题。但是如果要输入一个较长的或在运行时可能变化的标题，该怎么办呢?Label 提供了两种属性：AutoSize 和WordWrap，用于帮助您改变控件尺寸以适合较长或较短的标题。

AutoSize 属性决定控件是否自动改变尺寸以适应其内容。如该属性设为True，Label 就会根据其内容进行水平方向变化，如图3.5 所示。

WordWrap 属性使Label 根据其内容进行垂直方向变化，而保持其宽度不变，如图3.6 所示。本例的工作版，请参阅应用程序示例Controls.vbp 中的WordWrap.frm。

注意如果在Controls.vbp 中运行AotoSize示例，就会发现为了同时使用WordWrap，必须两个复选框都选中。这是因为，要想使Label 的WordWrap 属性起作用，就必须设置AutoSize 为True。只有在一个单字的宽度超过控件的当前宽度时，Label 的宽度才会增加。详细信息关于Label 控件属性的详细信息，请参阅第七章“使用VisualBasic 的标准控件”。

使用Text Boxes

TextBox 是一种通用控件，可以由用户输入文本或显示文本。除非把TextBox 的Locked 属性设为True，否则不能用TextBox 显示不希望用户更改的文本。

TextBox 中显示的实际文本是受Text 属性控制的。Text 属性可以用三种方式设置：设计时

在“属性”窗口进行、运行时通过代码置或在运行时由用户输入。通过读Text 属性能在运行时检索TextBox 的当前内容。

多行Text Box 和Word Wrap

TextBox 在缺省情况下只显示单行文本，且不显示ScrollBar。如果文本长度超过可用空间，则只能显示部分文本。通过设置MultiLine 和ScrollBars两种属性（只能在设计程序时设置），可以改变TextBox 的外观和行为。

注意不要把ScrollBars 属性与ScrollBar 控件混淆，ScrollBar 控件并不属于TextBox，它具有自己的属性集。

把MultiLine属性设为True，可以使TextBox 在运行时接受或显示多行文本。只要没有水平方向ScrollBar，多行TextBox 中的文本会自动按字换行。ScrollBars 属性的缺省值被设置为0（None）。自动按字换行省去用户在行尾插入换行符的麻烦。当一行文本已超过所能显示的长度时，TextBox自动将文本折回到下一行显示。

在设计时，不能在“属性”窗口输入换行符。在过程中，可以通过插入一个回车加上换行符（ANSI 字符13 和0）来产生一个行断点。也可以用常量vbCrLf 插入一个回车与换行符组合。例如，下面的事件过程是在加载窗体时，把两行文本放入一个多行TextBox (Text1) 中的示例。

Sub Form_Load ()

Text1.Text = "Here are two lines" _

& vbCrLf & "in a text box"

End Sub

使用TextBox 中的文本

利用TextBox 的SelStart、SelLength 和SelText 属性，可以控制TextBox的插入点和选择行为。这些属性仅能在运行时使用。

当一个TextBox 首次得到焦点时，TextBox 缺省的插入点和光标位置在文本的最左边。用户可以用键盘和鼠标移动它们。当TextBox 失去焦点而后再得到时，插入点位置与用户最后设置的位置一样。

在有些情况下，它可能与用户设置不一致。如：在字处理应用程序中，用户会希望新字符出现在已有文本后面；在数据项应用程序中，用户会希望他的输入替换原有条目。使用SelStart 和SelLength 属性，用户可以根据需要改变TextBox 的行为。

SelStart 属性是一个数字，指示文本串内的插入点，其中0 表示最左边的位置。如果SelStart 属性值大于或等于文本中的字符数，那么插入点将被放在最后一个字符之后，如图 3.7 所示。该例子的工作版，请参阅应用程序示例Controls.vbp 中的Text.frm。SelLength 属性是一个设置插入点宽度的数值。把SelLength设为大于0 的值，会选中并突出显示从当前插入点开始的SelLength个字符。图3.8 显示选择的性能。

如果有一段文本被选中，此时用户键入的文字将替换被选中的文本。有些情况下，也可以用粘贴命令用新文本替换原有的文本。SelText 属性是一串文本，可以在运行时给它赋值以替换当前选中的文本。如果没有选中的文本，SelText 将在当前插入点插入文本。

详细信息关于TextBox 控件的属性的详细信息，请参阅第七章“使用Visual Basic 的标准控件”。

详细信息关于TextBox 控件的属性的详细信息，请参阅第七章“使用Visual Basic 的标准控件”。