سوال: اضافه کردن به listview [بایگانی]

niksalehi

جمعه 25 اسفند 1391, 16:18 عصر

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

عکــــــس
(http://www.uploadtak.com/images/o4943_Untitled.png)
ممنون میشم کدی واسه این کار بدین، لطفا درباره کدی هم که میزارید یه توضیح کوچیکی بدین :قلب:

ho3ein.3ven

جمعه 25 اسفند 1391, 17:17 عصر

سلام.

101488

سپهر-111

جمعه 25 اسفند 1391, 19:33 عصر

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

عکــــــس
(http://www.uploadtak.com/images/o4943_Untitled.png)
ممنون میشم کدی واسه این کار بدین، لطفا درباره کدی هم که میزارید یه توضیح کوچیکی بدین :قلب:

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

ho3ein.3ven

جمعه 25 اسفند 1391, 22:51 عصر

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

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

سپهر-111

جمعه 25 اسفند 1391, 23:10 عصر

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

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

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

ho3ein.3ven

جمعه 25 اسفند 1391, 23:20 عصر

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

101502

niksalehi

جمعه 25 اسفند 1391, 23:23 عصر

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

ho3ein.3ven

جمعه 25 اسفند 1391, 23:36 عصر

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

101504

niksalehi

جمعه 25 اسفند 1391, 23:41 عصر

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

ho3ein.3ven

جمعه 25 اسفند 1391, 23:46 عصر

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

niksalehi

جمعه 25 اسفند 1391, 23:57 عصر

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

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

شنبه 26 اسفند 1391, 15:24 عصر

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

ho3ein.3ven

شنبه 26 اسفند 1391, 15:38 عصر

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

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