View Full Version : سوال: حرکت در لیست باکس
saeed 444
جمعه 03 آذر 1391, 21:55 عصر
با سلام خدمت شما بزرگواران
من اطلاعان بانکم رو که اکسس هست هنگام اجرا در لیست باکس میبینم حالا میخوام برای انتخاب ستونهاش
باتن next و pre بگذارم
در صورت امکان راهنمایی کنید
با کمال تشکر ...
Hossis
شنبه 04 آذر 1391, 23:31 عصر
با سلام
این دو قطعه کد برای بالا و پایین رفتن در لیست
در اسم لیست باکس هم دقت کنید: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.