[أبو خالد الشكري]

مرحبا شباب المنتدى

أريد كود فيه مسج تنبيه قبل الخروج من النافذة إذا تم التعديل على النص الذي في TextBox 

مثال :

يحتوي صندوق TextBox1 على الجملة التالية :
من طلب العلا سهر

وبعد أن أعدت تشغيل البرنامج قمت بإضافة كلمة (الليالي)
من طلب العلا سهر الليالي

الآن يفترض أن البرنامج ينبهني برسالة لحفظ التعديل قبل أن أخرج وأفقد كل ما تم تعديله في النص السابق !

أرجو أن يكون شرحي واضحا .

أنتظر الحل ، وشكرا مسبقا .

[gho]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

[أبو خالد الشكري]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

نعم ، أعرفها هذه الطريقة البدائية جيدا  وأتقنها .
ولكني أريد طريقة أفضل من هذي الطريقة .

[asmarsou]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

نعم ، أعرفها هذه الطريقة البدائية جيدا  وأتقنها .
ولكني أريد طريقة أفضل من هذي الطريقة .

هذه طريقة اخرى عدل فيها بما يتناسب مع ما لديك

PHP كود :

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If TextBox1.Modified Then
            Dim result As DialogResult = MsgBox("لقد تم تغيير النص." & vbCrLf & "لحفظ النغيرات اظغط  YES" & vbCrLf & " لالغاء التغيير اظغظ ,   NO.", MsgBoxStyle.YesNo, "تغيرات النص!")
            If result = DialogResult.Yes Then
                e.Cancel = True
            ElseIf result = DialogResult.No Then
                e.Cancel = False
            End If
        End If
    End Sub 


[gho]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

نعم ، أعرفها هذه الطريقة البدائية جيدا  وأتقنها .
ولكني أريد طريقة أفضل من هذي الطريقة .

لم تذكر أن لديك طريقة بدائية وترينا كودها لنفكر بطريقة أخرى.

عموما شكرا على الرد

[أبو خالد الشكري]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

نعم ، أعرفها هذه الطريقة البدائية جيدا  وأتقنها .
ولكني أريد طريقة أفضل من هذي الطريقة .

هذه طريقة اخرى عدل فيها بما يتناسب مع ما لديك

PHP كود :

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If TextBox1.Modified Then
            Dim result As DialogResult = MsgBox("لقد تم تغيير النص." & vbCrLf & "لحفظ النغيرات اظغط  YES" & vbCrLf & " لالغاء التغيير اظغظ ,   NO.", MsgBoxStyle.YesNo, "تغيرات النص!")
            If result = DialogResult.Yes Then
                e.Cancel = True
            ElseIf result = DialogResult.No Then
                e.Cancel = False
            End If
        End If
    End Sub 


تمام أخي العزيز asmarsou
ما قصرت بارك الله فيك 
شكراً جزيلاً لك ?❤️

[asmarsou]

الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

نعم ، أعرفها هذه الطريقة البدائية جيدا  وأتقنها .
ولكني أريد طريقة أفضل من هذي الطريقة .

هذه طريقة اخرى عدل فيها بما يتناسب مع ما لديك

PHP كود :

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If TextBox1.Modified Then
            Dim result As DialogResult = MsgBox("لقد تم تغيير النص." & vbCrLf & "لحفظ النغيرات اظغط  YES" & vbCrLf & " لالغاء التغيير اظغظ ,   NO.", MsgBoxStyle.YesNo, "تغيرات النص!")
            If result = DialogResult.Yes Then
                e.Cancel = True
            ElseIf result = DialogResult.No Then
                e.Cancel = False
            End If
        End If
    End Sub 


تمام أخي العزيز asmarsou
ما قصرت بارك الله فيك 
شكراً جزيلاً لك ?❤️

 و فيك بارك الله