洪恩在线 - 简单的文本框TEXTBOX的例子

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