منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود عدم فتح البرنامج ان كان مفتوح من قبل - نسخة قابلة للطباعة

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



كود عدم فتح البرنامج ان كان مفتوح من قبل - Emam emam - 26-02-19

السلام عليكم اخوتي

بعد تحزيم البرنامج وتستيبه علي الجهاز هناك ايقونه تقوم باخفاء البرنامج ووضعه بجوار الساعه

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

والمطلوب انه عند الضغط علي البرنامج من سطح المكتب يتم فتحه ان لم يكن مفتوح وان كان مفتوح من قبل او مخفي بجوار الساعه يقوم باظهاره بدل من فتحه من جديد

وجزاكم الله خيرا



RE: كود عدم فتح البرنامج ان كان مفتوح من قبل - حريف برمجة - 26-02-19

(26-02-19, 04:08 PM)Emam emam كتب :
السلام عليكم اخوتي

بعد تحزيم البرنامج وتستيبه علي الجهاز هناك ايقونه تقوم باخفاء البرنامج ووضعه بجوار الساعه

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

والمطلوب انه عند الضغط علي البرنامج من سطح المكتب يتم فتحه ان لم يكن مفتوح وان كان مفتوح من قبل او مخفي بجوار الساعه يقوم باظهاره بدل من فتحه من جديد

وجزاكم الله خيرا

اختر Project ثم آخر خيار Properties 
واتبع الصورة :

[attachment=20988]


RE: كود عدم فتح البرنامج ان كان مفتوح من قبل - elgokr - 27-02-19

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

اضافة لما قدمه اخى حريف برمجة
للحل الانسب لما تريده فعلاً 

وحتى تعم الفائدة اذا كنت تريد تنفيذ الامر من خلال كود

يمكنك وضع الكود التالى فى لود فورم الرئيسي عند فتح البرنامج
كود :
       Dim myApp As String = My.Application.Info.ProductName
       Dim CheckApp As Process() = Process.GetProcessesByName(myApp)
       If CheckApp.Count <> 0 Then
           ' كود اذا كان البرنامج يعمل
       Else
           ' اذا كان البرنامج لا يعمل
       End If

تحياتى لك
وتمنياتى لك التوفيق



RE: كود عدم فتح البرنامج ان كان مفتوح من قبل - Emam emam - 27-02-19

(26-02-19, 08:08 PM)حريف برمجة كتب :
(26-02-19, 04:08 PM)Emam emam كتب :
السلام عليكم اخوتي

بعد تحزيم البرنامج وتستيبه علي الجهاز هناك ايقونه تقوم باخفاء البرنامج ووضعه بجوار الساعه

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

والمطلوب انه عند الضغط علي البرنامج من سطح المكتب يتم فتحه ان لم يكن مفتوح وان كان مفتوح من قبل او مخفي بجوار الساعه يقوم باظهاره بدل من فتحه من جديد

وجزاكم الله خيرا

اختر Project ثم آخر خيار Properties 
واتبع الصورة :



جزاك الله خير الجزاء اخي  حريف برمجه  


وجعله الله في يزان حسناتك

(26-02-19, 08:08 PM)حريف برمجة كتب :
(26-02-19, 04:08 PM)Emam emam كتب :
السلام عليكم اخوتي

بعد تحزيم البرنامج وتستيبه علي الجهاز هناك ايقونه تقوم باخفاء البرنامج ووضعه بجوار الساعه

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

والمطلوب انه عند الضغط علي البرنامج من سطح المكتب يتم فتحه ان لم يكن مفتوح وان كان مفتوح من قبل او مخفي بجوار الساعه يقوم باظهاره بدل من فتحه من جديد

وجزاكم الله خيرا

اختر Project ثم آخر خيار Properties 
واتبع الصورة :



جزاك الله خير الجزاء اخي  حريف برمجه  


وجعله الله في ميزان حسناتك

(26-02-19, 08:08 PM)حريف برمجة كتب :
(26-02-19, 04:08 PM)Emam emam كتب :
السلام عليكم اخوتي

بعد تحزيم البرنامج وتستيبه علي الجهاز هناك ايقونه تقوم باخفاء البرنامج ووضعه بجوار الساعه

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

والمطلوب انه عند الضغط علي البرنامج من سطح المكتب يتم فتحه ان لم يكن مفتوح وان كان مفتوح من قبل او مخفي بجوار الساعه يقوم باظهاره بدل من فتحه من جديد

وجزاكم الله خيرا

اختر Project ثم آخر خيار Properties 
واتبع الصورة :



جزاك الله خير الجزاء اخي  حريف برمجه  


وجعله الله في ميزان حسناتك

(27-02-19, 03:10 AM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

اضافة لما قدمه اخى حريف برمجة
للحل الانسب لما تريده فعلاً 

وحتى تعم الفائدة اذا كنت تريد تنفيذ الامر من خلال كود

يمكنك وضع الكود التالى فى لود فورم الرئيسي عند فتح البرنامج
كود :
       Dim myApp As String = My.Application.Info.ProductName
       Dim CheckApp As Process() = Process.GetProcessesByName(myApp)
       If CheckApp.Count <> 0 Then
           ' كود اذا كان البرنامج يعمل
       Else
           ' اذا كان البرنامج لا يعمل
       End If

تحياتى لك
وتمنياتى لك التوفيق


بارك الله فيك اخي  Elgoker     
دائما سباق بالخير 
ربنا يجعله في ميزان حسناتك



RE: كود عدم فتح البرنامج ان كان مفتوح من قبل - elgokr - 01-03-19

لى ولك وللجميع ان شاء الله

تحياتى لك
وتمنياتى لك التوفيق