我目前正在创建一个动态添加控件包含文本框控件的表单。可能是1或100我从一开始就不知道。
创建文本框后,我在文本框中添加一个事件。
AddHandler Textbox1.TextChanged, AddressOf SET_DIAMETER
并创建了一个应该对事件做点什么的子。
Private Sub SET_DIAMETER(ByVal sender As Object, ByVal e As EventArgs)
Debug.Print("Textbox1.textchanged event.")
End Sub
更改文本并执行debug.print()
时会引发事件。
但是现在我想知道什么文本框引发了这个事件,所以我可以正确处理新输入的值。
你会怎么做?
答案 0 :(得分:0)
您可以将发件人转换为文本框并执行您想要的操作。
类似的东西:
Private Sub SET_DIAMETER(ByVal sender As Object, ByVal e As EventArgs)
Dim TextBox As TextBox = CType(sender, TextBox)
Debug.Print(TextBox.Name & ".textchanged event.")
End Sub