برنامه دوبار همزمان اجرا نشه

[Alirezagoodarzi]

موقعی که برنامه در حال اجراست اگه نخواهیم کاربر بتونه رو همون کامپیوتر یک بار دیگه یه نسخه جدید اجرا کنه این کد رو اول کار میذاریم.:چشمک:



Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "این برنامه هم اکنون در حال اجراست", vbCritical
Unload Me
End If
End Sub

[Bithiah]

یه کم آسون بود، ولی ممنون. زحمت کشیدین

[ehsan_ansaripoor]

دوست عزیز بهتره این کد را داخل روال ()Main داخل Model اجرا کنی


Public Sub Main()
If App.PrevInstance = True Then
MsgBox "کاربر گرامی برنامه در حال اجراست", vbExclamation + vbMsgBoxRight, ""
Exit Sub
End If
End Sub

[mostafa304]

آقا به جای exit sub یا unload me بهتره بنویسی end .
چون اون دو تا رو که استفاده میکنی برنامه به طور کامل از حافظه خارج نمیشه