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

[ali_1234]

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

[aryasoft2872]

اینو ببین (شاید راه منظقی دیگه ای هم باشه:چشمک:)

Private Sub Command_Click()
Dim Mem As String
Mem = List.List(List.ListIndex)
List.RemoveItem List.ListIndex
List.AddItem Mem, 0
End Sub

[ali_1234]

سلام دوست عزیز aryasoft2872 خیلی ممنون که جواب دادی من یه ایده دارم ولی نمی دونم چطور اجراش کنم اونم اینکه نمیشه لیست باکس یه حالت جرخشی داشته باشه یعنی آیتم های اون بصورت یه زنجیر به هم وصل شده باشن. فکر کنم اگه بشه لست باکس رو اینطوری کرد مشکل حل بشه. بازم ممنون که جواب دادین............

[aryasoft2872]

منظورتون اینه که اگه از 10 تا بیشتر شد دیگه از اول وارد کنه؟

[ali_1234]

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

[aryasoft2872]

نامفهوم بود میشه یگید می خواید چی کار (ای شیطون نکنه سرکاریه!!!!!!!)

[IamOverlord]

سلام دوست عزیز!
این کد برای اینه که لیست به صورتی که خواستید بیاد پایین:

Mem = List1.List(List1.ListCount - 1)
For i = List1.ListCount - 2 To 0 Step -1
List1.List(i + 1) = List1.List(i)
Next i
List1.List(0) = Mem
اگر برعکسش رو لازم دارین بگید...
:چشمک:

[ali_1234]

سلام دوست عزیز IamOverlord خیلی ممنون که جواب دادین ولی اون لیستی که مد نظره منه حدود پانزده هزار آیتم داره و این کد خیلی طول می کشه تا لود بشه.

و در مورد دوست عزیزمون aryasoft2872 باید بگم این کد قراره در یک دیکشنری به کار برده بشه و من هم هیچ وقت به خودم اجازه نمی دم تا شما عزیزان را اذیت کنم.

بازم ممنون که جواب دادید..............

[aryasoft2872]

الان فهمیدم منظورت چیه ولی با لیست باکس معمولی فک نکنم بشه (اگه می شد حتما تا الان گفته بودند:متفکر:) ولی Powerlistbox رو امتحان کن ببین همچین قابلیتی نداره.(تو تاپیک اکتیوایکس های کاربردی)

[ali_1234]

نه Powerlistbox به برنامه من نمی خوره بازم ممنون که توجه کردی زیاد خودتو اذیت نکن ولی اگه بازم راه حلی پیدا کردی به ما هم خبر بده.:بوس: