نحوی گرفتن تکست آیتم های لیست ویو با کلیک بر روی هر آیتم

[امین پوراباذری 1,045]

سلام دوستان من یک لیست ویو دارم که از دیتابیس فراخونی میشه حالا من می خوام وقتی لیست ویو فراخونی شد و ایتم هاش نمایش داده شدن با کلیک بر روی هر آیتم تکست همون آیتم را بگیرم بریزم داخل یک ادیت تکست ناگفته نماند که لیست ویو شاید 10 هزار آیتم داشته باشد چکار باید کنم . ممنون میشم راهنماییم کنید.

[پژمان نیکروان 6,055]

Sub listview1_ItemClick (Position As Int, Value As Object)

edittext1.text=listview1.GetItem(Position)

End Sub

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

سلام

خب شما تنها کاری که می کنید اینه که واسه لیستتون مقدار برگشتی قرار میدید.

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

یعنی این :
 

lv.AddSingleLine2

lv.AddTwoLines2

خب پس شما ارگومان اخر رو به عنوان مقدار بازگشتی میدونید

حالا شما قصد دارید روی هر ایتم کلیک شد متن مربوط به همون ایتم نشون داده بشه ؟
کار ساده اییه ببینید شما طبیعتا توی دیتابیس ستون id  دارید.خب شما بیا اینجا مقدار بازگشتی رو همین ایدی بزار

مثلا :

Dim Cr As Cursor
Cr = SQL.ExecQuery("SELECT * FROM tbl")
For i = 0 To Cr.RowCount - 1
 Cr.Position = i
 Lv.AddSingleLine2(Cr.GetString("title"),Cr.GetInt("id")
Next

خب اینجا اومدیم موضوع یا همون عنوان رو گرفتیم و id  رو مقدار بازگشتی قرار دادیم

حالا چیکار کنیم مطلب هر ردیف رو بگیریم ؟

به این شکل :

Sub lv_ItemClick(Position AS Int,Value As Object)
 Dim Cur As Cursor
 Cur = SQL.ExecQuery("SELECT * FROM tbl WHERE id="&Value)
 Cur.Position = 0
 EditText1.Text = Cr.GetString("Text")
End Sub

به همین سادگی.