קצת הסבר על השימוש...
הפקד בעצם עובד כמו טבלה עם שדות ורשומות הקוד הזה בונה 4 שדות
Dim col As ColumnHeader Dim list As ListItem For i = 1 To 4 Set col = ListView1.ColumnHeaders.Add() col.Text = "Num " & i - 1 col.Width = ListView1.Width / 4 Next i
Set list = ListView1.ListItems.Add() list.Text = "1" Set list = ListView1.ListItems.Add() list.Text = "2" Set list = ListView1.ListItems.Add() list.Text = "3" Set list = ListView1.ListItems.Add() list.Text = "4" והקד הזה בונה 4 רשומות עכשיו אם אני רוצה לרשום משהוא ברשומה הראשונה בשדה השני אני חייב לעבור דרך השדה הראשון אז כך...
ListView1.ListItems(1).ListSubItems.Add , , "0" ListView1.ListItems(1).ListSubItems.Add , , "1"
בהצלחה...
