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 SubPrivate 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

(源程序下载)