GetTextItemListView

Синтаксис

Function GetTextItemListView(ByVal gadget As long, ByVal Item As long, ByVal SubItem As Long) As String

Описание

Получает текст из указанного пункта(подпункта) гаджета

Параметры

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

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("Привет",10,10,400,380)
#Ifdef __FB_WIN32__
Var Style=LVS_EX_FULLROWSELECT
#Else
Var Style=0
#EndIf
ListViewGadget(1,10,10,310,300,Style)
AddListViewColumn(1, "1 столбец",0,0,100)
AddListViewColumn(1, "2 столбец",1,1,100)
AddListViewColumn(1, "3 столбец",2,2,110)
For aa As Integer=0 To 15
  AddListViewItem(1,"item №"+Str(aa),0,aa,0)
  AddListViewItem(1,"item №"+Str(aa+18),0,aa,1)
  AddListViewItem(1,"item №"+Str(aa+36),0,aa,2)
Next
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventLBDown Then
     If EventNumberListView= 1 Then
        ? GetTextItemListView(1,GetItemListView,GetSubItemListView) 'результат в консоли
     EndIf
  EndIf
Loop

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