Function GetFirstItemTreeView(iGadget As Long) As Integer
Извлекает самый первый/верхний iItem из TreeViewGadget.
gadget - номер гаджета
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)
? "1 Brother = " , iItem1
? "2 Brother = " , iItem4
? "Get First Item = " , GetFirstItemTreeView(4)
Do
Event=Waitevent
If Event=Eventclose Then End
Loop
Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad