GetIndexImageTreeView

Синтаксис

Function GetIndexImageTreeView(ByVal gadget As Long, ByVal item As Integer,ByVal flag As Long=0) As Integer

Описание

Возвращает индекс(не хендл) изображения из списка изображений ImageList. Все изображения для TreeViewGadget хранятся в специальном списке изображений под определенными индексами. Так для первого созданного пункта TreeViewGadget индекс невыбранного пункта будет 0, для выбранного уже 1. Для второго пункта невыбранного пункта индекс будет равен 2, для выбранного пункта 3. И так далее... То есть для каждого пункта резервируется по два индекса. В Linux данная функция ничего не делает, там изображения не хранятся в списках изображений.

Параметры

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

item - хендл пункта

flag - флаг может быть:
  0 - индекс невыбранного пункта
  1 - индекс выбранного пункта

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,tree
hwnd=OpenWindow("TreeView",10,10,180,200) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Extract_Icon( "Shell32.DLL", 3 )'
Dim As HBITMAP hbmp1 = Extract_icon( "Shell32.DLL", 45 )'
tree=TreeViewGadget(1,10,10,140,140, TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT,WS_EX_CLIENTEDGE,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=eventLBDOWN Then
     If EventNumberTreeView=1 Then
        ? "image=" & GetIndexImageTreeView(1,GetItemTreeView(1))
        ? "imageselect=" & GetIndexImageTreeView(1,GetItemTreeView(1),1)
     EndIf
  EndIf
Loop

Результат

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