حرکت در آیتم های DataList

[ali reza mansoori 2]

دوستان می خواستم با دو کلید پایین و بالا یک آیتم از DataList رو انتخاب کنم ولی نمیدونم چطور باید این کارو انجام بدم.
البته این کار در ListBox به راحتی انجام می گیره.
اگر کمکم کنید ممنون میشم.

[sajjad_india]

دوستان می خواستم با دو کلید پایین و بالا یک آیتم از DataList رو انتخاب کنم ولی نمیدونم چطور باید این کارو انجام بدم.
البته این کار در ListBox به راحتی انجام می گیره.
اگر کمکم کنید ممنون میشم.


بفرما :



Dim HotItem1 As Integer

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If HotItem1 <> List1.ListIndex Then
If HotItem1 > -1 Then
a = List1.List(HotItem1)
b = List1
List1.List(List1.ListIndex) = a
List1.List(HotItem1) = b
End If
HotItem1 = List1.ListIndex
List1_Click
End If
Else
HotItem1 = -1
End If

End Sub

مبنع (http://www.bigresource.com/VB-Moving-items-from-one-datalist-box-to-another-Access--KxuLYMMQvD.html)

[ali reza mansoori 2]

دوست عزیز منظور من DataList بود نه ListBox
ِDataList متد ListIndex ندارد

[ali_habibi1384]

Private Sub DataList1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then MsgBox DataList1.Text
End Sub

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

[ali reza mansoori 2]

دوستان عزیز از این که راهنمایی می کنید ممنون ولی فکر کنم درست متوجه سوال من نشدید اگر امکان داره فایل ضمیمه رو نگاه کنید بهتر متوجه میشید:متفکر: