AutoIT Help part 55 ppsx

Opt'MustDeclareVars', 1 Example Func Example Local $treeview, $generalitem, $displayitem, $aboutitem, $compitem Local $useritem, $resitem, $otheritem, $startlabel, $aboutlabel, $compin

Opt('MustDeclareVars', 1)

Example()

Func Example()

Local $treeview, $generalitem, $displayitem, $aboutitem, $compitem

Local $useritem, $resitem, $otheritem, $startlabel, $aboutlabel, $compinfo Local $togglebutton, $infobutton, $statebutton, $cancelbutton

Local $msg, $item, $hItem, $text

GUICreate("My GUI with treeview", 350, 215)

$treeview = GUICtrlCreateTreeView(6, 6, 100, 150,

BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT,

$TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS),

$WS_EX_CLIENTEDGE)

$generalitem = GUICtrlCreateTreeViewItem("General", $treeview)

GUICtrlSetColor(-1, 0x0000C0)

$displayitem = GUICtrlCreateTreeViewItem("Display", $treeview)

GUICtrlSetColor(-1, 0x0000C0)

$aboutitem = GUICtrlCreateTreeViewItem("About", $generalitem)

$compitem = GUICtrlCreateTreeViewItem("Computer", $generalitem)

$useritem = GUICtrlCreateTreeViewItem("User", $generalitem)

$resitem = GUICtrlCreateTreeViewItem("Resolution", $displayitem)

$otheritem = GUICtrlCreateTreeViewItem("Other", $displayitem)

$startlabel = GUICtrlCreateLabel("TreeView Demo", 190, 90, 100, 20)

$aboutlabel = GUICtrlCreateLabel("This little scripts demonstates the using of a treeview-control.", 190, 70, 100, 60)

GUICtrlSetState(-1, $GUI_HIDE) ; Hides the "aboutlabel"-text during

initialization

$compinfo = GUICtrlCreateLabel("Name:" & @TAB & @ComputerName &

@LF & "OS:" & @TAB & @OSVersion & @LF & "SP:" & @TAB &

@OSServicePack, 120, 30, 200, 80)

GUICtrlSetState(-1, $GUI_HIDE) ; Hides the "compinfo"-text during

initialization

GUICtrlCreateLabel("", 0, 170, 350, 2, $SS_SUNKEN)

$togglebutton = GUICtrlCreateButton("&Toggle", 35, 185, 70, 20)

$infobutton = GUICtrlCreateButton("&Info", 105, 185, 70, 20)

$statebutton = GUICtrlCreateButton("Col./Exp.", 175, 185, 70, 20)

$cancelbutton = GUICtrlCreateButton("&Cancel", 245, 185, 70, 20)

GUICtrlSetState($generalitem, BitOR($GUI_EXPAND,

$GUI_DEFBUTTON)) ; Expand the "General"-item and paint in bold

GUICtrlSetState($displayitem, BitOR($GUI_EXPAND,

$GUI_DEFBUTTON)) ; Expand the "Display"-item and paint in bold

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $cancelbutton Or $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $togglebutton ; Toggle the bold painting

If BitAND(GUICtrlRead($generalitem), $GUI_DEFBUTTON) Then GUICtrlSetState($generalitem, 0)

GUICtrlSetState($displayitem, 0)

Else

GUICtrlSetState($generalitem, $GUI_DEFBUTTON)

GUICtrlSetState($displayitem, $GUI_DEFBUTTON)

EndIf

Case $msg = $infobutton

$item = GUICtrlRead($treeview) ; Get the controlID of the current selected treeview item

If $item = 0 Then

MsgBox(64, "TreeView Demo", "No item currently selected") Else

$text = GUICtrlRead($item, 1) ; Get the text of the treeview item

If $text == "" Then

MsgBox(16, "Error", "Error while retrieving infos about item") Else

MsgBox(64, "TreeView Demo", "Current item selected is: " &

$text) ; $advmsg[0] contains the text and $advmsg[1] the state value of the treeview item

