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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31686)

اخفاء البرنامج بجوار الساعه في شريط المهام - Emam emam - 08-10-19

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

RE: اخفاء البرنامج بجوار الساعه في شريط المهام - asemshahen5 - 08-10-19

انقر نقرا مزدوجا على My Project :

[attachment=23142]

وضع اشارة صح على خيار Make single instance application

[attachment=23143]

RE: اخفاء البرنامج بجوار الساعه في شريط المهام - Emam emam - 09-10-19

(08-10-19, 08:46 AM)asemshahen5 كتب : انقر نقرا مزدوجا على My Project :



وضع اشارة صح على خيار Make single instance application

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

RE: اخفاء البرنامج بجوار الساعه في شريط المهام - Emam emam - 13-10-19

السلام عليكم اخوتي
انا استخدمت كود ساععدني به بعض الاخوه لعدم فتح البرنامج مره اخري
ولكن لا يفعل شيئ
سوف اضع لعل احد الاخوه يساعدني فيه
PHP كود :
Dim myApp As String = My.Application.Info.ProductName
        Dim CheckApp As Process() = Process.GetProcessesByName(myApp)
        If CheckApp.Count = 0 Then
            ' اذا كان البرنامج لا يعمل
        Else
            ' كود اذا كان البرنامج يعمل
            MsgBox("البرنامج مفتوح بالفعل")
        End If 
مع العلم اخووتي اريد ظهر رساله تخبر العميل بان البرنامج مفتوح من قبل
او يفتح البرنامج المفتوح مسبقا وليس من جديد
وجزاكم  الله خيرا

RE: اخفاء البرنامج بجوار الساعه في شريط المهام - AbdoDabak - 13-10-19

اخي في طريقة ولكنها بدائية
لا اعتقد انها تناسب مشروعك
لانه يمكن حذف المجلد وتشغيل البرنامج
PHP كود :
Imports System.IO
Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Directory.Delete("C:\Windows\File9372jdsbcmcbd")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Directory.Exists("C:\Windows\File9372jdsbcmcbd") Then
            MsgBox("البرنامج يعمل بالفعل")
            End
        Else
            Directory.CreateDirectory("C:\Windows\File9372jdsbcmcbd")
        End If
    End Sub
End Class