public test () As TextBox = {TextBox0, TextBox1 ,TextBox2 ,TextBox 3,TextBox4 .....TextBox80}
Private Sub TextBox0_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles test (0).TextChanged,test (2).TextChanged............,test (79).TextChanged
需要的代码
End Sub
如上面代码所示,Handles 后面跟的控件能批量或者使用吗?按照上面写的编译通不过!
本人菜鸟,有没有其他的方法啊,谢谢了!
VB.net Handles 问题
答案:2 悬赏:50 手机版
解决时间 2021-01-27 01:44
- 提问者网友:眉目添风霜
- 2021-01-26 20:38
最佳答案
- 五星知识达人网友:纵马山川剑自提
- 2021-01-26 22:13
对于批量的对象就用循环好了,一个一个复制粘贴并不是很好的解决方案。
首先写好事件处理函数。
Private Sub TextBoxChanged(sender As Object, e As EventArgs)
'一些代码
End Sub
下面是主函数
Dim tests() As TextBox '数组或集合字段名称用复数
Dim num As Integer = 80 '控件总个数
ReDim tests(num)
For i = 0 To tests.Count - 1
Dim item As New TextBox
test(i) = item
AddHandler item.TextChanged, AddressOf TextBoxChanged '绑定对象事件到处理函数
Next
手机写的可能难免有错,理解就行
首先写好事件处理函数。
Private Sub TextBoxChanged(sender As Object, e As EventArgs)
'一些代码
End Sub
下面是主函数
Dim tests() As TextBox '数组或集合字段名称用复数
Dim num As Integer = 80 '控件总个数
ReDim tests(num)
For i = 0 To tests.Count - 1
Dim item As New TextBox
test(i) = item
AddHandler item.TextChanged, AddressOf TextBoxChanged '绑定对象事件到处理函数
Next
手机写的可能难免有错,理解就行
全部回答
- 1楼网友:千夜
- 2021-01-26 23:23
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click end sub 这是一个完整的button的click事件的定义 你后边不该加括号吧
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