EndIf

EndIf

Case $msg = $statebutton

$item = GUICtrlRead($treeview)

If $item > 0 Then

$hItem = GUICtrlGetHandle($item)

GUICtrlSendMsg($treeview, $TVM_EXPAND, $TVE_TOGGLE,

$hItem)

EndIf

; The following items will hide the other labels (1st and 2nd parameter) and then show the 'own' labels (3rd and 4th parameter)

Case $msg = $generalitem

GUIChangeItems($aboutlabel, $compinfo, $startlabel, $startlabel)

Case $msg = $aboutitem

GUICtrlSetState($compinfo, $GUI_HIDE)

GUIChangeItems($startlabel, $startlabel, $aboutlabel, $aboutlabel)

Case $msg = $compitem

GUIChangeItems($startlabel, $aboutlabel, $compinfo, $compinfo) EndSelect

WEnd

GUIDelete()

EndFunc ;==>Example

Func GUIChangeItems($hidestart, $hideend, $showstart, $showend)

Local $idx

For $idx = $hidestart To $hideend

GUICtrlSetState($idx, $GUI_HIDE)

Next

For $idx = $showstart To $showend

GUICtrlSetState($idx, $GUI_SHOW)

Next

EndFunc ;==>GUIChangeItems

Function Reference

GUICtrlCreateTreeViewItem

tạo một TreeViewItem control cho GUI

GUICtrlCreateTreeViewItem ( "text", treeviewID )

Parameters

text text hiện thị

treeviewID treeviewID

Return Value

Success: trả lại ControlID

Failure: Returns 0

Remarks

để đặt các thuộc tính cho control ta dùng GUICtrlSet

To paint a treeview item in bold (to show as default) use

GuiCtrlSetState($treeviewItem, $GUI_DEFBUTTON),

to turn off this behaviour use GUICtrlSetState() with another value but

$GUI_DEFBUTTON, for instance GuiCtrlSetState($treeviewItem, 0)

To expand a treeview item use GuiCtrlSetState($treeviewItem, $GUI_EXPAND)

To select a specific treeview item use GuiCtrlSetState($treeviewItem,

$GUI_FOCUS)

Related

GUICtrlCreateTreeView, GUICtrlSet , GUIGetMsg, GUICtrlRead,

GUICtrlGetHandle

Example

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <TreeViewConstants.au3>

#include <StaticConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()

Local $treeview, $generalitem, $displayitem, $aboutitem, $compitem Local $useritem, $resitem, $otheritem, $startlabel, $aboutlabel

Local $compinfo, $togglebutton, $infobutton, $statebutton, $cancelbutton Local $msg, $item, $text, $hItem

GUICreate("My GUI with treeview", 350, 215)

$treeview = GUICtrlCreateTreeView(6, 6, 100, 150,

BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT,

$TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS),

$WS_EX_CLIENTEDGE)

$generalitem = GUICtrlCreateTreeViewItem("General", $treeview)

GUICtrlSetColor(-1, 0x0000C0)

$displayitem = GUICtrlCreateTreeViewItem("Display", $treeview)

GUICtrlSetColor(-1, 0x0000C0)

$aboutitem = GUICtrlCreateTreeViewItem("About", $generalitem)

$compitem = GUICtrlCreateTreeViewItem("Computer", $generalitem) $useritem = GUICtrlCreateTreeViewItem("User", $generalitem)

$resitem = GUICtrlCreateTreeViewItem("Resolution", $displayitem)

$otheritem = GUICtrlCreateTreeViewItem("Other", $displayitem)

$startlabel = GUICtrlCreateLabel("TreeView Demo", 190, 90, 100, 20)

$aboutlabel = GUICtrlCreateLabel("This little scripts demonstates the using of a treeview-control.", 190, 70, 100, 60)

GUICtrlSetState(-1, $GUI_HIDE) ; Hides the "aboutlabel"-text during

initialization

$compinfo = GUICtrlCreateLabel("Name:" & @TAB & @ComputerName