AddListViewItem

Синтаксис

Function AddListViewItem( iGadget As Long, sText As String, IDImage As HBITMAP, iPos As Long, iSubItem As Long, iMaskItem As Long =LVIF_TEXT Or LVIF_IMAGE) As integer

Описание

Добавляет пункты в столбцы. Важно! Вы должны помнить, что добавление пунктов нужно осуществлять с нулевого столбца. Нулевой столбец является основным. И если мы попытаемся добавлять в 1 или 2 , не добавив в основной, то заполнения не произойдет! Функция возвращает индекс изображения в списке изображений, который может пригодится для функции ReplaceImageListView! Для Linux возвращаемое значение бесполезно.

Параметры

iGadget - номер гаджета

sText - строка в пункте

IDImage - хендл изображения

iPos - позиция в столбце

iSubItem - индекс столбца

iMaskItem - маска добавления нужных элементов, могут быть: LVIF_TEXT , LVIF_IMAGE , LVIF_PARAM , LVIF_STATE. По умолчанию стоят: (LVIF_TEXT,LVIF_IMAGE). Больше об этих и других параметрах можно почитать в MSDN. На Linux в параметре iMaskItem используются только стили LVIF_TEXT , LVIF_IMAGE

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,350,360)
#Ifdef __FB_WIN32__
Dim As Long iStyle = LVS_EX_FULLROWSELECT   Or LVS_EX_SUBITEMIMAGES
#Else
Dim As Long iStyle = 0
#EndIf
ListViewGadget(1,10,10,310,300,iStyle)
AddListViewColumn(1, "1 столбец",0,0,100)
AddListViewColumn(1, "2 столбец",1,1,100)
AddListViewColumn(1, "3 столбец",2,2,110)
Dim As Any Ptr icon = load_Image("1.ico",&hffffff)
For aa As Integer=0 To 15
  AddListViewItem(1,"item №"+Str(aa),icon,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),icon,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),icon,aa,2)
Next
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation