高压软管快速接头:vb问题 化烦为简

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 05:57:09
比如一个简单的例子
Private Sub Command1_Click(index As Integer)
Select Case index
Case 0
Command1(0).Width = Command1(0).Width + 99
Case 1
Command1(1).Width = Command1(1).Width + 99
Case 2
Command1(2).Width = Command1(2).Width + 99
Case 2
Command1(3).Width = Command1(3).Width + 99
Case 4
Command1(4).Width = Command1(4).Width + 99
Case 5
Command1(5).Width = Command1(5).Width + 99
Case 6
Command1(6).Width = Command1(6).Width + 99
Case 7
Command1(7).Width = Command1(7).Width + 99
Case 8
Command1(8).Width = Command1(8).Width + 99
End Select
End Sub
可以写的简单点吗?

上面是例子,实际我的代码有很长 希望有哪位大侠能帮帮我

Private Sub Command1_Click(index As Integer)
command1(index).width=command1(index).width+99
End Sub
分给我 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

VB不懂。。。C懂一点

用FOR啊。。。。

for （i=0;i<9;i=i+1)
{ Command1(i).Width = Command1(i).Width + 99;
}

等等。。。。。。弄错啦。。。。

楼上应该对了。。。这是个函数。。。

index 的值已经知道啦。。。

原来比我想像还要简单的题喔。。。。

楼主，你的VB好差啊。。。。。。

这点都不会可真要认真复习一下咯。。。

Private Sub Command1_Click(index As Integer)
command1(index).width=command1(index).width+99
End Sub
写法虽然正确，可是这些控件有什么用呢？只能做摆设。

既然用了控件数组，index的值都传进来了。还用写select干什么？
一楼正解。

vb问题 化烦为简 vb的问题：转换字符为数字 关于vb中文本框数据设为变量的问题！ VB问题，请问如何设置picturebox控件为透明 VB问题，请问如何设置picturebox控件为透明 vb问题， vb问题????? vb问题????? VB问题~~~ vb问题!!!!!!!!!!!!