四、简单的文本框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