SetSelectTreeViewItem

Синтаксис

Sub SetSelectTreeViewItem(ByVal gadget As long, ByVal Item As Integer)

Описание

Устанавливает нужный пункт выбранным в TreeViewGadget.

Параметры

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

Item - выбираемый хендл пункта.

Платформы

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)
SetSelectTreeViewItem(4 , iItem5)
Do
  Event=Waitevent
  If Event=Eventclose Then End
Loop

Created with the Personal Edition of HelpNDoc: Full featured Help generator