DeleteTreeViewItemAll

Синтаксис

Sub DeleteTreeViewItemAll(ByVal gadget As Long)

Описание

Удаляет все пункты из гаджета

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,tree
hwnd=OpenWindow("TreeView",10,10,180,240) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Load_image("1.png")
Dim As HBITMAP hbmp1 = Load_image("2.png")
#Ifdef __FB_WIN32__
Var iStyle = TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT
#Else
Var iStyle = 0
#EndIf
tree=TreeViewGadget(1,10,10,140,140, iStyle)
Var Pos_=AddTreeViewItem(1,"1",hbmp,hbmp1,TVI_FIRST)
AddTreeViewItem(1,"1-1",hbmp,hbmp1,TVI_FIRST,Pos_)
Pos_=AddTreeViewItem(1,"2",hbmp,hbmp1,Pos_)
AddTreeViewItem(1,"2-1",hbmp,hbmp1,TVI_FIRST,Pos_)
buttongadget(2,10,160,150,30,"delete all")
Do
  event=waitevent
  If event=EventClose Then End
  If event=eventgadget Then
     If EventNumber=2 Then
        DeleteTreeViewItemAll(1)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: iPhone web sites made easy