Function GetItemListBox(ByVal gadget As Long) As Integer
Получает позицию выделенного пункта в ListBoxGadget
gadget - номер гаджета
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,"Выбрать пункт и кликнуть здесь")
Do
var event=WaitEvent()
If event=eventclose Then End
If event=eventgadget Then
If eventnumber()=2 Then
Print GetItemListBox(1)
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents