文本框控件(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
(原程序下载)
http://hongen.com/pc/program/tutors/vb/zip/vb0101.zip这个例子的两个窗体界面如下:
主窗体(FormTxtBox)
窗体(FormBack)
我们首先新建一个标准的EXE工程。添加两个窗体,并把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”键,测试检验一下我们的程序了。