Function FindItemComboBox(ByVal gadget As Long, ByRef sItem As String, ByVal Startpos As Long = -1) As Integer
Производит поиск строки в ComboBoxGadget. Найденный пункт со строкой становится выбранным в ComboBoxGadget. Возвращает индекс найденного\выбранного пункта со строкой (отсчет с нуля).
gadget - номер гаджета
sItem - искомая строка
Startpos - стартовая позиция для поиска. По умолчанию стоит поиск сначала.
Windows , Linux
#Include "window9.bi"
#Ifdef __FB_WIN32__
Var h = 80
#Else
Var h = 30
#EndIf
OpenWindow("",10,10,400,150)
ComboBoxGadget(1,10,10,100,h)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2----",-1)
ButtonGadget(2,150,10,220,25,"Искать строку Привет1")
Do
var event=WaitEvent()
If event=eventclose Then End
If event=eventgadget Then
If eventnumber()=2 Then
Print FindItemComboBox(1,"Привет1")
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Easy EPub and documentation editor