ویرایش یک آیتم در لیست باکس

[vb2005]

سلام دوستان،چطورمیشه وقتی کاربر روی یک آیتم در لیست باکس کلیک میکنه متن اون آیتم دریک تکست باکس درج بشه وکاربر اون رو ویرایش کنه؟

[اوبالیت به بو]

Private Sub CmdChange_Click()
List1.List(List1.ListIndex) = listTxt.Text
End Sub
Private Sub List1_Click()
listTxt.Text = List1.List(List1.ListIndex)
End Sub
CmdChange: دكمه مورد نظر
ListTxt: يه TextBox هستش كه متن توش ميره و از اونجا ذخيره ميشه

[.:KeihanCPU:.]

البته اگه دستورات قسمت اول به جای اینکه توی یه Command باشه توی تغییرات یک تکست بود بهتر بود
Text.Change

قبل از

listTxt.Text = List1.List(List1.ListIndex)
یه دستور

Text.text=""
بنویسی بد نیست
با سپاس

[vb2005]

بسیارممنونم،مشکلم حل شد.

[اوبالیت به بو]

با خاصيت text هم مي تونيد اين كار رو انجام بدين:


Private Sub CmdChange_Click()
List1.Text = listTxt.Text
End Sub
Private Sub List1_Click()
listTxt.Text = List1.List(List1.ListIndex)
End Sub

در واقع اين دو تا كد تقريباً شبيه هم عمل مي كنن:

List1.List (List1.ListIndex) = List1.Text