کپی کردن اطلاعات لیست

[star_star]

سلام یه لیست باکس دارم که توی اون 2000 تا شماره دارم ؛ میخوام بدونم با چه سورسی میشه به اول همه ی این شماره ها 98 رو اضافه کرد و همه رو به یه لیست دیگه ( لیست دوم ) انتقال بدیم ؟

[the king]

سلام یه لیست باکس دارم که توی اون 2000 تا شماره دارم ؛ میخوام بدونم با چه سورسی میشه به اول همه ی این شماره ها 98 رو اضافه کرد و همه رو به یه لیست دیگه ( لیست دوم ) انتقال بدیم ؟


Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem "98" & List1.List(i)
Next

[m2011kh]

سلام.
شما دو لیست داری به نام های List1 و List2.
در لیست اول تعداد زیادی ایتم دارید و میخواهید در اول همه ی این ها عدد 98 رو اضافه و به لیست دو اضافه کنید.

خب یه کامند ایجاد کنید و این کد هارو داخلش بنویسید:


Dim i As Long
For i = 0 To List1.ListCount - 1
List2.AddItem "98" & List1.List(i)
Next i
توضیح کد:
حلقه ای رو به تعداد ایتم های لیست اول ایجاد میکنیم.هر ایتم رو بعد از عدد 98 قرار میدیم و در لیست دوم ادد میکنیم.

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

MMD


آقای THE KING جان معذرت میخوام بعد از این که پاسخ رو دادم و صفحه رو لود کردم دیدم که شما زود تر پاسخ دادید.