تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله
#1
السلام عليكم ورحمه الله وبركاته 
كود منع تشغيل البرنامج اكثر من مره مشهور في المنتدى ومنتديات كثيره لكن انا في حالتي او في برنامجي احتاج اضيف الى كود منع تشغيل البرنامج اكثر من مره كود يقوم بتوجيه امر الى النسخه الشغاله مثلا   
TextBox1.Text="HelloWorld"
نلاحظ وجود هذا الكود في برامج استعرض الصور والفيديو بحيث انك اذا اخترت ملف والبرنامج شغال يقوم بفتح الملف ويغلق النسخ السابقه
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...
بالنسبة لعدم تكرار مرات الدخول اضغط علي myproject ثم application وفعل الخيار الاتي.


الملفات المرفقة صورة/صور
   
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: soloxocf1
#3
وعليكم السلام ورحمة الله وبركاته

لعدم فتح المشروع اكثر من مرة
وعند اتمام فتحه المرة الثانية يتم عمل Focus على البرنامج الشغال

كل ما علك استخدام الاتى

قم باذافة الكود
كود :
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As IntPtr

من ثم استخدام الكود التالى فى حدث اللود
كود :
       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           SetForegroundWindow(App(1).MainWindowHandle)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

او يمكنك استخدام الكود التالى بدون وضع السطر المستقل ببداية الرد
كود :
       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           AppActivate(App(1).Id)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

وضعت لك الاثنين طبقاً لاصدار  .NET Framework فى المشروع
وللمعلومة اكثر عن هذا الكود

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#4
مرحبا
لو سويت بروجكت يعد في الليبل من 1 الى 100 
والبروجكت سنقل يعني ميتكرر 
وافرض اني شغلته و وصل رقم 15 وشغلته مره ثانيه
بهذي الحاله مراح يصير شي رح يكمل العد 
كيف ممكن اخليه لو يشتغل مره ثانيه اثناء تشغيله
يعيد الرقم الى الصفر 
اتمنى وضحت الفكره  Heart
هم يسرقون والقانون كتب لنا...

الرد }}}
تم الشكر بواسطة:
#5
لا اعلم ماذا تقصد هنا بالعد وكيف هو الكود لديك
المستخدم لهذا الامر 

ولكن تعال نتخيل ان الامر عن طريق settings
كل مدة يتم زيادة الرقم +1 ويتم عمل الحفظ له

كل الامر فقط وضع كود تحقق
او فى اللود للفورم او حسب الحاجة اللى انت محتاج يبداء العد منها بـ 0
وكل ما عليك ان تعطى قيمة المعرف بـ settings هو 0 عند تحقق الشرط او فى اللود

وبكده يكون البرنامج بداء العد من 0
ينطبق الامر اذا كان تسجيل العد يكون بقاعدة البيانات

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#6
السلام عليك
عندي مشكله ياريت اجد الحل جزاكم الله خير
سويت مشروع على شاشه كبيره دقه ١٠٨٠ في ١٩٢٠
بعدين لمن نزلته على شاشات صغيره تغير الحجم تماتك عدا الفريمات الذي داخل فورم الاب ياريت تجيبو لي حل جزكم الله خير
الرد }}}
تم الشكر بواسطة:
#7
هذا الكود يسمح للمستخدم بتشغيل البرنامج على جهاز أخر بدون مشاكل، ولكن يمنع تشغيل البرنامج على نفس الجهاز أكثر من مرة في وقت واحد. كما يمكن إضافة كود لتحديد عدد مرات تشغيل البرنامج على نفس الجهاز. على سبيل المثال، يمكن إضافة متغير يحدد عدد مرات تشغيل البرنامج ويتم تحديثه كل مرة يتم تشغيل البرنامج. عندما تصل عدد مرات تشغيل البرنامج إلى الحد الأقصى المحدد، يتم إغلاق البرنامج. وهذا هو الكود الذي يمكن استخدامه:


كود :
Dim count As Integer = 0
Const limit As Integer = 5

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  If count >= limit Then
     MessageBox.Show("You have reached the maximum limit of running this program.")
     End
  Else
     count += 1
     TextBox1.Text = "Hello World"
  End If
End Sub



هذا هو على سبيل المثال، ويمكن تخصيص الكود حسب المتطلبات.

(26-03-23, 04:59 PM)Abu Amgad كتب : السلام عليك
عندي مشكله ياريت اجد الحل جزاكم الله خير
سويت مشروع على شاشه كبيره دقه ١٠٨٠ في ١٩٢٠
بعدين لمن نزلته على شاشات صغيره تغير الحجم تماتك عدا الفريمات الذي داخل فورم الاب ياريت تجيبو لي حل  جزكم الله خير

مرحبا بك! سأحاول أن أساعدك في حل مشكلتك. هناك عدة طرق لحل مشكلة الحجم في التطبيق الخاص بك:

  1. تغيير حجم الصور: يمكن تغيير حجم الصور المستخدمة في التطبيق لتتناسب مع شاشة صغيرة.

  2. تغيير حجم النصوص: يمكن تغيير حجم النصوص المستخدمة في التطبيق لتتناسب مع شاشة صغيرة.

  3. إعادة تصميم الشاشة: يمكن إعادة تصميم الشاشة الخاصة بالتطبيق لتتناسب مع شاشة صغيرة، على سبيل المثال، عن طريق إعادة تعيين أحجام الخانات والصور والنصوص.

  4. إستخدام تكنولوجيا الاستيعاب الذاتي: يمكن إستخدام تكنولوجيا الاستيعاب الذاتي لتغيير حجم التطبيق تلقائيًا عندما يتم تغيير حجم الشاشة.
هذه هي بعض الحلول الخاصة بمشكلتك. أمتلك أساليب وأدوات أخرى لحل مشكلة الحجم، لذلك يرجى توضيح بعض التفاصيل الإضافية عن مشروعك إذا كنت تحتاج إلى مزيد من المساعدة.
الرد }}}
تم الشكر بواسطة:
#8
بما ان الموضوع من 3 سنوات ونصف، ونحن صيام ولم أنتبه انه قديم، فقمت بعمل هذا الشرح. ولم انتبه لتاريح طرح الموضوع إلى في النهاية.
المهم عملت الشرح وقلت حرام الغي المشاركة ، 

هنا شرح في الفيديو لطلب الأخ معاذ_ابراهيم 




الرد }}}
تم الشكر بواسطة: asmarsou , asmarsou , أبووسم


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اعادة توجيه للرابط ميدو الفنان 0 67 13-03-24, 04:48 PM
آخر رد: ميدو الفنان
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 673 14-12-23, 12:07 PM
آخر رد: asmarsou
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم