电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>vb文本框TEXTBOX的使用:

vb文本框TEXTBOX的使用

来源:www.cncfan.com | 2006-4-9 | (有11789人读过)

文本框控件(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”键,测试检验一下我们的程序了。

VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号