ReplaceImageListView

Синтаксис

sub ReplaceImageListView( gadget As Long, iItem As Long, iSubItem As Long , image as Hbitmap)

Описание

Изменяет изображение в пункте ListViewGadget. Возможно, если новое изображение будет меньшего размера, то старый рисунок будет перерисован не полностью, то есть новый наложится на старый. После использования функции ReplaceImageListView желательно обновлять пункт с помощью функции UpdateItem

Параметры

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

iItem - индекс пункта

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HBITMAP bmp(3)
bmp(0) = Load_image("1.png")
bmp(1) = Load_image("2.png")
bmp(2) = Load_image("3.png")
bmp(3) = Load_image("4.png")
OpenWindow("Привет",10,10,500,500)
ListViewGadget(1,10,10,100,140)
AddListViewColumn(1, "Столбец",0,0,100)
For aa As Integer=0 To 2
  AddListViewItem(1,"item №"+Str(aa),bmp(aa),aa,0)
Next
Do
   Var event=WaitEvent()
   If Event=EventClose Then End
   If event=EventLBDown Then
       If EventNumberListView=1 Then
           ReplaceImageListView(1,GetItemListView,GetSubItemListView,bmp(3))
       EndIf
   EndIf
Loop

Created with the Personal Edition of HelpNDoc: Full featured Help generator