vb基础 vb实例教程 api调用 控件使用 经验技巧 数据库操作 算法及技术 vb源码下载
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 返回首页  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> vb教程

vb神童教程第二章第二节——TextBox控件
文章来源:赛迪 作者:小雷

  在 Visual Basic 操作界面中,TextBox(文本框)控件所代表的图标如图一:


图一

TextBox 控件主要用来显示文本或用来输入文本,如 Windows 登陆时的“口令”窗口,或者记事本的整个编辑区域。

双击工具箱中的文本框控件或者单击文本控件,然后用鼠标在 VB 的工作区域拖拉,就可以创建文本框了。如图二:


图二

文本框控件的默认名称为 TextX(X为 1、2、3,等等),命名规则为 TxtX(X为用户自定义的名字,如 TxtShow、TxtFont、TxtColor ,等等)

一、文本框控件的主要属性:
1、Text(文本)属性:
本控件最重要的属性,用来显示文本框中的文本内容,可以在界面设置时指定,如图三:


图三

也可以在程序中动态修改,程序代码规则:

文本框控件名.Text = "欲显示的文本内容"

如要在一个名为 TxtFont 的文本框控件中显示“隶书”字样,那么输入代码:

TxtFont.Text = "隶书"

习题一:创建一个文本框(TxtContent)用来显示文本;按钮一(Cmd1),点击时文本框内容变为“跟我来学VB神童教程”;按钮二(Cmd2),点击时文本框内容清空(也就是没有内容)。

答案:见答案区。

2、SelText(选中文本)属性:
本属性返回或设置当前所选文本的字符串,如果没有选中的字符,那么返回值为空字符串即""。

请注意,本属性的结果是个返回值,或为空,或为选中的文本。

一般来说,选中文本属性跟文件复制、剪切等剪贴板(在 VB 中,剪贴板用 Clipboard 表示)操作有关,如要将文本框选中的文本拷贝到剪贴板上:

Clipboard.SetText 文本框名称.SelText(注意,本行没有表示赋值的等号。)

要将剪贴板上的文本粘贴到文本框内:

文本框名称.SelText = Clipboard.GetText(注意,本行有表示赋值的等号。)

例:一个文本框(TxtContent),按钮一(CmdCopy)用于复制文本框中的选中文本;按钮二(CmdPaste)用于将剪贴板上的内容粘贴到文本框内。

按钮一:
Private Sub CmdCopy_Click()
Clipboard.SetText TxtContent.SelText
End Sub

按钮二:
Private Sub CmdPaste_Click()
TxtContent.SelText = Clipboard.GetText
End Sub

3、SelStart 与 SelLength 属性:
SelStart ,选中文本的起始位置,返回的是选中文本的第一个字符的位置。
SelLength ,选中文本的长度,返回的是选中文本的字符串个数。 例如:文本框 TxtContent 中有内容如下:

跟我一起学习 VB 神童教程

假设选中“一起学习”四个字,那么,SelStart 为 3 ,SelLength 为 4 。

4、MaxLength(最大长度)属性:
本属性限制了文本框中可以输入字符个数的最大限度,默认为 0 ,表示在文本框所能容纳的字符数之内没有限制,文本框所能容纳的字符个数是 64K ,如果超过这个范围,则应该用其他控件来代替文本框控件。

这跟 Windows 中用记事本打开文件一样,当文件过大,系统会自动调用写字板来打开文件,而不是用记事本。

文本框控件 MaxLength 属性既可以在界面设置过程中予以指定,如图四:


图四

也可以在设计时予以改变,代码如下:
文本框控件名.Maxlength = X(X为阿拉伯数字,如 10、20、57,等等)。

5、MultiLine(多行)属性:
本属性决定了文本框是否可以显示或输入多行文本,当值为 True ,文本框可以容纳多行文本;当值为 False ,文本框则只能容纳单行文本。

本属性只能在界面设置时指定,程序运行时不能加以改变。如图五:


图五

6、PasswordChar(密码)属性:
本属性主要用来作为口令功能进行使用。例如,若希望在密码框中显示星号,则可在“属性”窗口中将 PasswordChar 属性指定为 “*” 。这时,无论用户输入什么字符,文本框中都显示星号。如图六:


图六

在 VB 中,PasswordChar 属性的默认符号是星号,但你也可以指定为其他符号。但请注意,如果文本框控件的 MultiLine(多行)属性为 True ,那么文本框控件的 PasswordChar 属性将不起作用。 习题二:一个文本框(TxtPassword),PasswordChar 属性指定为星号“*”;一个按钮(CmdShow);另外还有一个标签(LblShow),在初始状态下,Caption 为空。程序目的在于,点击 CmdShow 按钮,LblShow 能显示文本框控件中输入的密码。

答案:见本节后面的答案区。

7、ScrollBars(滚动条)属性:
本属性可以设置文本框是否有滚动条。当值为 0 ,文本框无滚动条;值为 1 ,只有横向滚动条;值为 2 ,只有纵向滚动条;值为 3 ,文本框的横竖滚动条都具有。如图七:


图七

8、Locked(锁定)属性:
当值为 False ,文本框中的内容可以编辑;当值为 True ,文本框中的内容不能编辑,只能查看或进行滚动操作。

二、文本框控件的事件:
除了 Click、DbClick 这些不常用的事件外,与文本框相关的主要事件是 Change、GotFocus、LostFocus 事件。

1、Change 事件:
当用户向文本框中输入新内容,或当程序把文本框控件的 Text 属性设置为新值时,触发 Change 事件。

2、GotFocus 事件:
本事件又名“获得焦点事件”。所谓获得焦点,其实就是指处于活动状态。在电脑日常操作中,我们常常用 Alt+Tab 键在各个程序中切换,处于活动中的程序获得了焦点,不处于活动的程序则失去了焦点(LostFocus)。

3、LostFocus 事件:
失去焦点,详情如上。 例子:一个文本框(TxtContent),默认状态下内容为空;当获得焦点时,文本框内容显示————“大家好,课程还难吗”字样;当失去焦点,文本框回到初始状态。另外再创建一个标签(LblShow),当用户试图向文本框输入文本或改变文本框本来的文本时,标签显示“标签的作用大家还清楚吗”字样。

界面如图八:


图八

程序如下:

文本框:
Private Sub TxtContent_GotFocus()
TxtContent.Text = "大家好,课程还难吗"
End Sub

Private Sub TxtContent_LostFocus()
TxtContent.Text = ""
End Sub

Private Sub TxtContent_Change()
LblShow.Caption = "标签的作用大家还清楚吗"
End Sub

三、知识点:
1、请记住,Clipboard 指的是 Windows 剪贴板,剪贴板最常用的操作是所选文本的拷贝与粘贴。

拷贝:
Clipboard.SetText 文本框名称.SelText

粘贴:
文本框名称.SelText = Clipboard.GetText

2、Multiline 属性为 True 时,文本框控件的 PasswrodChar 属性不起作用。

3、如果要让文本框的内容自动换行,只需取消文本框的横向滚动条就行了。

四、答案区:

习题一:

按钮一:
Private Sub Cmd1_Click()
TxtContent.Text = "跟我来学 VB 神童教程"
End Sub

按钮二:
Private Sub Cmd2_Click()
TxtContent.Text = ""
End Sub

习题二:

按钮:
Private Sub CmdShow_Click()
LblShow.Caption = TxtPassword.Text
End Sub

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有