VB小问题 在线等

来源：百度知道 编辑：UC知道 时间：2024/05/29 17:31:32
Private Sub Text1_Click(Index As Integer)
Clipboard.Clear

Clipboard.SetText Text1.text

End Sub

上面的代码复制了Text1.text的内容！ 如果我建了10个Text,就要重复写10次上面那两行代码~~好烦啊`~

但我是建了Text1(0) Text1(1) Text1(2) Text1(3)…………

这是数组吗？我直接复制Text1的~~

于是我写进去

Private Sub Text1_Click(Index As Integer)

Clipboard.Clear

Clipboard.SetText Text1(i).text

End Sub

但好象每次都是复制了Text1(0)的内容~~

该怎么办啊？我错在哪了？再用其他思路解决这问题！

不要重复10次的~~代码要少~~

i是什么?你都没定义~`

你要的i应该是index那属性吧``换成index就可以~
不然就加一个赋值语句

i=Text1.index

Private Sub Text1_Click(Index As Integer)

Clipboard.Clear

Clipboard.SetText Text1(Index).text '这样写

End Sub

你这句Clipboard.SetText Text1(i).text 括号的i默认为0，而且，每次执行，都没改变i的值