Function GetChildItemTreeView(iGadget As Long , iItem As Integer) As Integer
Извлекает первый дочерний хендл пункта для iItem в TreeViewGadget.
gadget - номер гаджета
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)
? "Parent = " , iItem1
? "Child = " , iItem2
? "Get First Child for iItem1 = " , GetChildItemTreeView(4 , iItem1)
Do
Event=Waitevent
If Event=Eventclose Then End
Loop
Created with the Personal Edition of HelpNDoc: Free help authoring environment