لرزاندن فرم .....؟؟؟!!

[Andy]

سلام به تمام دوستان
من میخوام بدونم چطور میشه یه فرم رو لرزوند ( مثل لرزوندن فرم yahoo messanger )
API داره ؟ یا چیز دیگه؟
مرسی

[MBeigy]

سلام دوست عزیز
من با یاهو مسنجر تا حالا کار نکردم :oops: ولی ببین این به دردت میخوره ؟
اول یک کترل تایمر روی فرم بذار بعد خاصیت Inteval اونو 100 قرار بده.

Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long

Private Sub Timer1_Timer()



Dim nReturnValue As Long



nReturnValue = FlashWindow(Form1.hWnd, True)



End Sub

موفق باشی

[Andy]

سلام
مرسی از جوابت ولی یا من بلد نبودم ازش استفاده کنم یا اون api کاری نمیکرد ؟؟!
اگه ممکنه کمی بیشتر توضیح بده یا یه مثال که از کارکردنش مطمئنی برام بفرست . :oops:
ممنون از کمک شما

[M-Gheibi]

Andy عزیز من جواب سوال شما را نمیدانم ولی اگر پیدا کردم حتماً میگم و همچنین کدی که جناب MBeigy عزیز فرستادند برای کار مورد نظر شما نیست ( البته این طور که من منظور شما رو فهمیدم). این API فقط برای فلاش دار کردن کد هست. یهنی بر اساس زمانی که به برنامه میدهید فرم را اکتیو (فعال) و غیر اکتیو (غیر فعال) میکند.

[Andy]

سلام
آقای غیبی من اینکارو با کد نویسی انجام دادم ، بیشتر منظور من پیدا کردن API برای اینکاره اگه بخواید میتونم کد رو در اختیارتون بذارم ولی اینو بگم که هر چی فرم بزرگتر باشه سرعت پایین میاد واسه همینم دنبال انجام اینکار با API هستم . اگه پیدا کردید ما هم التماس دعا داریم :wink:
ممنون ومتشکر

[M-Gheibi]

آقای Andy منم به ذهنم آمد که باید از طریق کد بشه (استفاده از تایمر و تغییر x و y فرم) ولی شرمنده هنوز چیزی پیدا نکردم :cry:

[Andy]

سلام
آقای غیبی درسته ،اینکار با با استفاده از یه for و تغییر top,left فرم امکان پذیره ولی همونطور که قبلا هم گفتم اگه فرم ما بزرگ باشه .و آبجکت های اون هم زیاد باشن سرعت کار پایین میاد
و ضایع میشه :oops: برای همین اگه ما این کار رو با استفاده از API انجام بدیم سرعتش بالاتر و درست تره.
من منتظر نظرات جدید شما هستم
مرسی