فكوس كردن روي برنامه

[ebrahimv]

من يه برنامه دارم كه هميشه كنار ساعت تو try هست و امكان داره كاربر ندونه كه برنامه پاينه براي همين مياد دوباره برنامه رو اجرا ميكنه
برنامه هم جوري تنظيم شده كه دوبار اجرا نشه
حالا ميخوام اگه كاربر دوباره برنامه رو اجرا كرد برنامم از كنار ساعت بياد بالا مثل ياهو مسنجر
ممنون ميشم اگه راهنمايي كنيد

[majidbahrami]

خوب با استفاده از کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (Duplicate) برنامه جلوگيري کنيد


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

[ebrahimv]

درسته با همين دستور از اجراي مجدد جلوگيري كردم
حالا بايد يه جوري به كاربر بفهمونم كه برنامه كنار ساعت هست لازم نيست اجراش كنه
و به نظرم بهترين روش اينه كه برنامه رو بيارم بالا مثل ياهو و كاربر بفهمه

[SlowCode]

سلام
با تابع sendmessage میتونی این کار رو بکنی، چند وقت پیش آقای واژدی یه مثال زده بودن جستجو کن پیداش میکنی، توی گوگل هم بگرد.
فقط این تابع رو باید توی خط سوم بنویسی.


Private Sub Form_Load()
If App.PrevInstance = True Then
' sendmessage
Unload Me
End If
End Sub