اضافه کردن به listview

[niksalehi]

سلام دوستان، پیشاپیش سال نو مبارک...
من یک لیست ویو دارم که میخوام به ردیف دوم از ستون دومش یه چیزی اضافه کنم. توی عکس مشخص کردم...

عکــــــس

ممنون میشم کدی واسه این کار بدین، لطفا درباره کدی هم که میزارید یه توضیح کوچیکی بدین

[ho3ein.3ven]

سلام.

sample list view.zip

[سپهر-111]

سلام دوستان، پیشاپیش سال نو مبارک...
من یک لیست ویو دارم که میخوام به ردیف دوم از ستون دومش یه چیزی اضافه کنم. توی عکس مشخص کردم...

عکــــــس

ممنون میشم کدی واسه این کار بدین، لطفا درباره کدی هم که میزارید یه توضیح کوچیکی بدین

باسلام
چطور میشه به لیست ویو ، اسکرول اضافه کرد ؟!
باتشکر

[ho3ein.3ven]

باسلام
چطور میشه به لیست ویو ، اسکرول اضافه کرد ؟!
باتشکر

سلام . اسکرول به صورت خودکار وقتی که تعداد آیتم ها زیاد بشه فعال میشه.

[سپهر-111]

سلام . اسکرول به صورت خودکار وقتی که تعداد آیتم ها زیاد بشه فعال میشه.

باسلام
ممنون از پاسخ شما
ولی در نمونه ای که شما گذاشته اید اسکرول فعال نمیشه ؟!

ممنون میشم راهنمایی بفرمایید

[ho3ein.3ven]

سلام مجدد .
همین الان که تست کردم مشکلی نداشت :

dddd.JPG

[niksalehi]

ممنون ازتون
حالا اگه بخوام ایتم های لیستباکس رو یکی یکی به ستون دوم و ردیف دوم اضافه کنم چیکار باید کنم؟

[ho3ein.3ven]

سلام.ضمیمه رو بررسی کنید .

sample list view.zip

[niksalehi]

وقتی روی کامند 3 کلیک میکنم این ارورو میده:
Run-time error '35600':
index out of bounds

[ho3ein.3ven]

دقیقا توضیح بدین که چه کاری میخواین انجام بدین

[niksalehi]

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

Dim x, y

For x = 1 To List1.ListCount - 1

y = List1.List(x)

  Set itm = dg.ListItems.Item(x)

    itm.SubItems(1) = y

Next x

[سپهر-111]

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

[ho3ein.3ven]

سلام . اینجوری که شما گفتین فک نکنم بشه .
ولی اینجوری میشه :

Private Sub ab_ItemClick(ByVal Item As MSComctlLib.ListItem)
For i = 1 To ab.ListItems.Count
ab.ListItems(i).ListSubItems(1).ForeColor = vbBlack
Next
Item.ListSubItems(1).ForeColor = vbRed
End Sub