جلوگیری از اجرای بیش از یک بار برنامه

[SYSMAN]

توی مثالهای MSDN کد زیر برای جلوگیری از اجرای بیش از یکبار برنامه نوشته شده است:

' Visual Basic 2005

' Assumes that the Make Single Instance Application checkbox in the 

' Project Designer has been checked.



Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _

ByVal e As Microsoft.VisualBasic.ApplicationServices. _

StartupNextInstanceEventArgs) Handles Me.StartupNextInstance

    MsgBox("The application is already running!")

End Sub

ولی Me متدی به نام StartupNextInstance ندارد؟؟؟
برای همین خطا می گیرد. علت چی هست؟

[shima818]

من از کد زیر استفاده می کنم:

Function PrevInstance() As Boolean
If UBound(Diagnostics.Process.GetProcessesByName(Diag nostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Return True
Else
Return False
End If
End Function

[reza_23]

شما می توانید در تنظیمات برنامه این را اعمال کنید
به تنظیمات پروژه خود رفته و در بخش اول قسمتی به نام run one ...است آنرا چک مارک بزنید

[Sharif Lotfi]

به لینک زیر مراجعه کن :
https://barnamenevis.org/showth...1+%C7%CC%D1%C7

[Sharif Lotfi]

انگار لینکه مورد داشت . برات نوشتمش :

    Private Sub check_in_process_this_program()

        If (UBound(Diagnostics.Process.GetProcessesByName(Dia  gnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then

            MsgBox("**این برنامه اکنون در حال اجرا می باشد** شما نمی توانید نسخه دیگری از آن را اجرا کنید.", MsgBoxStyle.OkOnly, "اخطار")

            Beep()

            Application.ExitThread()

            Application.Exit()

        End If

    End Sub

[SYSMAN]

از همه دوستان ممنون ولی من می خواهم بدونم کدی که نوشته تو خود MSDN مشکلش چی هست؟؟
از Me.StartupNextInstance خطا می گیره!!!

[Sharif Lotfi]

مثالی که msdn نوشته باید توی فایل ApplicationEvents.vb نوشته بشه که این فایل در حالت نرمال hidden هستش. برای دیدن فایلهای hidden هم می دونید که چیکار باید بکنید .
پس برای نوشتن کد فوق در مرحله اول شما روی نام پروژه در Solution Explorer راست کلیک کرده Properties را انتخاب کنید . تب Application را انتخاب کنید .
چک باکس مربوط به اجرای یکبار برنامه را تیک بزنید (Make single instance application )
دکمه View Application Events را کلیک کنید فایل ApplicationEvents.vb ظاهر می شود درون این فایل از مستطیلهای بالا مربوط به کلاس و متد می توانید Application Events و متد StartupNextInstance را انتخاب کنید . مثال msdn را اینجا بنویسید و آخر سر هم حالشو ببرید.