vb.net 提示是否保存？

zqwangyf 2010-12-28 03:45:39

vb.net Form 窗体中有textbox1、textbox2、textbox3，如果新增或修改时忘记点保存按钮了在点关闭Form窗体的关闭按钮时提示是否保存。谢谢帮一下严重感谢!

...全文

82 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

Tosp2012 2010-12-28

打赏
举报

Public Class Form1



    Dim Save_Flag As Boolean = False

   

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If Trim(TextBox1.Text) <> "" Then

            Save_Flag = True

        End If

    End Sub



    Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        If Trim(TextBox1.Text) <> "" Then

            Save_Flag = True

        End If

    End Sub



    Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        If Trim(TextBox1.Text) <> "" Then

            Save_Flag = True

        End If

    End Sub



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If Save_Flag Then

            If MessageBox.Show("是否保存數據！", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

                MessageBox.Show("保存成功！", "提示")

            End If

        End If

    End Sub

End Class

wuyq11 2010-12-28

打赏
举报

TextChanged
sender as TextBox, 设置标识
取值foreach(Control c is this.Controls)
{]

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
If MessageBox.Show("是否现在关闭窗口", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) <> DialogResult.OK Then
e.Cancel = True
End If
End Sub
提示