سوال درباره اسلاید پنل

[آرمین بشارت 13]

سلام بچه ها، با چه کدی می شه کاری کردکه اسلایدپنل بدون دست زدن به اکتیویتی به صورت مرتب پنل هاش عوض شه؟ یعنی به کحض شروع اکتیویتی پنل ها یکی پس از دیگری پشت سرهم بیان.مرسی

[حاج حسین 2,098]

فک کنم با تایمر بشه این کارکرد 

مثلا تا اکتیوتی اومد هر پنل بعد مثلا 3ثانیه از راست به چپ عوض بشه و به آخر هم که رسید حرکتشو بلعکس کنه 

[مجید آرتا 5,875]

سلام

ببینید آیا توی سورس اسلاید پنلی که دارید تابعی به اسم ChangePanel  هستش ؟

Sub ChangePanel(Left As Boolean)
	SlidingPanels.ChangePanel(sd, Left)
End Sub

ببینید شما میتونید به وسیله 2 تا تایمر مثلا به چپ و راست این عملو انجام بدید.

مثلا ما 5 تا عکس یا پنل داریم :

Dim LeftMood As Int 
Dim RightMood As Int

Sub timerLeft_Tick
 if LeftMood < 6 Then
 ChnagePanel(True)
 LeftMood = LeftMood + 1
 Else
  LeftMood = 0
  timerLeft.Enabled = False
  timerRight.Enabled = True
 End if
End Sub

Sub timerRight_Tick
 if RightMood < 6 Then
 ChnagePanel(False)
 RightMood = RightMood + 1
 Else
  RightMood = 0
  timerRight.Enabled = False
  timerLeft.Enabled = True
 End if
End Sub

کد رو ذهنی نوشتم توی بیسیک تست کنید.

بازم میگم اگه تابع ChangePanel هستش میتونید انجام بدید