UC知道VB!!会的来！在线等！谢谢！很急！
来源：百度知道 编辑：UC知道 时间：2024/06/20 17:51:43
建立了5个textbox
Name属性取值要求是txtItem(0)~txtItem(4)
但是属性不能有()我现在只能该成txtItem0~txtItem4
按键触发代码中有
If Trim(txtItem(intCount)&"")=""Then
Select Case intCount
Case 0
sMeg="XXXX"
Case 1
........
End Select
执行的话能否成功？
不行的话代码怎么改？？
谢谢！！
Name属性取值要求是txtItem(0)~txtItem(4)
但是属性不能有()我现在只能该成txtItem0~txtItem4
按键触发代码中有
If Trim(txtItem(intCount)&"")=""Then
Select Case intCount
Case 0
sMeg="XXXX"
Case 1
........
End Select
执行的话能否成功？
不行的话代码怎么改？？
谢谢！！
创建控件数组即可解决
复制后粘贴，点是即可创建数组，粘到你要求的五个
然后你的代码即可编写为以下格式解决了。
Private Sub textbox_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0
Case 1
'以此类编程即可
Case 4
End Select
End Sub
设置生控件数组
先建立一个txtitem控件，然后在控件上面点右键，点复制，然后在窗体上点右键，点粘贴，这时程序会提示你是否创建控件数组，选择是就可以了，这样你复制到5个控件就可以了。
我告诉一个使用数组控件的简单方法,先建一个textbox,然后复制这个textbox,然后粘贴,这是会弹出是否使用数组控件,你选择是,就那么简单
控件数组是由 index 属性控制的！
例如 txtitem(1) 的index 为 1
如果现在已经是txtItem0~txtItem4
可以这样
dim a(4) as object
set a(0)=txtItem0
set a(1)=txtItem1
set a(2)=txtItem2
set a(3)=txtItem3
set a(4)=txtItem4
这样的话 ，就可以用数据来控制运行了！
一个问题问几次呀???
不要再Name属性里面加(0)
首先把第一个控件名字设置为txtItem
index属性设置为0.
后面的控件名字设置为txtItem,系统会自动加上的!