ExpandTreeViewItem

Синтаксис

Sub ExpandTreeViewItem(iGadget As Long , iItem As Integer , iFlagAll As Long)

Описание

Раскрывает пункт в TreeViewGadget.

Параметры

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

iItem - хендл пункта , который должен быть раскрыт

iFlagAll - если равен нулю (0) , то раскрывается только этот пункт. Если равен единице (1) , то все дочерние пункты для iItem так же раскрываются.

Платформы

Windows , Linux

Пример

#include "window9.bi"
Dim As Integer Event
Dim As HWND hwnd,tree
hwnd=Openwindow("TreeView",10,10,180,200) : Centerwindow(hwnd)
#ifdef __fb_win32__
Dim As Long iStyle = TVS_HASLINES Or TVS_HASBUTTONS Or TVS_LINESATROOT
#else
Dim As Long iStyle = 0
#endif
Dim As Hbitmap pNull
tree=Treeviewgadget(4,10,10,140,140, iStyle,,32)
Dim As Integer iItem1 = Addtreeviewitem(4,"1",pNull,pNull,TVI_FIRST)
Dim As Integer iItem2 = Addtreeviewitem(4,"1-1",pNull,pNull,TVI_FIRST,iItem1)
Dim As Integer iItem3 = Addtreeviewitem(4,"1-1-1",pNull,pNull,iItem1,iItem2)
Dim As Integer iItem4 = Addtreeviewitem(4,"2",pNull,pNull,iItem1)
Dim As Integer iItem5 = Addtreeviewitem(4,"2-1",pNull,pNull,TVI_FIRST,iItem4)
ExpandTreeViewItem( 4 , iItem1 , 1)
Do
  Event=Waitevent
  If Event=Eventclose Then End
Loop

Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents