Printable View
***********نقل قول:
یعنی Dim u As Integer .../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************************
اون تابع سیستمی SHRestartSystemMB رو فکر کنم اضافه فراخوانی کردید.../// جایی تو کد ها استفاده نشده.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تایید میشه .. خودم نمی دونم چرا اینو فرا خونی کردم شاید شب خستم بوده برای خند گذاشتمش!!!نقل قول:
اون تابع سیستمی SHRestartSystemMB رو فکر کنم اضافه فراخوانی کردید.../// جایی تو کد ها استفاده نشده...///
اما بازم ببخشید از دوست خوبمون واقعا یک چند سرم شلوغ شده و نمی رسم جواب بدم ببین دقیقا بعد از انجاییکه رویداد کلیک موس اتفاق می افته یعنی خط زیر:
فرم رو غیر فعال کن یعنی بنویسکد:Private Sub Picture1_Click(Index As Integer)
و در تایمر 3 انجایی که تایمر 3 رو غیر فعال می کنه یعنیکد:Form38.Enabled = False
فرم رو فعال کن یعنی بزار :کد:Private Sub Timer3_Timer()
If stop_mo = False Then
Picture1(num).Left = Picture1(num).Left - x
Picture1(num).Top = Picture1(num).Top - y
Timer2.Enabled = False
Image1.Visible = False
Picture1(num).Visible = True
Label2.Caption = Label2.Caption - 1
ZoomPicture Picture1(num), Label2.Caption 'shrink it
If Label2.Caption = -80 Then
Label2.Caption = 0
Timer3.Enabled = False
اینجوری مشکل حل میشه من در برنامه ای برات گذاشتم از متغیر boolean به نام stpo_mo می خواستم استفاده کنم که انگاری درست ننوشتمش و اون مشکل هنوز پا برجاست >>ببخشید..کد:Form38.Enabled = True
اگر خواستی از اون روش هم میشه اونجوی دیگه صدای هشدار سیستم هم نمیاد.. اگر نتوانستی بگو تا کلا کد درست شده رو بزارم الان وقتم ندارم مگر نه با همون روش برات درست می کردم
بازم ببخشید بابت کد که اشکال داشت..
ممنون دوست من مشكلم حل شد
خسته نباشي:n16::n12: