کنترل تایمر

[night_secret]

این کدهایی که در timer به کار میهد امیدوارم کمک کرده باشم با تشکر!

Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 1
End Sub

Private Sub Timer1_Timer()
Timer2.Enabled = False
If Form3.Left < Screen.Width - Form3.Width Then
Form3.Left = Form3.Left + 150
Else
Timer2.Enabled = True
Form4.Show
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
If Form3.Left > 0 Then
Form3.Left = Form3.Left - 150
Else
Timer1.Enabled = True
End If
End Sub

[mamd_br_iq]

سلام , ممنون برای این کدها اگه ممکنه باز از این کدهای آموزشی برای ما بگزارید:لبخندساده:

[night_secret]

محتما بازم خواهم گذاشت :متفکر:

[ramsess]

مرسی ار کدهاتون
دوستان من یه مشکلی دارم وقتی کد حرکت مثلا یک پنل رو می نویسم وقتی که حرکت می کنه دیگه وای نمی سه از صفحه خارج می شه با وجودی که کدی که نوشتم مثلا برای 500 twipهستش با این مقدار نباید زیاد حرکت کنه! - داستان چیه؟
لطف کنید و کدی رو برای این کاری که می خوام بگید
من یک شی دارم بنام Pnlmain و یک فرم به اسم Frmrep وقتی که یک دکه رو زدم فرم از منتها علیه سمت چپ بیاد و تا وقتی که 2000 twip مونده به سمت چپ وایسه و این کار آهسته صورت بگیره
ضمنا وقتی که رو PnlMain کلیک کردم به سمت چپ - سر جای خودش بره . مرسی