2.7.1  MultiLine属性

MultiLine 属性用于设置 TextBox 控件能否输入和显示多行文本，它的语法结构如下所示：

object. MultiLine [= boolean]

其中MultiLine 属性的设置及其说明如下：

n         True       ：允许输入和显示多行文本；

n         False：所有的文本都限制在一行之内。

       将TextBox控件的MultiLine 属性设置为True，就可以在控件中输入和显示多行文本，如果同时设置了控件的ScrollBars 属性，那么就可以在TextBox控件上定制垂直和水平的滚动条。

下面就是一个利用MultiLine 属性的设置来实现在TextBox控件中输入竖行文本的示例，实现此功能的具体步骤如下：

1．开始工作

首先启动一个新的项目，在屏幕上就会出现一个空白的窗体，向窗体上添加一个TextBox控件，其中控件的属性设置如表2-17所示。

表2-17  控件的属性设置

这样设置的控件具有如下所示的特性：

n         在程序的运行过程中可以编辑控件中的文本；

n         在控件中可以输入多行文本；

n         当文本长度或宽度大于控件的相应宽度和高度后，就会显示水平或垂直的滚动条；

n         字体设置为@宋体。

2．字体的设置

在实现竖行文本的显示过程中，字体的设置是一个相当重要的过程，在控件的属性设置对话框中单击Font属性设置框右侧的 按钮，就会弹出如图2-46所示的字体设置对话框。

图2-46  字体设置对话框

在字体设置的对话框中，如下设置字体：

n         字体选项框中选择@宋体；

n         在“字体样式”输入框中选择Bold；

n         在“大小”输入框中选择“小三”；

n         在“语系”选择框中选择CHINESE_GB2312。

3．运行程序

存储文件，运行程序，程序的运行结果如图2-47所示。

在窗体的文本框中按如下的方法输入文字：输入“出报”，按Enter键，输入“付回”，按Enter键，输入“份份”，按Enter键，输入“一一”，按Enter键。

图2-47  程序的运行结果

2.7.2  SelStart属性

SelStart属性用于设置所选择的文本的起始点。

       它的语法结构如下所示：

object.SelStart [= index]

下面就是一个利用       SelStart属性来实现字符串查找功能的示例程序，实现此功能的具体步骤如下：

1．开始工作

首先启动一个新的项目，向空白的窗体上添加一个TextBox控件和一个CommandButton控件，其中TextBox控件的作用是为字符串的查找提供一个容器，而CommandButton控件的作用是为字符串的查找提供一个控制。

两个控件的属性设置如表2-18所示。

表2-18  控件的属性设置

添加控件后的窗体如图2-48所示。

图2-48  添加控件后的窗体

2．添加代码

在程序的设计阶段，双击窗体中的CommandButton控件，在弹出的对话框中找到控件的Command1_Click()事件，并且在其中添加下列代码：

Private Sub Command1_Click()

Dim find As String

Dim address As String

    ' 声明两个字符串变量

    find = InputBox("请输入一个字符串：")

    '从用户的输入中得到查找的字符串

    address = InStr(Text1.Text, find)

    ' 在文本中查找字符串

    If address Then

        '找到了字符串

        Text1.SelStart = address - 1

        ' 设置选定的起始位置

        Text1.SelLength = Len(find)

        '设置字符串长度

    Else

        MsgBox "没有找到字符串"

        '没有找到

    End If

End Sub

程序说明：

在程序运行的过程中，单击CommandButton控件，就会激活控件的Command1_Click()事件，程序首先定义了两个字符串变量，用于存储用户输入要查找的字符串；

然后程序通过语句address = InStr(Text1.Text, find)来实现字符串的查找操作，如果在给定的字符串中能够找到Find字符串，那么字符串address就非空。

3．运行程序

存储文件，按键盘上的功能键F5，运行程序，在运行的窗体上单击“查找”按钮，就会弹出如图2-49所示的对话框。

图2-49  弹出对话框

在弹出的对话框中可以输入要查找的字符串，如在本示例中输入“三”，单击OK按钮，由于在文本框中有“三”这个字符串，所以程序运行的结果如图2-50所示。

图2-50  程序的运行结果

2.8  小  结

在本章中，主要介绍Visual Basic中常见的控件和它们的使用方法。

通过本章的学习，用户应该可以明确的掌握各个控件的功能和作用，特别是各个控件的属性值，读者要熟练的应用。当然，读者在学习使用属性对控件进行设置外，还学习了如何利用程序中的代码动态控制控件，这在某些应用程序中是非常有用的。

最后笔者要说的是，利用Visual Basic提供的控件进行程序界面设计，不仅仅是简单的编程问题，还是个人欣赏观念和修养的问题，这个能力可以在以后的编程学习中体会到。在后面的各章中，您就可以慢慢理解和掌握了。