پیغام دادن پروژه

[mahdi banki]

با سلام به دوستان عزیز
من کاربر جدید هستم و تا به حال به این سایت نیامده بودم تا این که یکی از دوستان این سایت را به من معرفی کرد و من هم با دیدن سایت علاقه مند شدم و ثبت نام کردم امید وارم که من را بپذیرید .

سوال :
من پروژه ای ساختم و آن را تبدیل به EXE کرده ام میخواهم در موقع باز بودن پروژه اگر دوباره کسی روی آیکن پروژه رفت پیغامی مبنی بر باز بودن پروژه بدهد .

با تشکر از دوستان گرامی ببخشید متنم طولانی شد .:خجالت::خجالت:

[Tasiyan]

Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
Unload Me
End If
End Sub

دوست عزيز قبل از ايجاد تاپيك حتما جستجو كنيد
موفق باشيد.
:لبخند:

[مهران رسا]

البته یک روش هم میشه پیاده کرد که اگه برنامه قبلاً اجرا شده باشه به جای پیغام دادن ، دوباره برنامه Active بشه . مثلاً اگر Minimize هست به حالت Normal برگرده .