حرکت در لیست باکس

[saeed 444]

با سلام خدمت شما بزرگواران

من اطلاعان بانکم رو که اکسس هست هنگام اجرا در لیست باکس میبینم حالا میخوام برای انتخاب ستونهاش
باتن next و pre بگذارم
در صورت امکان راهنمایی کنید
با کمال تشکر ...

[Hossis]

با سلام
این دو قطعه کد برای بالا و پایین رفتن در لیست
در اسم لیست باکس هم دقت کنید:LS (من اسم مختص می گذارم)


Private Sub cDown_Click2() Handles tbDown.Click
With Ls
If .Items.Count = .SelectedIndex + 1 Then Exit Sub

Dim g As Integer = .SelectedIndex
Dim lvc As Object = .SelectedItem
.Items.Remove(.SelectedItem)
.Items.Insert(g + 1, lvc)

.SelectedItem = .Items(g + 1)

End With
End Sub

Private Sub cUp_Click() Handles tbUp.Click
With Ls
Dim g As Integer = .SelectedIndex
If g = 0 Then Exit Sub
Dim lvI As Object = .SelectedItem
.Items.Remove(.SelectedItem) '.Clear()
.Items.Insert(g - 1, lvI)
.SelectedItem = .Items(g - 1)
End With
End Sub