(19-12-14, 05:16 AM)silverlord كتب : السلام عليكم ورحمة الله وبركاته

عندي استفسار وصراحة ماني عارف له اجابة
انا عملت مفكرة كاملة لكن تبقى لي بعض الأكواد البسيطة

عندما تقوم بفتح المفكرة المدمجة مع الويندوز وتفتح عن طريقها اي ملف وبعدها تقوم بإضافة اي نص على النص الموجود ثم تحاول فتح ملف جديد من القائمة الموجودة في اعلى المفكرة  تظهر لك رسالة تخبرك" هل تريد حفظ التغيرات؟

ماذا اضع داخل هذا SUB
حتى يتعرف على اي تغيرات تحدث داخل TEXTBOX

كود :

   Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click

   End Sub

السلام عليكم ورحمة الله

أبسط طريقة هو وضع متغير يدل أنه حدث تغيير وتقرأ قيمته عند فتح ملف أو الخروج.
مثل

PHP كود :

Dim modify As Boolean

' حدث التغيير في محتوي مربع النص '
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    modify = True
End Sub


' فتح ملف '
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If modify Then

        Dim result As MsgBoxResult = MsgBox("هل تريد حفظ التعديلات؟", MsgBoxStyle.YesNoCancel)

        Select Case result

            Case MsgBoxResult.Yes
                SaveFileDialog() ' حفظ الملف '

            Case MsgBoxResult.Cancel
                Exit Sub ' التراجع عند فتح ملف وترك الوضع كما كان '

        End Select

        OpenFileDialog() ' فتح ملف '

    Else
        OpenFileDialog() ' فتح ملف '

    End If

End Sub