UC知道VB问题！急求帮助！！在线等待！！
来源：百度知道 编辑：UC知道 时间：2024/06/17 21:28:53
建立了5个textbox
要求上让把Name属性改为txtItem(0)~txtItem(4)
但属性中不让用()，我只能该城txtItem0~txtItem4
按键触发代码中有
If Trim(txtItem(intCount)&"")=""Then
Select Case intCount
Case 0
sMeg = "XXXX"
.......
End Select
如果代码不变，能否执行？
如果不成，按照我该属性的方法应该怎样写代码？？
要求上让把Name属性改为txtItem(0)~txtItem(4)
但属性中不让用()，我只能该城txtItem0~txtItem4
按键触发代码中有
If Trim(txtItem(intCount)&"")=""Then
Select Case intCount
Case 0
sMeg = "XXXX"
.......
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
If Trim(txtItem(intCount)&"")=""Then
这句话肯定行不通
楼主..属性是不能加()的
你要在index里面设置为0,1,2,3,4
就可以啦 系统就会默认追加为txtItem(0)~(4)