Function GetListBoxText(ByVal gadget As Long, ByVal item As Long) As String
Позволяет получать текст ListBoxGadget из пункта, указанного в параметре item
gadget - номер гаджета
item - индекс пункта
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,300,140)
ListBoxGadget(1,10,10,100,80)
AddListBoxItem(1,"Привет0")
AddListBoxItem(1,"Привет1")
AddListBoxItem(1,"Привет2")
TextGadget(2,150,10,100,20)
Do
var event=WaitEvent()
If event=eventclose Then End
If event=eventgadget Then
If eventnumber()=1 Then
setgadgettext(2,GetListBoxText(1,GetItemListBox(1)))
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source