PDA

View Full Version : سوال: افزودن تعداد نا محدود SubItem به Listview از طریق کد نویسی؟



Babak.Hassanpour
سه شنبه 21 خرداد 1387, 19:17 عصر
سلام
من با کد زیر توی لیست ویو آیتم و ساب آیتم میسازم.البته قبلش توی قسمت خصوصیات لیست ویو ,در بخش هدر ستون ها به تعداد مورد نیاز , ستون به عنوان ساب آیتم اضافه میکنم



Private Sub Command1_Click()

Dim lList As ListItem
Set lList = Form1.ListView.ListItems.Add(, , Text1)
lList.SubItems(1) = Text2

End Sub

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

Mbt925
چهارشنبه 22 خرداد 1387, 12:51 عصر
جوابتون واضحه.

مشکل محدود بودن تعداد ستون هاست، برای حل این مشکل هر تعداد ستون که لازم دارین در زمان اجرا اضافه کنید.



ListView1.ColumnHeaders.Add (index, key, text, width, alignment, icon)