LenItemTextListBox

Синтаксис

Function LenItemTextListBox(ByVal gadget As Long, ByVal item As Long) As Integer

Описание

Возвращает длину строки указанного пункта

Параметры

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,400,150)
ListBoxGadget(1,10,10,100,80)
AddListBoxItem(1,"Привет0",-1)
AddListBoxItem(1,"Привет1",-1)
AddListBoxItem(1,"Привет2----",-1)
ButtonGadget(2,150,10,220,20,"Длина строки пункта № 1")
ButtonGadget(3,150,35,220,20,"Длина строки пункта № 2")
StringGadget(4,220,60,80,20,"",ES_CENTER)
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetGadgetText(4,Str(LenItemTextListBox(1,1)))
     elseIf eventnumber()=3 Then
        SetGadgetText(4,Str(LenItemTextListBox(1,2)))
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator