Question

请问vb6.0中textbox数组如何用change事件，本人初学。请写出详细代码

比如我有text1(0)-Text1(3)共4个数，Text2求4个数之和。那么如何实现当前的textbox任何一个触发change事件。谢谢，分不多，真心求指导

Answer 1

Private Sub Text1_Change(Index As Integer)
Text2 = Val(Text1(0)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3))
End Sub

追问

非常感谢ydnmc2011的解答，再次麻烦一下。
如果Text1(5)=Abs(Text1（0）-1)，Text1(5)=(Text1（1）-1)，Text1(5)=(Text1（2）-3)，Text1(5)=(Text1（3）-2)。Text1（5）中显示text1(0)-Text1(3)任何一个数变化时求的绝对值该如何表示呢？谢谢

追答

Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
Text1(5) = Abs(Val(Text1(Index)) - 1)

Case 1
Text1(5) = Val(Text1(Index)) - 1
Case 2
Text1(5) = Val(Text1(Index)) - 3
Case 3
Text1(5) = Val(Text1(Index)) - 2
End Select
End Sub