四、简单的文本框TEXTBOX -电脑资料

文本框控件（TextBox)是VB中最常用的控件，

四、简单的文本框T

EXTBOX

。它是显示和输入文本的容器，相当于一个文字编辑器，提供了所有基本的文字处理功能，例如文本的编辑等。在下面这个小程序中，我们能看到文本框控件（TextBox)的最基本的属性。

为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

Option Explicit '-------------------------------------- ' TextBox的常用属性的例子 '-------------------------------------- ' 洪恩在线 求知无限 '-------------------------------------- '------名称-------------作用------------ ' CmdClear 清除文本框内容按钮 ' TextAll 文本框 ' CmdOK 给窗体FormBack的TextAll文本框赋值 ' FormTextBox 主窗体 '-------------------------------------- '-------------------------------------- '————文本框名称————属性设置——— ' ' TextPassWord PassWordChar为 * ' TextResume Multiline为Ture, ScrollBars为2 -Vertical ' TextAll Multiline为Ture, ScrollBars为2 -Vertical ' Appearance为0 - Flat '-------------------------------------- Private Sub CmdClear_Click() '清除所有文本框中的内容 TextID.Text = "" TextPassWord.Text = "" TextName.Text = "" TextMail.Text = "" TextResume.Text = "" End Sub Private Sub CmdOK_Click() '把FormTextBox文本框的Text及标签的Caption赋给 '窗体FormBack中TextAll文本框的Text属性 FormBack.TextAll.Text = LblID.Caption & " " & TextID.Text _ & vbNewLine & _ LblPassWord.Caption & " " & TextPassWord.Text _ & vbNewLine & _ LblName.Caption & " " & TextName.Text _ & vbNewLine & _ LblMail.Caption & " " & TextMail.Text _ & vbNewLine & _ LblResume.Caption & " " _ & vbNewLine & TextResume.Text '其中vbNewline是使TextAll.Text换行显示 Load FormBack '载入窗体Formback FormBack.Show '显示窗体Formback FormTxtBox.Visible = False '设置窗体FormtextBox不可见 End Sub

(源程序下载)

这个例子的两个窗体界面如下：

主窗体（FormTxtBox）

窗体（FormBack）

我们首先新建一个标准的EXE工程，

电脑资料

《四、简单的文本框TEXTBOX》()。添加两个窗体，并把TextBox、Button、Label控件放置在窗体上。各文本框的名称如下表：

文本框名称

名称属性

文本框名称

名称属性

会员编号文本框

TextID

电子邮件文本框

TextMail

密码文本框

TextPassWord

个人介绍文本框

TextResume

姓名文本框

TextName

会员信息文本框

TextAll

在属性窗口中将TextPassWord的PassWordChar属性设为*；TextResume的Multiline属性设为Ture,ScrollBars属性设为2 -Vertical；TextAll文本框的Multiline属性设为为Ture, ScrollBars属性设为2 -Vertical，Appearance属性设为为0 - Flat。

下一步我们为FormTxtBox窗体中“确定”(CmdOK)和“清除”(CmdClear)按钮的Click事件中添加相应的程序。

其中：

TextID.Text = "" 是把会员编号文本框中的内容清空，其它语句与此类似。

FormBack.TextAll.Text = LblID.Caption & " " & TextID.Text _ & vbNewLine &

该语句设置FormBack窗体中TextAll文本框的文本。vbNewLine是换行显示标志。“ _”是续行标志，当语句一行写不下时使用此标志，但要注意：前面要加空格。

代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。