قابلیتScroll

[Amir 2010a]

سلام
من توی Emulator ویندوز موبایل 6 یک لیست باکس دارم که نام چند فایل داخلش نوشته شده وقتی با کلید های جهت نما به آخرین نام رسیدم باید دوباره به اولین آبجکت موجود در لیست باکس بره (مثل منوهای گوشی موبایل)
چه کدی باید بنویسم ؟

با تشکر

[vbworm]

راستش چیزی جز این نتونستم بنویسم :اشتباه:



Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = 40 And ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
ListBox1.SelectedItem = ListBox1.Items(0).ToString
Timer1.Interval = 1
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
ListBox1.SelectedIndex = 0
End Sub

[Hessam-08]

با سلام ؛
این هم یک کد بهینه تر !! :لبخند:
با این کد ، در صورت رسیدن به اوّل لیست ، به انتهای آن و در صورت رسیدن به انتهای لیست ، به ابتدای آن پرش خواهید کرد . :چشمک:



Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
If ListBox1.Items.Count = 0 Then Exit Sub
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 AndAlso e.KeyCode = Keys.Down Then
ListBox1.SelectedIndex = 0
ElseIf ListBox1.SelectedIndex = 0 AndAlso e.KeyCode = Keys.Up Then
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
End If
End Sub

' ×~[ Mega Hertz ]~×