在表单上我有100个文本框。所有这些都是通过TabIndex从0到99排序,因此您可以将所有这些列表制成表格。
我需要设置当我更改偶数TabIndex的值时,带有下一个TabIndex的单元格获得相同的值。
因此,例如,如果我更改textbox6
的值,则textbox7
会获得相同的值。
此代码仅适用于文本框。
Private Sub Value_Changed(.....) Handles textbox0.TextChanged, textbox2.TextChanged etc...
....
End Sub
我的问题是我不知道如何使用tabindex = tabindex + 1设置文本框的值。
任何提示?
答案 0 :(得分:2)
用“getnextcontrol”函数解决了!
Dim txt As TextBox = DirectCast(sender, TextBox)
Dim txt2 As TextBox
txt2 = GetNextControl(sender, True)
txt2.Text = txt.text