نحوه جابجايي آيتمها درlistbox

[bps20590]

با سلام
من درداخل فرم برنامه يك عدد listbox ويكعددdbgrid دارم كه حاوي نام فيلدهاي جدول مي باشند حال مي خواهم كاربرباانتخاب يك آيتم از listbox وفشار دادن همزمان كليدهاي كنترل +فلش سمت بالا يا پائين آيتم مورد نظر جابجا شده ونيز اين جابجايي برروي dbgrid نيزهم زمان اجرا گردد چطور بايد اينكار را انجام دهم
لطفا راهنمايي كنيد

[SYNDROME]

ListBox2.ItemIndex : می توانید شماره سطری را که بر روی آن کلیک کرده اید به دست بیاورید.
سپس به یک عمل Switch مقدار سطر باید و پایین را عوض کنید.
مقدار سطر بالا را در یک متغییر بریزید و سپس مقدار سطر جاری را در سطر بالا و مقدار متغییر را در سطر جاری.


ListBox2.Items.Strings[Index]

برای دسترسی به مقدار ک سطر از دستور بالا استفاده کنید.
Index : شماهر سطر مورد نظر.
موفق باشید

[bps20590]

ضمن تشكر اين جابجايي را روي ستونهاي dbgrid چطور اعمال كنم بعنوان مثال با تعويض آيتم سوم ليست باكس به آيتم دوم چطور ستون سوم dbgrid با ستون دوم تعويظ شود