مشکل در بازگشت به گزينه انتخاب شده در ليست باکس

[masoud.a]

سلام
ليست باکسي که ايجاد کردم چندتا سطر داره که با Enter زدن روي هر کدومشون يه ليست باکس جديد مخصوص واسه خودش ايجاد ميکنه و با زدن Esc به صفحه قبلي بر ميگرده.
مشکل اينه که چطوري Esc که زدم روي همون سطري که انتخاب شده بود برگرده؟(اون سطر Select باشه)

[pooya1072]

سلام
ایندکس سطری که انتخاب بوده رو داخل یه متغیر مثل M نگه دار , بعد با زدن دکمه Esc تعریف کن که در لیست باکس مورد نظر سطر با ایندکس M انتخاب بشه.

[masoud.a]

ممنون از جوابتون ولی برای این کار هیچ متدی نیست؟آخه نمیخواستم برای ایندکس ها یکی یکی این کارو انجام بدم

[alimanam]

با سلام

یه آرایه لیست ایجاد کنید و آدرس اندیس هر لیست باکس رو بهش اضافه کنین و وقتی میخواین از این اندیس ها استفاده کنین ( سطر مورد نظر رو سلکت کنین ) از این آرایه لیست استخراج کنین .

Public ListIndex As New ArrayList


ListIndex.Add(ListBox4.SelectedIndex)
ListIndex.Add(ListBox5.SelectedIndex)
ListIndex.Add(ListBox6.SelectedIndex)


ListIndex(0)

موفق باشید./

[masoud.a]

از شما هم خیلی ممنونم ولی اگه ممکنه بگید که کجا و چطوری ازش استفاده کنم.
این کدم برای بعد Enter شدن به :

If (Index_Of_ListMenu) = 0 Then
Main_Form.SelectAct = "B"
این هم برای بازگشت :

ElseIf Main_Form.SelectAct = "B" Then
Main_Form.SelectAct = "A"

البته بالا تر آیتم های لیست باکس add میشن

[alimanam]

با سلام

از سورسی که ضمیمه کردم کمک بگیر .

موفق باشید./

[masoud.a]

متوجه نشدم چیکار میکنه