منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

كود :

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

    End Sub

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

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

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

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

كود :

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

ووضضح

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

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 

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

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

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

تحياتي لكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

silverlord

mudz

undetected71

الوليد ☺

silverlord