كيف تعرف إذا كان برنامجك مفتوحا من قبل

السلام عليكم

مشكور جداً على هذا الكود , حقيقة كود رائع .

السلام عليكم

بارك الله فيك اخىsamerselo وجزاك الله خيرا لانى كنت ابحث عن مثل هذا الكود

جزاك الله خيرا أخي محمد ,,,

شكراً لك , كود رائع

شكرا لكل مر من وقرأ الكود

وشكر أكبر لكل من وضع ردا

منتظر أي ملاحظة أو تطوير للكود من الجميع

جزاك الله خير

فعلا هذا الي كنت ابحث عنه من قبل شكرا جزيلاً لك samerselo .

مشكور على هذا الكود .. اخي العزيز ..

بس عندي مشكلة وهي اني اريد ان اجعل هذا الكود داخل الكود المسئول عن تحميل الفورم .. ولكني لحد الآن متحير ..

هل اجعله تحت

Sub New

او لا ..

اريد التوضيح ..

عملت الطريقة ..

فقط ارفق هذه الفنكشن في ال class .(( قصدي في project))

 Public Function Test()
        Dim Pro As Process()
        Dim pr As String

        pr = Process.GetCurrentProcess.ProcessName()
        Pro = Process.GetProcessesByName(pr)

        If Pro.Length <> 1 Then
            MsgBox("Sorry, close the last form then start again", MsgBoxStyle.OKOnly)
            Process.GetCurrentProcess.Kill()
        End If

    End Function

ثم اعملوا استدعاء call من sub new() .. باسم هذه الفنكشن .

idle man كتب:

مشكور على هذا الكود .. اخي العزيز ..

بس عندي مشكلة وهي اني اريد ان اجعل هذا الكود داخل الكود المسئول عن تحميل الفورم .. ولكني لحد الآن متحير ..

هل اجعله تحت

Sub New 

او لا ..

اريد التوضيح ..

←

أنا شخصيا استخدمته في الحدث Load للنموذج الرئيسي للبرنامج

كالمثال التالي

    Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' إذا كان البرنامج مفتوح سابقا لاتفتح نسخة جديدة
        If ISAppLoadedBefore() = True Then End

' باقي إجراءات حدث التحميل

    End Sub

ووضعتها في أول سطر لسبب أنه إذا كنت تنوي إنهاء البرنامج فلا معني لعمل إجراءات تحميل النموذج

كما لايوجد ما يمنع وضعه في Sub New ولكن إن كنت تستخدم Sub New الخاص بالنموذج انتبه يجب أن يكون أي أمر تضيفه هناك بعد أمر InitializeComponent

تعديل حلو idle man

بس سبب عدم إنهائي للبرنامج من داخل الـ function هو انه ممكن أن يكون البرنامج يحتاج لعمل بعض الأوامر قبل إنهاء البرنامج فعليا فيقوم المبرمج باختبار القيمة المعادة من الاجراء وينفذ التسلسل الذي يرغبه لإنهاء البرنامج

samerselo كتب:

بس سبب عدم إنهائي للبرنامج من داخل الـ function هو انه ممكن أن يكون البرنامج يحتاج لعمل بعض الأوامر قبل إنهاء البرنامج فعليا فيقوم المبرمج باختبار القيمة المعادة من الاجراء وينفذ التسلسل الذي يرغبه لإنهاء البرنامج

←

لم افهم مقصدك اخي العزيز .

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

انا اتلخبط الصراحه

ارجو ان يرفق احدكم المثال

منحاول نحط مثال:

بس نحنا الاتنين عم نشتغل تقريبا نفس الشغلة

أنا عم برجع قيمة boolean وبعدين المبرمج يللي بيستخدم الاجرائية بيختبر القيمة مثل

if ISAppLoadedBefore() = true then
              ' do what you want before end
                ...
                ...
                ...
               end
end if

وهو عم ينهي البرنامج فورا من داخل الإجراء بواسطة الأمر Process.GetCurrentProcess.Kill()

بس ومع ذلك مبدأ الاجراء والكود واحد عندي وعنده

أرجو أن يكون ذلك واضحا

مشكور

جميل جدا

تقبل تحياتى