SetListBoxItemText

Синтаксис

sub SetListBoxItemText(ByVal gadget As long, ByRef text As String, ByVal Item As long)

Описание

Изменяет текст в указанном пункте ListBox

Параметры

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

text - новый текст для пункта

Item - индекс пункта, для которого надо поменять текст

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,200,200)
ListBoxGadget(1,10,10,100,100)
AddListBoxItem(1,"1 String")
AddListBoxItem(1,"2 String")
ButtonGadget(2,10,120,130,20,"Заменить текст")
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
     case eventgadget
        If EventNumber = 2 Then
           SetListBoxItemText(1,"new string",1)
        EndIf
  End Select
Loop

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator