Private Sub Form_Load()
'устанавливаем режим "Таблица"
ListView1.View = lvwReport
'Добавляем главную колонку
ListView1.ColumnHeaders.Add Text:="ЭЛЕМЕНТ"
'в цикле добавляем четыре дополнительных колонки
For i = 1 To 4
ListView1.ColumnHeaders.Add Text:="Свойство № " & i
Next
For i = 1 To 10
With ListView1.ListItems.Add
.Text = "Элемент №" & i
'заполняем дополн. колонки
For j = 1 To ListView1.ColumnHeaders.Count - 1
.SubItems(j) = j & "-е свойство " & i & "-го элемента"
Next
End With
Next
End Sub
Private Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
MsgBox NewString
End Sub
FAKK2 писал(а):Sasha_karasov
Сходи по ссылке в моей подписи, пожалуйста.
context menu listview "visual basic 6"
VB Helper писал(а):HowTo: Display popup menus when the user right clicks over a ListView on or off of an item.
FAKK2 писал(а):Sasha_karasov
Гмм... Сходил? Прочитал?
Может теперь поймешь зачем я тебя туда послал?
FAKK2 писал(а):Sasha_karasov
Хмм, тебе нужен результат или шашечки?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 135