UpdateItem

Синтаксис

Sub UpdateItem(ByVal gadget As long,ByVal item As long)

Описание

Обновляет пункт после перерисовки изображения. На Linux эта функция ничего не делает (попросту не требуется)

Параметры

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

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

Платформы

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
           dim as Long iItem = GetItemListView
           ReplaceImageListView(1,iItem,GetSubItemListView,bmp(3))
           UpdateItem(1 , iItem )
       EndIf
   EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free help authoring environment