ایجاد seekbar

[reza644 435]

سلام ببخشید هیجا درمورد ایجاد seekbar بحث نشده

 

کسی میتونه طرز ساخت یه seekbar ساده رو بگه

 

تشکر

[alireza_hsi 160]

شما اول سرچ کنید خیلی نمونه برنامه کار با seekbar  هست  اصلا لازم نیست معطل بشی جواب بگیری

حداقل 5 تا لینک الان دیدم

[reza644 435]

سرچ میکنم

[مهدی کفشگر 548]

 

من فقط این قسمت رو نمیفهمم

(Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean

end sub

این کد برای seekbar که میگه زمانی که شما value رو تغییر دادید چه دستوری رو اجرا کنه و شما باید کد های مربوطه رو میان این کد بنویسید دیگه.Sub و End Sub

[reza644 435]

این قسمت ذرست نوشته شده؟

کار نمیکنه

Sub CheckBox1_CheckedChange(Checked As Boolean)
   If Checked = True Then
   timer11.Initialize("timer11",100)
   timer11.Enabled=True
   	ImageView0.Visible=True
	ImageView2.Visible=False
	Flash.FlashTorch
	Flash.StartPreview
	seekbar1.Enabled=True
   Else
   	ImageView2.Visible=True
	ImageView0.Visible=False
	Flash.FlashOff
	timer11.Enabled=False
	timer22.Enabled=False
	seekbar1.Enabled=False
   End If
End Sub
Sub seekbar1_ValueChanged (Value As Int, UserChanged As Boolean)
timer11.Initialize("timer11",Value*1000)
timer22.Initialize("timer22",Value*1000)
End Sub
Sub timer11_tick
	ImageView2.Visible=True
	ImageView0.Visible=False
	Flash.FlashOff
	timer22.Initialize("timer22",100)
	timer22.Enabled=True
	
End Sub
Sub timer22_tick
	ImageView0.Visible=True
	ImageView2.Visible=False
	Flash.FlashTorch
	Flash.StartPreview
	timer11.Initialize("timer11",100)
	timer11.Enabled=True

End Sub

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

این کد دقیقا چ کاری رو انجام میده ؟

آیا فلش و روشن خاموش میکنه ؟

یا یه کار دیگه ؟

[reza644 435]

فلش رو روشن خاموش میکنه + تعویض عکس

فقط اولاش کار میکنه