看实例学习VB 6.0之四

上接：看实例学习VB 6.0之三

二、学习VB 6.0 的一些常用控件

1、文本框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

源程序下载
http://www.hongen.com/pc/program/tutors/vb/zip/vb0101.zip

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

主窗体（FormTxtBox）

窗体（FormBack）
我们首先新建一个标准的EXE工程。添加两个窗体，并把TextBox、Button、Label控件放置在窗体上。各文本框的名称如下：

 -----------------------------------------------------------------------------------------------------------------
文本框名称      会员编号文本框               密码文本框                          姓名文本框
 名称属性            TextID                   TextPassWord                        TextName
 文本框名称       电子邮件文本框           个人介绍文本框                   会员信息文本框
 名称属性              TextMail                   TextResume                          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”键，测试检验一下我们的程序了。