MoveItemTreeView

Синтаксис

Function MoveItemTreeView(ByVal gadget As long,ByVal itembegin As Integer, ByVal itemend As Integer, ByVal Parent As Integer) As Integer

Описание

Перемещает пункт. Если указывается в последнем параметре хендл пункта, то данный пункт даже если не был родителем, становится им для перемещаемого пункта. Если в последнем параметре стоит 0, то перемещение идет на позицию, после пункта указанного в третьем параметре.

Параметры

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

itembegin - хендл перемещаемого пункта

itemend - хендл пункта, после которого будет вставлен перемещаемый пункт

Parent - хендл пункта родителя для перемещаемого пункта

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,tree
#Ifdef __FB_WIN32__
Var style = TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT
#Else
Var style = 0
#EndIf
hwnd=OpenWindow("TreeView",10,10,180,200) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Load_image("1.png")
Dim As HBITMAP hbmp1 = Load_image("1.png")
tree=TreeViewGadget(1,10,10,140,140,style,,32)
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_)
Do
  event=waitevent
  If event=EventClose Then End
  If event=eventRBDOWN Then   ' Right Mouse Click
     If EventNumberTreeView=1 Then
        MoveItemTreeView(1,GetItemTreeView(1),TVI_FIRST ,0)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Easily create Web Help sites