TextBox.Tag 属性 （权限）

时　间:2015-09-08 08:39:40
作　者:杨雪   ID：42182  城市：南京
摘　要:了解一下TextBox.Tag 属性 （权限）

正　文:

TextBox.Tag 属性 （权限）

Office 2013

本文内容 

存储有关窗体、 报表、 节或控制一个 Microsoft Access 应用程序所需的额外信息。读/写，字符串。

语法

表达式 .Tag

表达式 一个代表 TextBox 对象的变量。

注解

可以为该属性输入一个长达 2048 个字母的字符串表达式。默认设置是零长度字符串(" ")。

与其他属性， Tag属性设置不会影响对对象的属性。

可以使用此属性可为对象指定一个标识字符串，而不影响任何其他属性设置或产生其他副作用。

当您需要检查窗体、 报表、 节或作为变量传递给过程的控件的标识时， Tag属性是非常有用。

示例

下面的示例使用Tag属性来显示有关窗体上的控件的自定义信息。当一个控件具有焦点时，

描述性文本显示在名为lblMessage的标签控件中。您可以通过将每个控件的Tag属性设置为

一个简短文本字符串来指定消息的文本。当某一控件获得焦点时，其Tag属性分配给该标签

控件的标题属性。本示例显示一个名为txtDescription的文本框和一个名为cmdButton在窗体上

的命令按钮的描述文本。

Sub Form_Load() 
 Dim frmMessageForm As Form 
 
 Set frmMessageForm = Forms!Form1 
 
 frmMessageForm!lblMessage.Caption = "" ' Clear text. 
 frmMessageForm!txtDescription.Tag = "Help text for the text box." 
 frmMessageForm!cmdButton.Tag = "Help text for the command button." 
End Sub 
 
Sub txtDescription_GotFocus() 
 ' Tag property setting as caption. 
 Me!lblMessage.Caption = Me!txtDescription.Tag 
End Sub 
 
Sub txtDescription_LostFocus() 
 Me!lblMessage.Caption = "" 
End Sub 
 
Sub cmdButton_GotFocus() 
 ' Tag property setting as caption. 
 Me!lblMessage.Caption = Me!cmdButton.Tag 
End Sub 
 
Sub cmdButton_LostFocus() 
 Me.lblMessage.Caption = " " 
End Sub
 下载示例