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

最新推荐文章于 2025-09-21 16:32:55 发布

原创最新推荐文章于 2025-09-21 16:32:55 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#textbox #button #string #qq

VB.NET 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种检测文本框内容变化的方法，并通过示例代码展示了如何实现退出时询问用户是否保存更改的功能。该方法适用于需要频繁监测文本输入变化的场景。

查看界面上文本框的值是否改变,如果改变提示是否保存,就想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 这里就会写很多,应该还有更好的方法,希望大家提出来..