DeleteItemPanelGadget

Синтаксис

sub DeleteItemPanelGadget(ByVal gadget As Long, ByVal item As Long)

Описание

Позволяет удалять определенную вкладку из PanelGadget.

Параметры

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

item - индекс удаляемой вкладки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,dd,ff
Dim pan(20) As HWND
hwnd=OpenWindow("PanelGadget",10,10,500,500) : CenterWindow(hwnd)
PanelGadget(1,0,0)
For a As Integer=0 To 20
  Var b=Str(a)
  pan(a)=AddPanelGadgetItem(1,a,b)
Next
HideWindow(pan(0),0)
Do
  event=WaitEvent
  If event=EventRBDown Then    ' click right mouse
     DeleteItemPanelGadget(1,0) ' delete 0 index panelgadget
  EndIf
Loop Until event=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator