属性索引(I-I)

Index

返回或设置唯一地标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。
语法：
object[(number)].Index
number 整数值的数值表达式，用来标识控件数组中的一个控件。
number 的设置为：
No value （缺省）不是控件数组的元素。
0 to 32,767 是数组的元素。指定一个大于或等于 0 的整数标识控件数组中的一个控件。控件数组中的所有控件具有相同的 Name 属性。Visual Basic 自动地分配在控件数组中有效的下一个整数。

说明：
因为控件数组元素共享同一个 Name 属性设置，所以必须在代码中使用Index 属性来指定数组中的一个特定的控件。Index 必须以整数的形式（或一个能计算出一个整数的数字表达式）出现在紧接控件数组之后的圆括号内－例如，MyButtons(3)。也能够使用 Tag 属性的设置在控件数组中区分控件。

当数组中的控件识别出一个事件已经发生时，Visual Basic 就调用控件数组的事件过程并把可应用的 Index 设置当作附加参数传递。当在运行时动态地用 Load 语句创建控件或用 Unload 语句撤消它们时，该属性也被使用。

虽然缺省状态下 Visual Basic 分配下一个可用的整数作为控件数组中新的控件的 Index 的值，但也可以改变该分配值并跳过一些数。也可以为数组中的第一个控件的 Index 设一个非 0 的整数。如果在代码中引用一个 Index 的值而在控件数组中没有所标识的控件，那么将产生一个 Visual Basic 运行时错误。

注意要从控件数组中撤消一个控件，需改变该控件的 Name 属性设置，并删除该控件的 Index 属性设置。

例：该例子开始时有两个 OptionButton 控件，并在每次单击 CommandButton 控件时在窗体中加入一个新的 OptionButton。当单击一个 OptionButton 时，FillStyle 属性被设置并且画一个新的圆。要试用此例，将下面的代码粘贴到具有两个 OptionButton 控件、一个 CommandButton、以及一个大的 PictureBox 控件的窗体的声明部分之中。将两个 OptionButton 控件的 Name 属性都设置为 optButton 以创建一个控件数组。

Private Sub OptButton_Click (Index As Integer)
Dim H, W '声明变量。
Picture1.Cls '清除图片。
Picture1.FillStyle = Index '设置 FillStyle。
W = Picture1.ScaleWidth / 2 '获取圆的大小。
H = Picture1.ScaleHeight / 2
Picture1.Circle (W, H), W / 2 '画圆。
End Sub

Private Sub Command1_Click ()
Static MaxIdx '数组中的最大索引值。
If MaxIdx = 0 Then MaxIdx = 1 '预置 MaxIdx。
MaxIdx = MaxIdx + 1 '索引值增加 1 。
If MaxIdx > 7 Then Exit Sub '在窗体中放置八个按钮。
Load OptButton(MaxIdx) '在数组中创建新的项。
'在前一个按钮下面设置新选项按钮的位置。
OptButton(MaxIdx).Top = OptButton(MaxIdx - 1).Top + 360
OptButton(MaxIdx).Visible = True '使新的按钮可见。
End Sub

Left

Left－返回或设置对象内部的左边与它的容器的左边之间的距离。
Top－返回或设置对象的内顶部和它的容器的顶边之间的距离。

语法：
object.Left [= value]
object.Top [= value]
value 数值表达式，用于指定距离。

说明：
对于窗体，Left 和 Top 属性总以缇为单位来表达；对于控件，它们的度量单位决定于它的容器的坐标系统。这些属性值随着用户或程序中移动该对象而改变。对于公共对话框和 Timer 控件，这些属性在运行时无效。

对任一个属性，都可以指定单精度数值。

用 Left、Top、Height 和 Width 属性来完成基于对象外部维数的操作，如移动或改变尺寸。用 ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth 来完成基于对象内部尺寸的操作，如绘出或移动包含在该对象中的对象。与比例相关的属性只适用于 Picturebox 控件和 Form 以及 Printer 对象。

例：这个例子在窗体被加载时将窗体的大小设置为屏幕大小的百分之七十五并使窗体居中。要尝试这个例子，请将代码粘贴到窗体的声明部分，然后按 F5 键并单击窗体。

Private Sub Form_Click ()
Width = Screen.Width * .75 ' 设置窗体的宽度。
Height = Screen.Height * .75 ' 设置窗体的高度。
Left = (Screen.Width - Width) / 2 ' 在水平方向上居中。
Top = (Screen.Height - Height) / 2 ' 在垂直方向上居中。
End Sub
　