查看界面上文本框的值是否改变,如果改变提示是否保存

查看界面上文本框的值是否改变,如果改变提示是否保存,就想QQ里面我的资料,你如果修改了某个资料,退出是会提示你是否保存,如果没有修改,则直接退出,暂时想到这个方法,不知道大家好有没有更好的方法来判断?

 

Dim strOldValue As String = String.Empty Dim strNewValue As String = String.Empty Dim IsEdit As Boolean = False Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Button1.Focus() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If IsEdit = True Then MsgBox("保存吗?") Else MsgBox("退出?") End If End Sub Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter strOldValue = CType(sender, TextBox).Text.Trim End Sub Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave strNewValue = CType(sender, TextBox).Text.Trim If strOldValue <> strNewValue Then IsEdit = True End If

这个方法的缺点就是如果控件很多的话 Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter 这里就会写很多,应该还有更好的方法,希望大家提出来..