[silverlord]

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

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

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

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

كود :

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

    End Sub

[mudz]

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

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

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

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

كود :

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

   End Sub

ووضضح

[undetected71]

سوف تضع كود في الاعلي بأي مكان فاضي

Public Change As Boolean = False

وتضغط عالتكست بوكس مرتين المكان الي الشخص رح يكتب فيه
وتجي عند حدث TextChange

وتكتب هكذا

Change = True

وطبعا في زر الحفظ رح تعمل جملة شرطية

يقارن Change لو Fasle او True

[الوليد ☺]

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

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

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 


[silverlord]

قبل ما اسوي المفكرة كنت عامل تحدي بيني وبين اني ماراح استعين بأي مصادر نهائيا وراح اعمل المفكرة بدون اخطاء ومثل الموجودة في الويندوز لكن للأسف وقفت عند هذي المرحلة كيف اخلي البرنامج يعرف اي تغيرات حدثت في textbox
كنت اتوقع ان الموضوع بسيط مجرد عمل مقارنة بين Length وراح تضبط معاي لكن للأسف فشلت الطريقة

عموماً الله يعطيكم العافية اخواني على مساعدتي وشرفني مشاركتكم جميعاً

تحياتي لكم