For i = 1 To 10
txt = CType(pantz.FindControl("txt" & i), TextBox)
txt.Text = 0
AddHandler txt.TextChanged, AddressOf Txtc_Changed
Next Public Sub Txtc_Changed(ByVal Sender As Object, ByVal e As System.EventArgs)
dim txt as TextBox = DirectCast(sender, TextBox) '...
end Sub
txt = CType(pantz.FindControl("txt" & i), TextBox)
txt.Text = 0
AddHandler txt.TextChanged, AddressOf Txtc_Changed
Next Public Sub Txtc_Changed(ByVal Sender As Object, ByVal e As System.EventArgs)
dim txt as TextBox = DirectCast(sender, TextBox) '...
end Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货