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

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

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

[attachment=23142]

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

[attachment=23143]

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

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

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

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

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 

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

اخي في طريقة ولكنها بدائية

لا اعتقد انها تناسب مشروعك

لانه يمكن حذف المجلد وتشغيل البرنامج

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 

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

Emam emam

asemshahen5

Emam emam

Emam emam

AbdoDabak