منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تنبيه إذا حدث تعديل في محتويات TextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تنبيه إذا حدث تعديل في محتويات TextBox (/showthread.php?tid=44582)

تنبيه إذا حدث تعديل في محتويات TextBox - أبو خالد الشكري - 17-12-22

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

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

مثال :

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

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

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

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

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

RE: تنبيه إذا حدث تعديل في محتويات TextBox - gho - 17-12-22

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

RE: تنبيه إذا حدث تعديل في محتويات TextBox - أبو خالد الشكري - 17-12-22

(17-12-22, 08:18 PM)gho كتب : الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

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

RE: تنبيه إذا حدث تعديل في محتويات TextBox - asmarsou - 17-12-22

(17-12-22, 10:06 PM)أبو خالد الشكري كتب :
(17-12-22, 08:18 PM)gho كتب : الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه 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 


RE: تنبيه إذا حدث تعديل في محتويات TextBox - gho - 17-12-22

(17-12-22, 10:06 PM)أبو خالد الشكري كتب :
(17-12-22, 08:18 PM)gho كتب : الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه t
وفي حدث LostFocus تقارن t بالنص الحالي في TextBox1 وعند عدم التطابق تظهر الرسالة

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

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

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

RE: تنبيه إذا حدث تعديل في محتويات TextBox - أبو خالد الشكري - 17-12-22

(17-12-22, 10:12 PM)asmarsou كتب :
(17-12-22, 10:06 PM)أبو خالد الشكري كتب :
(17-12-22, 08:18 PM)gho كتب : الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه 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
ما قصرت بارك الله فيك 
شكراً جزيلاً لك ?❤️

RE: تنبيه إذا حدث تعديل في محتويات TextBox - asmarsou - 17-12-22

(17-12-22, 10:52 PM)أبو خالد الشكري كتب :
(17-12-22, 10:12 PM)asmarsou كتب :
(17-12-22, 10:06 PM)أبو خالد الشكري كتب :
(17-12-22, 08:18 PM)gho كتب : الحل ان تحتفظ بالنص الاول في متغير وليكم اسمه 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
ما قصرت بارك الله فيك 
شكراً جزيلاً لك ?❤️
 و فيك بارك الله