AddComboBoxImageItem

Синтаксис

sub AddComboBoxImageItem(ByVal gadget As long, ByRef txt As String, ByVal IDImage As HBITMAP, ByVal pos As Long)

Описание

Позволяет добавлять(вставлять) пункты в ComboBoxImageGadget с изображениями.

Параметры

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

txt - любая строка

IDImage - хендл изображения

pos - номер пункта ComboBoxGadget (если будет -1, то вставляется в конец листа)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
If OpenWindow("",10,10,300,300) Then
  ComboBoxImageGadget(1,10,10,100,100)
  AddComboBoxImageItem(1,"two",Load_image("1.png"),-1)
EndIf
Var event=0
Do
  event=WaitEvent()
  If Event=EventClose Then End
  If event=eventgadget Then
     If eventnumber()=1 Then
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write eBooks for the Kindle