|
TabIndex 返回或设置父窗体中大部分对象的 tab 键次序。
语法：object.TabIndex [= index]
Index 0 到 (n-1) 的整数，这里 n 是窗体中有 TabIndex 属性的控件的个数。给 TabIndex
赋一个小于 0 的值会产生错误。
说明：
缺省情况下，在窗体上画控件时 Visual Basic 会分配一个 tab 键顺序，但
Menu、Timer、Data、Image、Line 和 Shape 控件除外，这些控件不包括在 tab
键顺序中。运行时，不可见或无效的控件以及不能接收焦点的控件（Frame 和 Label 控件）仍保持在 tab
键顺序中，但在切换时要跳过这些控件。
每个新控件都放在 tab 键顺序的最后。如果改变控件的 TabIndex 属性值来调整缺省 tab 键顺序，Visual
Basic 会自动对其它控件的 TabIndex
属性重新编号，以反映出插入和删除操作。可以在设计时用属性窗口或在运行时用代码来作改变。
Zorder 方法不会影响 TabIndex 属性。
注意 控件的 tab 键顺序不会影响与其相关的访问键。对于 Frame 或 Label 控件，如果按下访问键，则焦点移到 tab
键顺序中能够接收焦点的下一个控件上。
当加载存为 ASCII 文本的窗体时，对于具有 TabIndex 属性但在窗体描述中没有列出的控件会自动地分配一
TabIndex 值。以后加载的控件，如果现有的 TabIndex 值与先前分配的值发生冲突，将给该控件分配新值。
删除一个或多个控件时，可以用 Undo 命令恢复控件以及除 TabIndex 之外所有的属性，TabIndex 是不能恢复的。用
Undo 命令时 TabIndex 被重放在 tab 键顺序的结尾。
例：这个例子通过改变命令按钮数组的 TabIndex 属性使一组按钮的标签顺序反向。要尝试这个例子，请将代码粘贴到包含四个
CommandButton 控件的窗体的声明部分。将每个按钮的 Name 属性设置为 CommandX 来创建控件数组，然后按
F5 键并单击窗体使按钮的标签顺序反向。
Private Sub Form_Click ()
Dim I, X ' 声明变量。
' 通过设置X的起始值使标签顺序反向。
If CommandX(0).TabIndex = 0 Then X = 4 Else X = 1
For I = 0 To 3
CommandX(I).Caption = X ' 设置标题。
CommandX(I).TabIndex = X - 1 ' 设置标签的顺序。
If CommandX(0).TabIndex = 3 Then
X = X - 1 ' X 减一。
Else
X = X + 1 ' X 增一。
End If
Next I
End Sub
TabStop 返回或设置一个值，该值用来指示是否能够使用 TAB 键来将焦点从一个对象移动到另一个对象。
语法：
object.TabStop [= boolean]
Boolean 一个用来指定该对象是否能够被 tab 停止的布尔表达式，“设置值”中有详细描述。
boolean 设置值：
True （缺省值）表示指定对象能够被 tab 停止。
False 表示当用户按下 tab 键时，将跨越该对象，虽然该对象仍然在实际的 tab 键顺序中保持其位置，按照
TabIndex 属性的决定。
说明：
该属性能够在窗体的 tab 键次序上加入或删除一个控件。例如，如果你正在使用 PictureBox 控件画一个图形，那么将其
TabStop 属性设置为 False，则就不能使用 tab 键使焦点移动到 PictureBox 上。
Tag 返回或设置一个表达式用来存储程序中需要的额外数据。与其它属性不同，Tag 属性值不被 Visual Basic
使用；可以用该属性来标识对象。
语法：
object.Tag [= expression]
expression 字符串表达式用来标识对象，缺省值为零长度字符串 ("")。
说明：
利用该属性可以给对象赋予一个标识字符串，而不会影响其任何其它属性设置值或引起副作用。当需要检查控件或作为变量传递给过程的
MDIForm 对象的标识时，Tag 属性是有用的。
提示 创建一个新的窗口实例时，给 Tag 属性赋予唯一值。
例：这个例子为每个被拖动的控件显示一个单独的图标。要尝试这个例子，请将代码粘贴到包含三个 PictureBox
控件的窗体的声明部分。将 Picture1 和 Picture2 的 DragMode 属性设置为一，然后按 F5
键。使用鼠标在 Picture3 上面拖曳 Picture1 和 Picture2。
Private Sub Form_Load ()
Picture1.Tag = "ICONS\ARROWS\POINT03.ICO"
Picture2.Tag = "ICONS\ARROWS\POINT04.ICO"
End Sub
Private Sub Picture3_DragOver (Source As Control, X As Single, Y
As Single, State As Integer)
If State = vbEnter Then
' 根据每个图片框的 Name 属性选择。
Select Case Source.Name
Case "Picture1"
' 加载 Picture1 的图标。
Source.DragIcon = LoadPicture(Picture1.Tag) Case "Picture2"
' 加载 Picture2 的图标。
Source.DragIcon = LoadPicture(Picture2.Tag)
End Select
ElseIf State = vbLeave Then
' 当 Source 不在 Picture3 之上时，卸载图标。
Source.DragIcon = LoadPicture ()
End If
End Sub
ToolTipText:
返回或设置一个工具提示。
语法：
object.ToolTipText [= string]
string
与“应用于”列表中的一个对象相联系的字符串。当运行时光标在对象上徘徊约一秒时，该字符串将显示在该对象下面的一个小矩形框中。
说明：
如果仅用图象作为对象的标签，那么能够使用此属性以较少的话解释每个对象。
在设计时仅可以在控件的属性对话框中设置 ToolTipText 属性字符串。
对于 Toolbar 和 TabStrip 控件，为了显示 ToolTips 必须设置 ShowTips 属性为 True 。
|
