Function GetItemCountListView(ByVal gadget As long) As Integer
Получает кол-во пунктов в гаджете
gadget - номер гаджета
Windows , Linux
#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,200,200)
ListViewGadget(1,10,10,180,180)
AddListViewColumn(1, "столбец",0,0,180)
AddListViewItem(1,"item № 0",0,0,0)
AddListViewItem(1,"item № 1",0,1,0)
Do
Var event=WaitEvent()
If Event=EventClose Then End
If event=EventLBDown Then
If EventNumberListView=1 Then
? GetItemCountListView(1)
EndIf
EndIf
Loop
2
Created with the Personal Edition of HelpNDoc: Produce electonic books easily