VB中text.index是什么意思?

两个文本框~怎样让文本1的内容变为文本2中选择的内容?

VB中.Index是控件数组的某个控件的编号。当建立了Text控件的控件数组后,就存在.Index这个属性。

Index 属性(控件数组),返回或设置唯一地标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。

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

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

下图是运行效果:从两个OptionButton 控件组成的控件数组增加OptionButton 控件的数组成员。

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-12-25
index索引,只有用到了控件数组才需要
Text1.text = Text2.SelText本回答被提问者采纳
第2个回答  2012-12-24
text.index--Tab顺序

Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = Text2.SelText
End Sub
相似回答