عدم اجرای مجدد برنامه

[heidar_jd]

با سلام

از کاربران عزیز تقاضا دارم اگر روشی درباره عدم اجرای مجدد برنامه در حین اجرا (bin) دارند ، جواب را برای بنده بگذارند.

با تشکر

[M.kavyani]

اگر از Vs2005 استفاده میکنی در بخش Myproject گزینه ای برای اینکار موجود است که با فعال کردن ان برنامه یه نسخه از برنامه اجرا میشود.

[heidar_jd]

سلام دوست عزیز
با تشکر از راهنمایی شما
ولی من از vb.net 2003 استفاده می کنم. لطفا در این خصوص راهنمایی کنید
با تشکر

[Amir Taghavi]

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

            messagebox.show("programe is run")

            If MsgReturn = 1 Then

                            End

            End If

        End If

اینو تو رویداد load فرم بنویس

[heidar_jd]

سلام آقا امیر
چطوری یا نه؟؟؟

[rezaei manesh]

امیر درست می گه من هم از این روش استفادخ می کنم
If (UBound(Diagnostics.Process.GetProcessesByName(Dia gnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
MissageBox.SShow("**این برنامه اکنون در حال اجرا می باشد** شما نمی توانید نسخه دیگری از آن را اجرا کنید.", "اخطار", frmMessageBox.mButtons.Ok)
Beep()
If MissageBox.ShowDialog() = 1 Then
Application.ExitThread()
Application.Exit()
End
End If
End If

[visual_basic]

سلام دوستان
فرض کنید تو برنامه با زدن دکمه ای فایلی (اجرایی)فراخوانده میشود حالا من میخوام بررسی کنم که اگر فایل باز بود ، فایل رو مجددا باز نکنه . چه کدی باید بنویسم؟

[shahrdar]

استاندارد ترین و منطقی ترین روش اینه
از داخل My Project در قسمت Application دکمه View Application Events رو زده و از رویدادها ،رویدد startupnextinstance رو انتخاب کنید
من همیشه از این کد استفاده میکنم

        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupN  extInstanceEventArgs) Handles Me.StartupNextInstance

            e.BringToForeground = True

        End Sub

[visual_basic]

استاندارد ترین و منطقی ترین روش اینه
از داخل My Project در قسمت Application دکمه View Application Events رو زده و از رویدادها ،رویدد startupnextinstance رو انتخاب کنید
من همیشه از این کد استفاده میکنم

        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupN  extInstanceEventArgs) Handles Me.StartupNextInstance

            e.BringToForeground = True

        End Sub

آقا نشد ، چرا؟؟؟

کد رو میشه کمی توضیح بدین.