控制与控制标签属性

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”替换为您的表单名称。