vb.net - 控件和标签属性

Question

我正在尝试编写一个名为的函数HasUnsavedChanges，基本上应该在您关闭表单时调用该函数。即在保存项目后，它应该检查控件中的值Tag与相同函数中的属性值，例如 txtFirstName.Tag = .ContactFirstname和txtFirstName.Text = .ContactFirstname。如果两者之间有任何区别，请返回True。关闭表单时，如果此函数返回 true，则询问是否应保存更改。

我认为正确的方法是编写一个For循环来遍历控件，但在那之后我被卡住了。

Answer 1

假设您将 .Text 和 .Tag 属性存储在同一个控件中，请尝试以下操作：

For Each objControl As Control In frmMain.Controls
   If TypeOf objControl is TextBox Then
       If objControl.Tag <> objControl.Text Then
           '---Changes have been made!---
       End if
   End if
Next

显然，您需要将“frmMain”替换为您的表单名称。